Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 92534:cdc0b4ed6c22
* emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Bugfix: replaced
:enable (mark-active) with :enable mark-active. Thanks to Lennart
Borgman.
| author | Bastien Guerry <bzg@altern.org> |
|---|---|
| date | Thu, 06 Mar 2008 17:15:47 +0000 |
| parents | 402ee2cfca27 |
| children | 48d82b59381a |
comparison
equal
deleted
inserted
replaced
| 92533:f71ac6a5973f | 92534:cdc0b4ed6c22 |
|---|---|
| 296 '(menu-item "Evaluate Buffer" eval-buffer | 296 '(menu-item "Evaluate Buffer" eval-buffer |
| 297 :help "Execute the current buffer as Lisp code")) | 297 :help "Execute the current buffer as Lisp code")) |
| 298 (define-key menu-map [eval-region] | 298 (define-key menu-map [eval-region] |
| 299 '(menu-item "Evaluate Region" eval-region | 299 '(menu-item "Evaluate Region" eval-region |
| 300 :help "Execute the region as Lisp code" | 300 :help "Execute the region as Lisp code" |
| 301 :enable (mark-active))) | 301 :enable mark-active)) |
| 302 (define-key menu-map [eval-sexp] | 302 (define-key menu-map [eval-sexp] |
| 303 '(menu-item "Evaluate Last S-expression" eval-last-sexp | 303 '(menu-item "Evaluate Last S-expression" eval-last-sexp |
| 304 :help "Evaluate sexp before point; print value in minibuffer")) | 304 :help "Evaluate sexp before point; print value in minibuffer")) |
| 305 (define-key menu-map [separator-format] '("--")) | 305 (define-key menu-map [separator-format] '("--")) |
| 306 (define-key menu-map [comment-region] | 306 (define-key menu-map [comment-region] |
| 307 '(menu-item "Comment Out Region" comment-region | 307 '(menu-item "Comment Out Region" comment-region |
| 308 :help "Comment or uncomment each line in the region" | 308 :help "Comment or uncomment each line in the region" |
| 309 :enable (mark-active))) | 309 :enable mark-active)) |
| 310 (define-key menu-map [indent-region] | 310 (define-key menu-map [indent-region] |
| 311 '(menu-item "Indent Region" indent-region | 311 '(menu-item "Indent Region" indent-region |
| 312 :help "Indent each nonblank line in the region" | 312 :help "Indent each nonblank line in the region" |
| 313 :enable (mark-active))) | 313 :enable mark-active)) |
| 314 (define-key menu-map [indent-line] '("Indent Line" . lisp-indent-line)) | 314 (define-key menu-map [indent-line] '("Indent Line" . lisp-indent-line)) |
| 315 map) | 315 map) |
| 316 "Keymap for Emacs Lisp mode. | 316 "Keymap for Emacs Lisp mode. |
| 317 All commands in `lisp-mode-shared-map' are inherited by this map.") | 317 All commands in `lisp-mode-shared-map' are inherited by this map.") |
| 318 | 318 |