(help-mode-menu): New menu.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3f0efc0aa66267643f2ab0a403b07bed657125cc..5e763caf4f421051945bc9e50738aa36ad87d01e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-20  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * help-mode.el (help-mode-menu): New menu.
+
 2008-02-20  Glenn Morris  <rgm@gnu.org>
 
        * mail/rmail.el (rmail-autodetect): Add .exe extension to movemail

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 0f4c5cd61eeb40e3f389019048b891b5a8959337..e490849edc5253a75bd34738d5f8a3f20ffa8ea1 100644 (file)
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -45,6 +45,20 @@
 ;; Documentation only, since we use minor-mode-overriding-map-alist.
 (define-key help-mode-map "\r" 'help-follow)
 
+(easy-menu-define help-mode-menu help-mode-map
+  "Menu for Help Mode."
+  '("Help-Mode"
+    ["Show Help for Symbol" help-follow-symbol
+     :help "Show the docs for the symbol at point"]
+    ["Previous Topic" help-go-back
+     :help "Go back to previous topic in this help buffer"]
+    ["Next Topic" help-go-forward
+     :help "Go back to next topic in this help buffer"]
+    ["Move to Previous Button" backward-button
+     :help "Move to the Next Button in the help buffer"]
+    ["Move to Next Button" forward-button
+      :help "Move to the Next Button in the help buffer"]))
+
 (defvar help-xref-stack nil
   "A stack of ways by which to return to help buffers after following xrefs.
 Used by `help-follow' and `help-xref-go-back'.