diff options
| author | Simon Marshall <simon@gnu.org> | 1995-06-14 14:58:36 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1995-06-14 14:58:36 +0000 |
| commit | 4b619ecad71d9701cc2b54edf781e48573cadf8f (patch) | |
| tree | 49c84ddf5491de44c8572a5042a87e8289c1d445 /lisp/emacs-lisp | |
| parent | 366ad7b01ff2a2106aea6b0b89ff63c194595764 (diff) | |
| download | emacs-4b619ecad71d9701cc2b54edf781e48573cadf8f.tar.gz emacs-4b619ecad71d9701cc2b54edf781e48573cadf8f.tar.bz2 emacs-4b619ecad71d9701cc2b54edf781e48573cadf8f.zip | |
Put mark-active for menu-enable property on eval-region, comment-region, and indent-region symbols.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index c4e69d29dfe..2a2c88a9a17 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -144,7 +144,10 @@ All commands in shared-lisp-mode-map are inherited by this map.") (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 @@ of the start of the containing expression." (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) |