aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarl Heuer1995-07-17 22:51:17 +0000
committerKarl Heuer1995-07-17 22:51:17 +0000
commit260130bbb06e96a3b337e43af34b970dd726e5ff (patch)
tree7c70ef97acc159210331dcb9e42ffb9b34d33579
parent34a5f45f7ee50c2b4ff85baf873946744c9f9af2 (diff)
downloademacs-260130bbb06e96a3b337e43af34b970dd726e5ff.tar.gz
emacs-260130bbb06e96a3b337e43af34b970dd726e5ff.zip
(menu-bar-help-menu): Add finder-by-keyword.
-rw-r--r--lisp/menu-bar.el7
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 685d54efe2c..56903cd6c27 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -21,6 +21,8 @@
21;; along with GNU Emacs; see the file COPYING. If not, write to 21;; along with GNU Emacs; see the file COPYING. If not, write to
22;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
23 23
24;; Avishai Yacobi suggested some menu rearrangements.
25
24;;; Code: 26;;; Code:
25 27
26;; Don't clobber an existing menu-bar keymap, to preserve any menu-bar key 28;; Don't clobber an existing menu-bar keymap, to preserve any menu-bar key
@@ -302,9 +304,12 @@ Do the same for the keys of the same name."
302 '("Show Version" . emacs-version)) 304 '("Show Version" . emacs-version))
303(define-key menu-bar-help-menu [report-emacs-bug] 305(define-key menu-bar-help-menu [report-emacs-bug]
304 '("Send Bug Report..." . report-emacs-bug)) 306 '("Send Bug Report..." . report-emacs-bug))
307(define-key menu-bar-help-menu [finder-by-keyword]
308 '("Find Lisp Packages..." . finder-by-keyword))
305(define-key menu-bar-help-menu [emacs-tutorial] 309(define-key menu-bar-help-menu [emacs-tutorial]
306 '("Emacs Tutorial" . help-with-tutorial)) 310 '("Emacs Tutorial" . help-with-tutorial))
307(define-key menu-bar-help-menu [man] '("Man..." . manual-entry)) 311(define-key menu-bar-help-menu [man]
312 '("Man..." . manual-entry))
308(define-key menu-bar-help-menu [describe-variable] 313(define-key menu-bar-help-menu [describe-variable]
309 '("Describe Variable..." . describe-variable)) 314 '("Describe Variable..." . describe-variable))
310(define-key menu-bar-help-menu [describe-function] 315(define-key menu-bar-help-menu [describe-function]