Synched with 1.9908.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index ef5be496fb0b8d0db9000fb1896ff8830cb2d629..7d545ba68ec9e0e94f8ea7f5765ca731c3e3ee75 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -4,7 +4,7 @@
 ;;
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
 ;; 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.
@@ -755,6 +755,9 @@ are shown; the contents of those subgroups are initially hidden."
                        (format "*Customize Option: %s*"
                                (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.
@@ -923,23 +926,26 @@ Make the modifications default for future sessions."
   (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 @@ Make the modifications default for future sessions."
        (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 @@ this %c has not been changed with customize." "\
 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 @@ The format is suitable for use with `easy-menu-define'."
 (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 

diff --git a/lisp/widget.el b/lisp/widget.el
index c6134e8d72474261b725dab2bf832ba916c13fc1..c3dfeb86d6512f88468ac5d773a4526060a20b0e 100644 (file)
--- a/lisp/widget.el
+++ b/lisp/widget.el
@@ -4,7 +4,7 @@
 ;;
 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
 ;; 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)