# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1137713164 0
# Node ID 125d04254c221f1651148939e9e102a7b6e37d40
# Parent  a4e264f94259e173d6d5620d215172a93489e229
(custom-buffer-create-internal): State in the text above
the whole buffer buttons that they do not operate on hidden items.
(custom-face-menu): Use `custom-face-save' instead of
`custom-face-save-command'.
(custom-face-save-command): Make it an alias for `custom-face-save'
and declare it obsolete.
(custom-face-save): Doc fix.

diff -r a4e264f94259 -r 125d04254c22 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Thu Jan 19 23:21:54 2006 +0000
+++ b/lisp/cus-edit.el	Thu Jan 19 23:26:04 2006 +0000
@@ -1485,7 +1485,8 @@
 		       :help-echo "Read the online help."
 		       "(emacs)Easy Customization")
 	(widget-insert " for more information.\n\n")
-	(widget-insert "Operate on everything in this buffer:\n "))
+	(widget-insert "Operate on all settings in this buffer that \
+are not marked HIDDEN:\n "))
     (widget-insert " "))
   (widget-create 'push-button
 		 :tag "Set for Current Session"
@@ -3323,7 +3324,7 @@
 (defvar custom-face-menu
   `(("Set for Current Session" custom-face-set)
     ,@(when (or custom-file user-init-file)
-	'(("Save for Future Sessions" custom-face-save-command)))
+	'(("Save for Future Sessions" custom-face-save)))
     ("Undo Edits" custom-redraw
      (lambda (widget)
        (memq (widget-get widget :custom-state) '(modified changed))))
@@ -3448,13 +3449,8 @@
     (custom-face-state-set widget)
     (custom-redraw-magic widget)))
 
-(defun custom-face-save-command (widget)
+(defun custom-face-save (widget)
   "Save in `.emacs' the face attributes in WIDGET."
-  (custom-face-save widget)
-  (custom-save-all))
-
-(defun custom-face-save (widget)
-  "Prepare for saving WIDGET's face attributes, but don't write `.emacs'."
   (let* ((symbol (widget-value widget))
 	 (child (car (widget-get widget :children)))
 	 (value (custom-post-filter-face-spec (widget-value child)))
@@ -3480,6 +3476,10 @@
     (custom-face-state-set widget)
     (custom-redraw-magic widget)))
 
+;; For backward compatibility.
+(define-obsolete-function-alias 'custom-face-save-command 'custom-face-save
+  "22.1")
+
 (defun custom-face-reset-saved (widget)
   "Restore WIDGET to the face's default attributes."
   (let* ((symbol (widget-value widget))