/[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.146 by miles, Fri Apr 19 07:42:10 2002 UTC revision 1.147 by gerd, Thu Apr 25 14:20:46 2002 UTC
# Line 1035  Show the buffer in another window, but d Line 1035  Show the buffer in another window, but d
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)
# Line 1055  If SYMBOL is nil, customize all faces." Line 1062  If SYMBOL is nil, customize all faces."
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)

Legend:
Removed from v.1.146  
changed lines
  Added in v.1.147

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