andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(occur-mode-map): Add :help.

Browse source
This commit is contained in:
Dan Nicolaescu 2008-03-21 06:12:35 +00:00
parent 175e5186e2
commit a22f42ace8
2 changed files with 22 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -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.

30
lisp/replace.el
View file

@ -752,26 +752,36 @@ a previously found match."
"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'.")