Mercurial > emacs
changeset 12218:a4f383dd5adb
Put mark-active for menu-enable property on eval-region, comment-region, and indent-region symbols.
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Wed, 14 Jun 1995 14:58:36 +0000 |
| parents | b6a4061104a5 |
| children | 7c0b93d3df6b |
| files | lisp/emacs-lisp/lisp-mode.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el Wed Jun 14 14:27:43 1995 +0000 +++ b/lisp/emacs-lisp/lisp-mode.el Wed Jun 14 14:58:36 1995 +0000 @@ -144,7 +144,10 @@ (define-key map [separator-format] '("--")) (define-key map [comment-region] '("Comment Out Region" . comment-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 () "Byte compile the file containing the current buffer." @@ -534,6 +537,7 @@ (put 'prog2 'lisp-indent-function 2) (put 'save-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-match-data 'lisp-indent-function 0) (put 'let 'lisp-indent-function 1)