879 |
(format "%s (default %s): " prompt |
(format "%s (default %s): " prompt |
880 |
(if faces (mapconcat 'symbol-name faces ", ") |
(if faces (mapconcat 'symbol-name faces ", ") |
881 |
string-describing-default)) |
string-describing-default)) |
882 |
prompt) |
(format "%s: " prompt)) |
883 |
obarray 'custom-facep t)) |
obarray 'custom-facep t)) |
884 |
;; Canonicalize the output. |
;; Canonicalize the output. |
885 |
(output |
(output |
894 |
(car output))))) |
(car output))))) |
895 |
|
|
896 |
|
|
|
|
|
|
|
|
897 |
(defun face-valid-attribute-values (attribute &optional frame) |
(defun face-valid-attribute-values (attribute &optional frame) |
898 |
"Return valid values for face attribute ATTRIBUTE. |
"Return valid values for face attribute ATTRIBUTE. |
899 |
The optional argument FRAME is used to determine available fonts |
The optional argument FRAME is used to determine available fonts |