1043 |
(list |
(list |
1044 |
(let ((face (get-char-property (point) 'face))) |
(let ((face (get-char-property (point) 'face))) |
1045 |
(if (and face (symbolp face)) |
(if (and face (symbolp face)) |
1046 |
(completing-read (format "Customize face (default `%s'): " |
(completing-read (format "Customize face (default `%s'): " face) |
|
(symbol-name face)) |
|
1047 |
obarray 'custom-facep t nil nil (symbol-name face)) |
obarray 'custom-facep t nil nil (symbol-name face)) |
1048 |
(completing-read "Customize face (default all): " |
(completing-read "Customize face (default all): " |
1049 |
obarray 'custom-facep t))))) |
obarray 'custom-facep t))))) |
1072 |
(list |
(list |
1073 |
(let ((face (get-char-property (point) 'face))) |
(let ((face (get-char-property (point) 'face))) |
1074 |
(if (and face (symbolp face)) |
(if (and face (symbolp face)) |
1075 |
(completing-read (format "Customize face (default `%s'): " |
(completing-read (format "Customize face (default `%s'): " face) |
|
(symbol-name face)) |
|
1076 |
obarray 'custom-facep t nil nil (symbol-name face)) |
obarray 'custom-facep t nil nil (symbol-name face)) |
1077 |
(completing-read "Customize face (default all): " |
(completing-read "Customize face (default all): " |
1078 |
obarray 'custom-facep t))))) |
obarray 'custom-facep t))))) |