~/.spacemacs version is now a string

Sorry you'll have to update your file one more time
Just change 1 to be "1"
This commit is contained in:
syl20bnr 2014-10-24 19:33:46 -04:00
parent e6dfc23e89
commit 156d16c2ef
2 changed files with 14 additions and 6 deletions

View File

@ -4,8 +4,8 @@
;; Variables
(defconst dotspacemacs-version 1
"The version number of this file.")
(defconst dotspacemacs-version "1.01"
"The version of this file.")
(defvar dotspacemacs-configuration-layer-path '()
"List of additional paths where to look for configuration layers.
@ -16,6 +16,9 @@ Paths must have a trailing slash (ie. `~/.mycontribs/')"
"List of contribution to load."
)
(defvar dotspacemacs-fullscreen-at-startup t
"If non nil the frame is maximized when Emacs starts up.")
(defvar dotspacemacs-default-package-repository 'melpa-stable
"The default package repository used if no explicit repository has been
specified with an installed package."

View File

@ -15,8 +15,8 @@
(load (concat spacemacs-core-directory "ht.el"))
(defconst spacemacs-dotspacemacs-version 1
"Version execpted for ~/.spacemacs file.")
(defconst spacemacs-dotspacemacs-version "1.0"
"Minimum Version exepected for ~/.spacemacs file.")
(defvar spacemacs-config-layers '()
"Alist of configuration layers with the form (symbol . plist) where
@ -55,9 +55,14 @@ is its path.")
(defun contribsys/check-dotspacemacs-version ()
"Return t if the check pass, otherwise return nil and display an error
message."
message.
The check pass if the expected version stored in
`spacemacs-dotspacemacs-version' is less or equal to the current version of
~/.spacemacs
"
(if (and (boundp 'dotspacemacs-version)
(equal dotspacemacs-version spacemacs-dotspacemacs-version))
(not (version< dotspacemacs-version spacemacs-dotspacemacs-version)))
t
(defun display-startup-echo-area-message ()
"Change the default welcome message of minibuffer to another one."