/[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.148 by miles, Thu Apr 25 15:38:32 2002 UTC revision 1.149 by miles, Thu Apr 25 15:44:24 2002 UTC
# Line 1043  suggest to customized that face, if it's Line 1043  suggest to customized that face, if it's
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)))))
# Line 1073  suggest to customized that face, if it's Line 1072  suggest to customized that face, if it's
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)))))

Legend:
Removed from v.1.148  
changed lines
  Added in v.1.149

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