/[emacs]/emacs/lisp/cus-edit.el
ViewVC logotype

Diff of /emacs/lisp/cus-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.150 by rms, Fri Apr 26 22:31:57 2002 UTC revision 1.151 by rms, Fri Apr 26 22:33:23 2002 UTC
# Line 1065  suggest to customized that face, if it's Line 1065  suggest to customized that face, if it's
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 ()

Legend:
Removed from v.1.150  
changed lines
  Added in v.1.151

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26