# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1019749112 0
# Node ID 324d8fdc4c6f31575f5670ee9a89ee90caec2e8e
# Parent  4872781b98d40c44162a1dd552483f24ba6788dd
(customize-face, customize-face-other-window):
Use default instead of initial-input for suggested face.

diff -r 4872781b98d4 -r 324d8fdc4c6f lisp/cus-edit.el
--- a/lisp/cus-edit.el	Thu Apr 25 14:23:22 2002 +0000
+++ b/lisp/cus-edit.el	Thu Apr 25 15:38:32 2002 +0000
@@ -1040,11 +1040,14 @@
 Interactively, when point is on text which has a face specified,
 suggest to customized that face, if it's customizable."
   (interactive
-   (list (completing-read "Customize face (default all): "
-			  obarray 'custom-facep t
-			  (let ((face (get-char-property (point) 'face)))
-			    (when (and face (symbolp face))
-			      (symbol-name face))))))
+   (list
+    (let ((face (get-char-property (point) 'face)))
+      (if (and face (symbolp face))
+	  (completing-read (format "Customize face (default `%s'): "
+				   (symbol-name face))
+			   obarray 'custom-facep t nil nil (symbol-name face))
+	(completing-read "Customize face (default all): "
+			 obarray 'custom-facep t)))))
   (if (or (null symbol) (and (stringp symbol) (zerop (length symbol))))
       (custom-buffer-create (custom-sort-items
 			     (mapcar (lambda (symbol)
@@ -1067,11 +1070,14 @@
 Interactively, when point is on text which has a face specified,
 suggest to customized that face, if it's customizable."
   (interactive
-   (list (completing-read "Customize face: "
-			  obarray 'custom-facep t
-			  (let ((face (get-char-property (point) 'face)))
-			    (when (and face (symbolp face))
-			      (symbol-name face))))))
+   (list
+    (let ((face (get-char-property (point) 'face)))
+      (if (and face (symbolp face))
+	  (completing-read (format "Customize face (default `%s'): "
+				   (symbol-name face))
+			   obarray 'custom-facep t nil nil (symbol-name face))
+	(completing-read "Customize face (default all): "
+			 obarray 'custom-facep t)))))
   (if (or (null symbol) (and (stringp symbol) (zerop (length symbol))))
       ()
     (if (stringp symbol)