Mercurial > emacs
comparison lisp/cus-edit.el @ 44888:b74399186334
(customize-face-other-window): Make it work similarly.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 26 Apr 2002 22:33:23 +0000 |
| parents | 01a5b217fd7f |
| children | 5d2dc0b4fd2f |
comparison
equal
deleted
inserted
replaced
| 44887:01a5b217fd7f | 44888:b74399186334 |
|---|---|
| 1063 "Show customization buffer for face SYMBOL in other window. | 1063 "Show customization buffer for face SYMBOL in other window. |
| 1064 | 1064 |
| 1065 Interactively, when point is on text which has a face specified, | 1065 Interactively, when point is on text which has a face specified, |
| 1066 suggest to customized that face, if it's customizable." | 1066 suggest to customized that face, if it's customizable." |
| 1067 (interactive | 1067 (interactive |
| 1068 (list | 1068 (list (read-face-name "Customize face" "all faces" t))) |
| 1069 (let ((face (get-char-property (point) 'face))) | 1069 (if (member face '(nil "")) |
| 1070 (if (and face (symbolp face)) | 1070 (setq face (face-list))) |
| 1071 (completing-read (format "Customize face (default `%s'): " face) | 1071 (if (and (listp face) (null (cdr face))) |
| 1072 obarray 'custom-facep t nil nil (symbol-name face)) | 1072 (setq face (car face))) |
| 1073 (completing-read "Customize face (default all): " | 1073 (if (listp face) |
| 1074 obarray 'custom-facep t))))) | 1074 (custom-buffer-create-other-window |
| 1075 (if (or (null symbol) (and (stringp symbol) (zerop (length symbol)))) | 1075 (custom-sort-items |
| 1076 () | 1076 (mapcar (lambda (s) |
| 1077 (if (stringp symbol) | 1077 (list s 'custom-face)) |
| 1078 (setq symbol (intern symbol))) | 1078 face) |
| 1079 (unless (symbolp symbol) | 1079 t nil) |
| 1080 (error "Should be a symbol %S" symbol)) | 1080 "*Customize Faces*") |
| 1081 (unless (facep face) | |
| 1082 (error "Invalid face %S")) | |
| 1081 (custom-buffer-create-other-window | 1083 (custom-buffer-create-other-window |
| 1082 (list (list symbol 'custom-face)) | 1084 (list (list face 'custom-face)) |
| 1083 (format "*Customize Face: %s*" (custom-unlispify-tag-name symbol))))) | 1085 (format "*Customize Face: %s*" |
| 1086 (custom-unlispify-tag-name face))))) | |
| 1084 | 1087 |
| 1085 ;;;###autoload | 1088 ;;;###autoload |
| 1086 (defun customize-customized () | 1089 (defun customize-customized () |
| 1087 "Customize all user options set since the last save in this session." | 1090 "Customize all user options set since the last save in this session." |
| 1088 (interactive) | 1091 (interactive) |