changeset 18139:ee3c0d09dcd3

Synched with 1.9908.

--- a/lisp/cus-edit.el	Wed Jun 04 11:40:44 1997 +0000
+++ b/lisp/cus-edit.el	Wed Jun 04 11:43:32 1997 +0000
@@ -4,7 +4,7 @@
 ;;
 ;; Author: Per Abrahamsen <[e-mail]>
 ;; Keywords: help, faces
-;; Version: 1.9905
+;; Version: 1.9908
 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
 
 ;; This file is part of GNU Emacs.
@@ -756,6 +756,9 @@
 				(custom-unlispify-tag-name symbol))))
 
 ;;;###autoload
+(defalias 'customize-variable-other-window 'customize-option-other-window)
+
+;;;###autoload
 (defun customize-option-other-window (symbol)
   "Customize SYMBOL, which must be a user option variable.
 Show the buffer in another window, but don't select it."
@@ -923,23 +926,26 @@
   (if custom-reset-button-menu
       (widget-create 'push-button
 		     :tag "Reset"
-		     :help-echo "Undo all modifications."
+		     :help-echo "Show a menu with reset operations."
 		     :mouse-down-action (lambda (&rest junk) t)
 		     :action (lambda (widget &optional event)
 			       (custom-reset event)))
     (widget-create 'push-button
 		   :tag "Reset"
-		   :help-echo "Undo all modifications."
+		   :help-echo "\
+Reset all visible items in this buffer to their current settings."
 		   :action 'custom-reset-current)
     (widget-insert " ")
     (widget-create 'push-button
 		   :tag "Reset to Saved"
-		   :help-echo "Undo all modifications."
+		   :help-echo "\
+Reset all visible items in this buffer to their saved settings."
 		   :action 'custom-reset-saved)
     (widget-insert " ")
     (widget-create 'push-button
 		   :tag "Reset to Standard"
-		   :help-echo "Undo all modifications."
+		   :help-echo "\
+Reset all visible items in this buffer to their standard settings."
 		   :action 'custom-reset-standard))
   (widget-insert " ")
   (widget-create 'push-button
@@ -953,6 +959,7 @@
 	(if (= (length options) 1)
 	    (mapcar (lambda (entry)
 		      (widget-create (nth 1 entry)
+				     :documentation-shown t
 				     :custom-state 'unknown
 				     :tag (custom-unlispify-tag-name
 					   (nth 0 entry))
@@ -1069,7 +1076,7 @@
 something in this group is not prepared for customization.")
 			       (standard " " nil "\
 this %c is unchanged from its standard setting." "\
-the visible members of this group are all at standard settings."))
+visible group members are all at standard settings."))
   "Alist of customize option states.
 Each entry is of the form (STATE MAGIC FACE ITEM-DESC [ GROUP-DESC ]), where 
 
@@ -2550,6 +2557,7 @@
 (unless custom-mode-map
   (setq custom-mode-map (make-sparse-keymap))
   (set-keymap-parent custom-mode-map widget-keymap)
+  (suppress-keymap custom-mode-map)
   (define-key custom-mode-map "q" 'bury-buffer))
 
 (easy-menu-define custom-mode-customize-menu 

--- a/lisp/widget.el	Wed Jun 04 11:40:44 1997 +0000
+++ b/lisp/widget.el	Wed Jun 04 11:43:32 1997 +0000
@@ -4,7 +4,7 @@
 ;;
 ;; Author: Per Abrahamsen <[e-mail]>
 ;; Keywords: help, extensions, faces, hypermedia
-;; Version: 1.9905
+;; Version: 1.9908
 ;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
 
 ;; This file is part of GNU Emacs.
@@ -44,7 +44,8 @@
 	     (set (car keywords) (car keywords)))
 	 (setq keywords (cdr keywords)))))))
 
-(define-widget-keywords :button-overlay :field-overlay
+(define-widget-keywords :complete-function :complete :button-overlay
+  :field-overlay  
   :documentation-shown :button-prefix  
   :button-suffix :mouse-down-action :glyph-up :glyph-down :glyph-inactive  
   :prompt-internal :prompt-history :prompt-match
@@ -62,8 +63,7 @@
   :indent :size :value-to-external :validate :error :directory
   :must-match :type-error :value-inline :inline :match-inline :greedy
   :button-face-get :button-face :value-face :keymap :entry-from
-  :entry-to :help-echo :documentation-property :hide-front-space
-  :hide-rear-space :tab-order) 
+  :entry-to :help-echo :documentation-property :tab-order) 
 
 ;; These autoloads should be deleted when the file is added to Emacs.
 (unless (fboundp 'load-gc)