From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Thu, 22 Nov 2007 03:01:36 +0000 (+0000)
Subject: (occur-mode-map): Add a major mode menu with entries
X-Git-Tag: emacs-pretest-23.0.90~9584
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=85ea5b19e47665e6c694684cceb02a2db2503cd4;p=emacs.git

(occur-mode-map): Add a major mode menu with entries
for all occur operations.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 09b83f33895..2280c706bd5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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):
diff --git a/lisp/replace.el b/lisp/replace.el
index 8b2c3b92399..34fdd5fe3df 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -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'.")