mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -08:00
Code Issues Projects Releases Wiki Activity

(lisp-comment-indent): Add WHEN to obsolescence declaration.

Browse source
This commit is contained in:
Juanma Barranquero 2008-04-18 10:32:16 +00:00
parent 82061ebfd7
commit 85744fc9b4
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/lisp-mode.el
View file

@ -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