[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.147 emacs/lisp/cus-edit.el:1.148
*** emacs/lisp/cus-edit.el:1.147        Thu Apr 25 10:20:46 2002
--- emacs/lisp/cus-edit.el      Thu Apr 25 11:38:32 2002
***************
*** 1040,1050 ****
  Interactively, when point is on text which has a face specified,
  suggest to customized that face, if it's customizable."
    (interactive
!    (list (completing-read "Customize face (default all): "
!                         obarray 'custom-facep t
!                         (let ((face (get-char-property (point) 'face)))
!                           (when (and face (symbolp face))
!                             (symbol-name face))))))
    (if (or (null symbol) (and (stringp symbol) (zerop (length symbol))))
        (custom-buffer-create (custom-sort-items
                             (mapcar (lambda (symbol)
--- 1040,1053 ----
  Interactively, when point is on text which has a face specified,
  suggest to customized that face, if it's customizable."
    (interactive
!    (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)))))
    (if (or (null symbol) (and (stringp symbol) (zerop (length symbol))))
        (custom-buffer-create (custom-sort-items
                             (mapcar (lambda (symbol)
***************
*** 1067,1077 ****
  Interactively, when point is on text which has a face specified,
  suggest to customized that face, if it's customizable."
    (interactive
!    (list (completing-read "Customize face: "
!                         obarray 'custom-facep t
!                         (let ((face (get-char-property (point) 'face)))
!                           (when (and face (symbolp face))
!                             (symbol-name face))))))
    (if (or (null symbol) (and (stringp symbol) (zerop (length symbol))))
        ()
      (if (stringp symbol)
--- 1070,1083 ----
  Interactively, when point is on text which has a face specified,
  suggest to customized that face, if it's customizable."
    (interactive
!    (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)))))
    (if (or (null symbol) (and (stringp symbol) (zerop (length symbol))))
        ()
      (if (stringp symbol)