Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 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 | c3747e64cff0 |
| children | e6b42a6ea8e6 |
comparison
equal
deleted
inserted
replaced
| 12217:b6a4061104a5 | 12218:a4f383dd5adb |
|---|---|
| 142 (define-key map [eval-region] '("Evaluate Region" . eval-region)) | 142 (define-key map [eval-region] '("Evaluate Region" . eval-region)) |
| 143 (define-key map [eval-sexp] '("Evaluate Last S-expression" . eval-last-sexp)) | 143 (define-key map [eval-sexp] '("Evaluate Last S-expression" . eval-last-sexp)) |
| 144 (define-key map [separator-format] '("--")) | 144 (define-key map [separator-format] '("--")) |
| 145 (define-key map [comment-region] '("Comment Out Region" . comment-region)) | 145 (define-key map [comment-region] '("Comment Out Region" . comment-region)) |
| 146 (define-key map [indent-region] '("Indent Region" . indent-region)) | 146 (define-key map [indent-region] '("Indent Region" . indent-region)) |
| 147 (define-key map [indent-line] '("Indent Line" . lisp-indent-line)))) | 147 (define-key map [indent-line] '("Indent Line" . lisp-indent-line)) |
| 148 (put 'eval-region 'menu-enable 'mark-active) | |
| 149 (put 'comment-region 'menu-enable 'mark-active) | |
| 150 (put 'indent-region 'menu-enable 'mark-active))) | |
| 148 | 151 |
| 149 (defun emacs-lisp-byte-compile () | 152 (defun emacs-lisp-byte-compile () |
| 150 "Byte compile the file containing the current buffer." | 153 "Byte compile the file containing the current buffer." |
| 151 (interactive) | 154 (interactive) |
| 152 (if buffer-file-name | 155 (if buffer-file-name |
| 532 (put 'progn 'lisp-indent-function 0) | 535 (put 'progn 'lisp-indent-function 0) |
| 533 (put 'prog1 'lisp-indent-function 1) | 536 (put 'prog1 'lisp-indent-function 1) |
| 534 (put 'prog2 'lisp-indent-function 2) | 537 (put 'prog2 'lisp-indent-function 2) |
| 535 (put 'save-excursion 'lisp-indent-function 0) | 538 (put 'save-excursion 'lisp-indent-function 0) |
| 536 (put 'save-window-excursion 'lisp-indent-function 0) | 539 (put 'save-window-excursion 'lisp-indent-function 0) |
| 540 (put 'save-selected-window 'lisp-indent-function 0) | |
| 537 (put 'save-restriction 'lisp-indent-function 0) | 541 (put 'save-restriction 'lisp-indent-function 0) |
| 538 (put 'save-match-data 'lisp-indent-function 0) | 542 (put 'save-match-data 'lisp-indent-function 0) |
| 539 (put 'let 'lisp-indent-function 1) | 543 (put 'let 'lisp-indent-function 1) |
| 540 (put 'let* 'lisp-indent-function 1) | 544 (put 'let* 'lisp-indent-function 1) |
| 541 (put 'while 'lisp-indent-function 1) | 545 (put 'while 'lisp-indent-function 1) |