diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2008-04-18 10:32:16 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2008-04-18 10:32:16 +0000 |
commit | 85744fc9b48de6507c55c1facdb75a464569d313 (patch) | |
tree | ab9c902070e58383d5996c6c5c9cc17546219cf6 /lisp/emacs-lisp | |
parent | 82061ebfd74f189a45f1b6a0fa5b9f59343440a6 (diff) | |
download | emacs-85744fc9b48de6507c55c1facdb75a464569d313.tar.gz emacs-85744fc9b48de6507c55c1facdb75a464569d313.tar.bz2 emacs-85744fc9b48de6507c55c1facdb75a464569d313.zip |
(lisp-comment-indent): Add WHEN to obsolescence declaration.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 8c24a44b71b..9968a9a2f0c 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -270,7 +270,7 @@ map) "Keymap for commands shared by all sorts of Lisp modes.") -(defvar emacs-lisp-mode-map +(defvar emacs-lisp-mode-map (let ((map (make-sparse-keymap "Emacs-Lisp")) (menu-map (make-sparse-keymap "Emacs-Lisp")) (prof-map (make-sparse-keymap)) @@ -356,7 +356,7 @@ '(menu-item "Evaluate Region" eval-region :help "Execute the region as Lisp code" :enable mark-active)) - (define-key menu-map [eval-sexp] + (define-key menu-map [eval-sexp] '(menu-item "Evaluate Last S-expression" eval-last-sexp :help "Evaluate sexp before point; print value in minibuffer")) (define-key menu-map [separator-format] '("--")) @@ -493,7 +493,7 @@ if that value is non-nil." (define-key map "\e\t" 'lisp-complete-symbol) (define-key map "\n" 'eval-print-last-sexp) (define-key map [menu-bar lisp-interaction] (cons "Lisp-Interaction" menu-map)) - (define-key menu-map [eval-defun] + (define-key menu-map [eval-defun] '(menu-item "Evaluate Defun" eval-defun :help "Evaluate the top-level form containing point, or after point")) (define-key menu-map [eval-print-last-sexp] @@ -853,7 +853,8 @@ which see." value))))) ;; May still be used by some external Lisp-mode variant. -(define-obsolete-function-alias 'lisp-comment-indent 'comment-indent-default) +(define-obsolete-function-alias 'lisp-comment-indent + 'comment-indent-default "22.1") ;; This function just forces a more costly detection of comments (using ;; parse-partial-sexp from beginning-of-defun). I.e. It avoids the problem of |