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

[Gerd Moellmann]

Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.146 emacs/lisp/cus-edit.el:1.147
*** emacs/lisp/cus-edit.el:1.146        Fri Apr 19 03:42:10 2002
--- emacs/lisp/cus-edit.el      Thu Apr 25 10:20:46 2002
***************
*** 1035,1043 ****
  ;;;###autoload
  (defun customize-face (&optional symbol)
    "Customize SYMBOL, which should be a face name or nil.
! If SYMBOL is nil, customize all faces."
!   (interactive (list (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)
--- 1035,1050 ----
  ;;;###autoload
  (defun customize-face (&optional symbol)
    "Customize SYMBOL, which should be a face name or nil.
! If SYMBOL is nil, customize all faces.
! 
! 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)
***************
*** 1055,1063 ****
  
  ;;;###autoload
  (defun customize-face-other-window (&optional symbol)
!   "Show customization buffer for face SYMBOL in other window."
!   (interactive (list (completing-read "Customize face: "
!                                     obarray 'custom-facep t)))
    (if (or (null symbol) (and (stringp symbol) (zerop (length symbol))))
        ()
      (if (stringp symbol)
--- 1062,1077 ----
  
  ;;;###autoload
  (defun customize-face-other-window (&optional symbol)
!   "Show customization buffer for face SYMBOL in other window.
! 
! 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)