[Emacs-diffs] Changes to emacs/lisp/cus-edit.el

[Miles Bader]

Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.148 emacs/lisp/cus-edit.el:1.149
*** emacs/lisp/cus-edit.el:1.148        Thu Apr 25 11:38:32 2002
--- emacs/lisp/cus-edit.el      Thu Apr 25 11:44:24 2002
***************
*** 1043,1050 ****
     (list
      (let ((face (get-char-property (point) 'face)))
        (if (and face (symbolp face))
!         (completing-read (format "Customize face (default `%s'): "
!                                  (symbol-name face))
                           obarray 'custom-facep t nil nil (symbol-name face))
        (completing-read "Customize face (default all): "
                         obarray 'custom-facep t)))))
--- 1043,1049 ----
     (list
      (let ((face (get-char-property (point) 'face)))
        (if (and face (symbolp face))
!         (completing-read (format "Customize face (default `%s'): " face)
                           obarray 'custom-facep t nil nil (symbol-name face))
        (completing-read "Customize face (default all): "
                         obarray 'custom-facep t)))))
***************
*** 1073,1080 ****
     (list
      (let ((face (get-char-property (point) 'face)))
        (if (and face (symbolp face))
!         (completing-read (format "Customize face (default `%s'): "
!                                  (symbol-name face))
                           obarray 'custom-facep t nil nil (symbol-name face))
        (completing-read "Customize face (default all): "
                         obarray 'custom-facep t)))))
--- 1072,1078 ----
     (list
      (let ((face (get-char-property (point) 'face)))
        (if (and face (symbolp face))
!         (completing-read (format "Customize face (default `%s'): " face)
                           obarray 'custom-facep t nil nil (symbol-name face))
        (completing-read "Customize face (default all): "
                         obarray 'custom-facep t)))))