Mercurial > emacs
changeset 91912:b6212a3c659c
(hs-minor-mode-map): Move menu creation to
top level.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sun, 17 Feb 2008 18:55:24 +0000 |
| parents | 07b62dd00afa |
| children | ec78aa675c78 |
| files | lisp/ChangeLog lisp/progmodes/hideshow.el |
| diffstat | 2 files changed, 19 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Feb 17 16:57:44 2008 +0000 +++ b/lisp/ChangeLog Sun Feb 17 18:55:24 2008 +0000 @@ -1,5 +1,8 @@ 2008-02-17 Dan Nicolaescu <dann@ics.uci.edu> + * progmodes/hideshow.el (hs-minor-mode-map): Move menu creation to + top level. + * simple.el (transient-mark-mode): Add an :init-value. * startup.el (command-line): Use custom-reevaluate-setting for
--- a/lisp/progmodes/hideshow.el Sun Feb 17 16:57:44 2008 +0000 +++ b/lisp/progmodes/hideshow.el Sun Feb 17 18:55:24 2008 +0000 @@ -355,24 +355,25 @@ (define-key map "\C-c@\C-l" 'hs-hide-level) (define-key map "\C-c@\C-c" 'hs-toggle-hiding) (define-key map [(shift mouse-2)] 'hs-mouse-toggle-hiding) - (easy-menu-define hs-minor-mode-menu map - "Menu used when hideshow minor mode is active." - '("Hide/Show" - ["Hide Block" hs-hide-block - :help "Hide the code or comment block at point"] - ["Show Block" hs-show-block - :help "Show the code or comment block at point"] - ["Hide All" hs-hide-all - :help "Hide all the blocks in the buffer"] - ["Show All" hs-show-all - :help "Show all the clocks in the buffer"] - ["Hide Level" hs-hide-level - :help "Hide all block at levels below the current block"] - ["Toggle Hiding" hs-toggle-hiding - :help "Toggle the hiding state of the current block"])) map) "Keymap for hideshow minor mode.") +(easy-menu-define hs-minor-mode-menu hs-minor-mode-map + "Menu used when hideshow minor mode is active." + '("Hide/Show" + ["Hide Block" hs-hide-block + :help "Hide the code or comment block at point"] + ["Show Block" hs-show-block + :help "Show the code or comment block at point"] + ["Hide All" hs-hide-all + :help "Hide all the blocks in the buffer"] + ["Show All" hs-show-all + :help "Show all the clocks in the buffer"] + ["Hide Level" hs-hide-level + :help "Hide all block at levels below the current block"] + ["Toggle Hiding" hs-toggle-hiding + :help "Toggle the hiding state of the current block"])) + (defvar hs-c-start-regexp nil "Regexp for beginning of comments. Differs from mode-specific comment regexps in that