From: Sam Steingold Date: Sun, 25 Nov 2001 05:46:35 +0000 (+0000) Subject: (menu-bar-apropos-menu): Moved all `apropos' bindings here. X-Git-Tag: ttn-vms-21-2-B4~18205 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=df5bde6d9a3e77ec250bf1f7c7a0b5a5f77e378f;p=emacs.git (menu-bar-apropos-menu): Moved all `apropos' bindings here. (menu-bar-help-menu): Added `menu-bar-apropos-menu'. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7502e811211..92b014a92b5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-11-25 Sam Steingold + + * menu-bar.el (menu-bar-apropos-menu): New variable. + Moved all `apropos' bindings to this menu. + (menu-bar-help-menu): Added `menu-bar-apropos-menu'. + 2001-11-24 KAWABATA, Taichi The following changes are for new indian languages support based @@ -11,10 +17,10 @@ * international/fontset.el: Delete the setting for indian-1-column and add the setting for indian-glyph in the default fontset. - + * language/indian.el: Completely re-written. - * language/devanagari.el: Completely re-written. + * language/devanagari.el: Completely re-written. * language/devan-util.el: Completely re-written. @@ -49,7 +55,7 @@ 2001-11-23 Colin Walters * Makefile.in (finder_setwins, setwins): Include Calc again. - + * calc/calc-rules.el: Add header comment. 2001-11-23 Andre Spiegel @@ -65,7 +71,7 @@ 2001-11-22 Colin Walters - * calc/calc-misc.el (report-calc-bug): + * calc/calc-misc.el (report-calc-bug): Use `reporter-prompt-for-summary-p'. * calc/INSTALL, calc/Makefile: Remove. diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index c0454fdb776..8bafa451126 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -809,6 +809,10 @@ Do the same for the keys of the same name." '(menu-item "Show All of Mule Status" mule-diag :visible default-enable-multibyte-characters :help "Display multilingual environment settings")) +(define-key menu-bar-describe-menu [describe-coding-system-briefly] + '(menu-item "Describe Coding System (Briefly)..." + describe-current-coding-system-briefly + :visible default-enable-multibyte-characters)) (define-key menu-bar-describe-menu [describe-coding-system] '(menu-item "Describe Coding System..." describe-coding-system :visible default-enable-multibyte-characters)) @@ -827,9 +831,12 @@ Do the same for the keys of the same name." (define-key menu-bar-describe-menu [list-keybindings] '(menu-item "List Key Bindings" describe-bindings :help "Display a list of all current keybindings")) -(define-key menu-bar-describe-menu [list-keybindings] - '(menu-item "List Key Bindings" describe-bindings - :help "Display a list of all current keybindings")) +(define-key menu-bar-describe-menu [describe-current-display-table] + '(menu-item "Describe Display Table" describe-current-display-table + :help "Describe the current display table")) +(define-key menu-bar-describe-menu [describe-face] + '(menu-item "Describe Face..." describe-face + :help "Display the properties of a face")) (define-key menu-bar-describe-menu [describe-variable] '(menu-item "Describe Variable..." describe-variable :help "Display documentation of variable/option")) @@ -841,15 +848,27 @@ Do the same for the keys of the same name." ;; Users typically don't identify keys and menu items... :help "Display documentation of command bound to a \ key (or menu-item)")) -(define-key menu-bar-describe-menu [apropos-variables] +(define-key menu-bar-describe-menu [describe-mode] + '(menu-item "Describe Buffer Modes" describe-mode + :help "Describe this buffer's major and minor mode")) + +(defvar menu-bar-apropos-menu (make-sparse-keymap "Apropos")) + +(define-key menu-bar-apropos-menu [apropos-documentation] + '(menu-item "Apropos Documentation..." apropos-documentation + :help "List variables whose doc strings match a regexp")) +(define-key menu-bar-apropos-menu [apropos] + '(menu-item "Apropos Symbol..." apropos + :help "List symbols whose names match a regexp")) +(define-key menu-bar-apropos-menu [apropos-value] + '(menu-item "Apropos Value..." apropos-value + :help "List variables whose values match a regexp")) +(define-key menu-bar-apropos-menu [apropos-variables] '(menu-item "Apropos Variables..." apropos-variable :help "List variables whose names match a regexp")) -(define-key menu-bar-describe-menu [apropos-commands] +(define-key menu-bar-apropos-menu [apropos-commands] '(menu-item "Apropos Commands..." apropos-command :help "List commands whose names match a regexp")) -(define-key menu-bar-describe-menu [describe-mode] - '(menu-item "Describe Buffer Modes" describe-mode - :help "Describe this buffer's major and minor mode")) (defvar menu-bar-manuals-menu (make-sparse-keymap "Manuals")) @@ -898,6 +917,9 @@ key (or menu-item)")) (define-key menu-bar-help-menu [finder-by-keyword] '(menu-item "Find Emacs Packages..." finder-by-keyword :help "Find packages and features by keyword")) +(define-key menu-bar-help-menu [apropos] + (list 'menu-item "Apropos" menu-bar-apropos-menu + :help "Find commands, variables, keys")) (define-key menu-bar-help-menu [describe] (list 'menu-item "Describe" menu-bar-describe-menu :help "Describe commands, variables, keys"))