1035 |
;;;###autoload |
;;;###autoload |
1036 |
(defun customize-face (&optional symbol) |
(defun customize-face (&optional symbol) |
1037 |
"Customize SYMBOL, which should be a face name or nil. |
"Customize SYMBOL, which should be a face name or nil. |
1038 |
If SYMBOL is nil, customize all faces." |
If SYMBOL is nil, customize all faces. |
1039 |
(interactive (list (completing-read "Customize face: (default all) " |
|
1040 |
obarray 'custom-facep t))) |
Interactively, when point is on text which has a face specified, |
1041 |
|
suggest to customized that face, if it's customizable." |
1042 |
|
(interactive |
1043 |
|
(list (completing-read "Customize face (default all): " |
1044 |
|
obarray 'custom-facep t |
1045 |
|
(let ((face (get-char-property (point) 'face))) |
1046 |
|
(when (and face (symbolp face)) |
1047 |
|
(symbol-name face)))))) |
1048 |
(if (or (null symbol) (and (stringp symbol) (zerop (length symbol)))) |
(if (or (null symbol) (and (stringp symbol) (zerop (length symbol)))) |
1049 |
(custom-buffer-create (custom-sort-items |
(custom-buffer-create (custom-sort-items |
1050 |
(mapcar (lambda (symbol) |
(mapcar (lambda (symbol) |
1062 |
|
|
1063 |
;;;###autoload |
;;;###autoload |
1064 |
(defun customize-face-other-window (&optional symbol) |
(defun customize-face-other-window (&optional symbol) |
1065 |
"Show customization buffer for face SYMBOL in other window." |
"Show customization buffer for face SYMBOL in other window. |
1066 |
(interactive (list (completing-read "Customize face: " |
|
1067 |
obarray 'custom-facep t))) |
Interactively, when point is on text which has a face specified, |
1068 |
|
suggest to customized that face, if it's customizable." |
1069 |
|
(interactive |
1070 |
|
(list (completing-read "Customize face: " |
1071 |
|
obarray 'custom-facep t |
1072 |
|
(let ((face (get-char-property (point) 'face))) |
1073 |
|
(when (and face (symbolp face)) |
1074 |
|
(symbol-name face)))))) |
1075 |
(if (or (null symbol) (and (stringp symbol) (zerop (length symbol)))) |
(if (or (null symbol) (and (stringp symbol) (zerop (length symbol)))) |
1076 |
() |
() |
1077 |
(if (stringp symbol) |
(if (stringp symbol) |