# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1206079955 0
# Node ID 9e1bcf73b01229c791c01c97c894525c82dd88f8
# Parent  ade33d67202c8e52902ededf6efc28ef018933f5
(occur-mode-map): Add :help.

diff -r ade33d67202c -r 9e1bcf73b012 lisp/ChangeLog
--- 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.
 
diff -r ade33d67202c -r 9e1bcf73b012 lisp/replace.el
--- 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'.")