# HG changeset patch # User Sam Steingold # Date 1006667195 0 # Node ID 11d8d3ad5061364cca102a504c5f2881bfdb110f # Parent 99d79f9219a589c2961770fc78bd4e79cc7c78ba (menu-bar-apropos-menu): Moved all `apropos' bindings here. (menu-bar-help-menu): Added `menu-bar-apropos-menu'. diff -r 99d79f9219a5 -r 11d8d3ad5061 lisp/ChangeLog --- a/lisp/ChangeLog Sun Nov 25 05:38:00 2001 +0000 +++ b/lisp/ChangeLog Sun Nov 25 05:46:35 2001 +0000 @@ -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 -r 99d79f9219a5 -r 11d8d3ad5061 lisp/menu-bar.el --- a/lisp/menu-bar.el Sun Nov 25 05:38:00 2001 +0000 +++ b/lisp/menu-bar.el Sun Nov 25 05:46:35 2001 +0000 @@ -809,6 +809,10 @@ '(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 @@ (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,16 +848,28 @@ ;; 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] - '(menu-item "Apropos Variables..." apropos-variable - :help "List variables whose names match a regexp")) -(define-key menu-bar-describe-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-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-apropos-menu [apropos-commands] + '(menu-item "Apropos Commands..." apropos-command + :help "List commands whose names match a regexp")) + (defvar menu-bar-manuals-menu (make-sparse-keymap "Manuals")) (define-key menu-bar-manuals-menu [man] @@ -898,6 +917,9 @@ (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"))