1065 |
Interactively, when point is on text which has a face specified, |
Interactively, when point is on text which has a face specified, |
1066 |
suggest to customized that face, if it's customizable." |
suggest to customized that face, if it's customizable." |
1067 |
(interactive |
(interactive |
1068 |
(list |
(list (read-face-name "Customize face" "all faces" t))) |
1069 |
(let ((face (get-char-property (point) 'face))) |
(if (member face '(nil "")) |
1070 |
(if (and face (symbolp face)) |
(setq face (face-list))) |
1071 |
(completing-read (format "Customize face (default `%s'): " face) |
(if (and (listp face) (null (cdr face))) |
1072 |
obarray 'custom-facep t nil nil (symbol-name face)) |
(setq face (car face))) |
1073 |
(completing-read "Customize face (default all): " |
(if (listp face) |
1074 |
obarray 'custom-facep t))))) |
(custom-buffer-create-other-window |
1075 |
(if (or (null symbol) (and (stringp symbol) (zerop (length symbol)))) |
(custom-sort-items |
1076 |
() |
(mapcar (lambda (s) |
1077 |
(if (stringp symbol) |
(list s 'custom-face)) |
1078 |
(setq symbol (intern symbol))) |
face) |
1079 |
(unless (symbolp symbol) |
t nil) |
1080 |
(error "Should be a symbol %S" symbol)) |
"*Customize Faces*") |
1081 |
|
(unless (facep face) |
1082 |
|
(error "Invalid face %S")) |
1083 |
(custom-buffer-create-other-window |
(custom-buffer-create-other-window |
1084 |
(list (list symbol 'custom-face)) |
(list (list face 'custom-face)) |
1085 |
(format "*Customize Face: %s*" (custom-unlispify-tag-name symbol))))) |
(format "*Customize Face: %s*" |
1086 |
|
(custom-unlispify-tag-name face))))) |
1087 |
|
|
1088 |
;;;###autoload |
;;;###autoload |
1089 |
(defun customize-customized () |
(defun customize-customized () |