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 |