diff options
Diffstat (limited to 'lisp/emulation/crisp.el')
| -rw-r--r-- | lisp/emulation/crisp.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el index 087a7e2898d..cfb8ed07595 100644 --- a/lisp/emulation/crisp.el +++ b/lisp/emulation/crisp.el @@ -44,9 +44,9 @@ ;; by default run `save-buffers-kill-emacs' instead of the command ;; `execute-extended-command'. -;; Finally, if you want to change the string displayed in the modeline -;; when this mode is in effect, override the definition of -;; `crisp-mode-modeline-string' in your .emacs. The default value is +;; Finally, if you want to change the string displayed in the mode +;; line when this mode is in effect, override the definition of +;; `crisp-mode-mode-line-string' in your .emacs. The default value is ;; " *Crisp*" which may be a bit lengthy if you have a lot of things ;; being displayed there. @@ -173,11 +173,14 @@ All the bindings are done here instead of globally to try and be nice to the world.") -(defcustom crisp-mode-modeline-string " *CRiSP*" - "String to display in the modeline when CRiSP emulation mode is enabled." +(defcustom crisp-mode-mode-line-string " *CRiSP*" + "String to display in the mode line when CRiSP emulation mode is enabled." :type 'string :group 'crisp) +(define-obsolete-variable-alias 'crisp-mode-modeline-string + 'crisp-mode-mode-line-string "24.2") + ;;;###autoload (defcustom crisp-mode nil "Track status of CRiSP emulation mode. @@ -354,7 +357,7 @@ With a prefix argument ARG, enable CRiSP mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil." :keymap crisp-mode-map - :lighter crisp-mode-modeline-string + :lighter crisp-mode-mode-line-string (when crisp-mode ;; Make menu entries show M-u or f14 in preference to C-x u. (put 'undo :advertised-binding |