(menu-bar-apropos-menu): Moved all `apropos' bindings here.

(menu-bar-help-menu): Added `menu-bar-apropos-menu'.

2 files changed, 40 insertions, 12 deletions

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  <sds@gnu.org>
+
+	* 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 <batta@beige.ocn.ne.jp>
 
 	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  <walters@debian.org>
 
 	* Makefile.in (finder_setwins, setwins): Include Calc again.
-	
+
 	* calc/calc-rules.el: Add header comment.
 
 2001-11-23  Andre Spiegel  <spiegel@gnu.org>
@@ -65,7 +71,7 @@
 
 2001-11-22  Colin Walters  <walters@debian.org>
 
-	* 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"))