From 58245a5832b9c95a62de11a141506dcfb0e92064 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Wed, 20 Feb 2008 06:37:53 +0000 Subject: [PATCH] (help-mode-menu): New menu. --- lisp/ChangeLog | 4 ++++ lisp/help-mode.el | 14 ++++++++++++++ 2 files changed, 18 insertions(+) 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 + + * help-mode.el (help-mode-menu): New menu. + 2008-02-20 Glenn Morris * 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'. -- 2.39.2