Mercurial > emacs
changeset 93121:9e1bcf73b012
(occur-mode-map): Add :help.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 21 Mar 2008 06:12:35 +0000 |
| parents | ade33d67202c |
| children | ab6a0ec29e00 |
| files | lisp/ChangeLog lisp/replace.el |
| diffstat | 2 files changed, 22 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Mar 21 06:08:21 2008 +0000 +++ b/lisp/ChangeLog Fri Mar 21 06:12:35 2008 +0000 @@ -1,5 +1,7 @@ 2008-03-21 Dan Nicolaescu <dann@ics.uci.edu> + * replace.el (occur-mode-map): Add :help. + * emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Add menu entry for disassemble.
--- a/lisp/replace.el Fri Mar 21 06:08:21 2008 +0000 +++ b/lisp/replace.el Fri Mar 21 06:12:35 2008 +0000 @@ -752,26 +752,36 @@ "Display another occurrence when moving the cursor")) (define-key map [separator-1] '("--")) (define-key map [kill-this-buffer] - '("Kill occur buffer" . kill-this-buffer)) + '(menu-item "Kill occur buffer" kill-this-buffer + :help "Kill the current *Occur* buffer")) (define-key map [quit-window] - '("Quit occur window" . quit-window)) + '(menu-item "Quit occur window" quit-window + :help "Quit the current *Occur* buffer. Bury it, and maybe delete the selected frame")) (define-key map [revert-buffer] - '("Revert occur buffer" . revert-buffer)) + '(menu-item "Revert occur buffer" revert-buffer + :help "Replace the text in the *Occur* buffer with the results of rerunning occur")) (define-key map [clone-buffer] - '("Clone occur buffer" . clone-buffer)) + '(menu-item "Clone occur buffer" clone-buffer + :help "Create and return a twin copy of the current *Occur* buffer")) (define-key map [occur-rename-buffer] - '("Rename occur buffer" . occur-rename-buffer)) + '(menu-item "Rename occur buffer" occur-rename-buffer + :help "Rename the current *Occur* buffer to *Occur: original-buffer-name*.")) (define-key map [separator-2] '("--")) (define-key map [occur-mode-goto-occurrence-other-window] - '("Go To Occurrence Other Window" . occur-mode-goto-occurrence-other-window)) + '(menu-item "Go To Occurrence Other Window" occur-mode-goto-occurrence-other-window + :help "Go to the occurrence the current line describes, in another window")) (define-key map [occur-mode-goto-occurrence] - '("Go To Occurrence" . occur-mode-goto-occurrence)) + '(menu-item "Go To Occurrence" occur-mode-goto-occurrence + :help "Go to the occurrence the current line describes")) (define-key map [occur-mode-display-occurrence] - '("Display Occurrence" . occur-mode-display-occurrence)) + '(menu-item "Display Occurrence" occur-mode-display-occurrence + :help "Display in another window the occurrence the current line describes")) (define-key map [occur-next] - '("Move to next match" . occur-next)) + '(menu-item "Move to next match" occur-next + :help "Move to the Nth (default 1) next match in an Occur mode buffer")) (define-key map [occur-prev] - '("Move to previous match" . occur-prev)) + '(menu-item "Move to previous match" occur-prev + :help "Move to the Nth (default 1) previous match in an Occur mode buffer")) map) "Keymap for `occur-mode'.")