From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Wed, 20 Feb 2008 06:37:53 +0000 (+0000)
Subject: (help-mode-menu): New menu.
X-Git-Tag: emacs-pretest-23.0.90~7843
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=58245a5832b9c95a62de11a141506dcfb0e92064;p=emacs.git

(help-mode-menu): New menu.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3f0efc0aa66..5e763caf4f4 100644
--- 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 0f4c5cd61ee..e490849edc5 100644
--- 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'.