Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(occur-mode-map): Add a major mode menu with entries

Browse source 
for all occur operations.
This commit is contained in:
Dan Nicolaescu 2007-11-22 03:01:36 +00:00
parent d5f05c46bd
commit 85ea5b19e4
2 changed files with 32 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2007-11-22 Dan Nicolaescu <dann@ics.uci.edu>
* replace.el (occur-mode-map): Add a major mode menu with entries
for all occur operations.
* international/titdic-cnv.el (dos-8+3-filename):
* obsolete/fast-lock.el (msdos-long-file-names):
* frame.el (msdos-mouse-p):

29
lisp/replace.el
View file

@ -734,6 +734,35 @@ a previously found match."
(define-key map "q" 'quit-window)
(define-key map "z" 'kill-this-buffer)
(define-key map "\C-c\C-f" 'next-error-follow-minor-mode)
(define-key map [menu-bar] (make-sparse-keymap))
(define-key map [menu-bar occur]
(cons "Occur" map))
(define-key map [next-error-follow-minor-mode]
(menu-bar-make-mm-toggle next-error-follow-minor-mode
"Auto Occurrence Display"
"Display another occurrence when moving the cursor"))
(define-key map [separator-1] '("--"))
(define-key map [kill-this-buffer]
'("Kill occur buffer" . kill-this-buffer))
(define-key map [quit-window]
'("Quit occur window" . quit-window))
(define-key map [revert-buffer]
'("Revert occur buffer" . revert-buffer))
(define-key map [clone-buffer]
'("Clone occur buffer" . clone-buffer))
(define-key map [occur-rename-buffer]
'("Rename occur buffer" . occur-rename-buffer))
(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))
(define-key map [occur-mode-goto-occurrence]
'("Go To Occurrence" . occur-mode-goto-occurrence))
(define-key map [occur-mode-display-occurrence]
'("Display Occurrence" . occur-mode-display-occurrence))
(define-key map [occur-next]
'("Move to next match" . occur-next))
(define-key map [occur-prev]
'("Move to previous match" . occur-prev))
map)
"Keymap for `occur-mode'.")