mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Put mark-active for menu-enable property on eval-region, comment-region, and indent-region symbols.

Browse source
This commit is contained in:
Simon Marshall 1995-06-14 14:58:36 +00:00
parent 366ad7b01f
commit 4b619ecad7
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -144,7 +144,10 @@ All commands in shared-lisp-mode-map are inherited by this map.")
(define-key map [separator-format] '("--")) (define-key map [separator-format] '("--"))
(define-key map [comment-region] '("Comment Out Region" . comment-region)) (define-key map [comment-region] '("Comment Out Region" . comment-region))
(define-key map [indent-region] '("Indent Region" . indent-region)) (define-key map [indent-region] '("Indent Region" . indent-region))
(define-key map [indent-line] '("Indent Line" . lisp-indent-line)))) (define-key map [indent-line] '("Indent Line" . lisp-indent-line))
(put 'eval-region 'menu-enable 'mark-active)
(put 'comment-region 'menu-enable 'mark-active)
(put 'indent-region 'menu-enable 'mark-active)))
(defun emacs-lisp-byte-compile () (defun emacs-lisp-byte-compile ()
"Byte compile the file containing the current buffer." "Byte compile the file containing the current buffer."
@ -534,6 +537,7 @@ of the start of the containing expression."
(put 'prog2 'lisp-indent-function 2) (put 'prog2 'lisp-indent-function 2)
(put 'save-excursion 'lisp-indent-function 0) (put 'save-excursion 'lisp-indent-function 0)
(put 'save-window-excursion 'lisp-indent-function 0) (put 'save-window-excursion 'lisp-indent-function 0)
(put 'save-selected-window 'lisp-indent-function 0)
(put 'save-restriction 'lisp-indent-function 0) (put 'save-restriction 'lisp-indent-function 0)
(put 'save-match-data 'lisp-indent-function 0) (put 'save-match-data 'lisp-indent-function 0)
(put 'let 'lisp-indent-function 1) (put 'let 'lisp-indent-function 1)