From 3b4ef34b2e4005d8a512a53e6dc28ee371b64f4b Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Sat, 27 Apr 2002 04:57:44 +0000 Subject: [PATCH] (read-face-name): Format the prompt correctly when there's no default. --- lisp/ChangeLog | 5 +++++ lisp/faces.el | 4 +--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7721b87f3d1..bc9baeb74fe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-04-27 Miles Bader + + * faces.el (read-face-name): Format the prompt correctly when + there's no default. + 2002-04-26 Andrew Choi * term/mac-win.el: Don't call ediff-toggle-multiframe. Set diff --git a/lisp/faces.el b/lisp/faces.el index 7b0381992cf..e4002246148 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -879,7 +879,7 @@ Otherwise, return a single face." (format "%s (default %s): " prompt (if faces (mapconcat 'symbol-name faces ", ") string-describing-default)) - prompt) + (format "%s: " prompt)) obarray 'custom-facep t)) ;; Canonicalize the output. (output @@ -894,8 +894,6 @@ Otherwise, return a single face." (car output))))) - - (defun face-valid-attribute-values (attribute &optional frame) "Return valid values for face attribute ATTRIBUTE. The optional argument FRAME is used to determine available fonts -- 2.39.5