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

[Miles Bader]

Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.157.2.6 emacs/lisp/cus-edit.el:1.157.2.7
*** emacs/lisp/cus-edit.el:1.157.2.6    Sat May  1 23:46:14 2004
--- emacs/lisp/cus-edit.el      Tue Jul  6 09:31:47 2004
***************
*** 1012,1022 ****
  
  ;;;###autoload
  (defun customize-face (&optional face)
!   "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 (read-face-name "Customize face" "all faces" t)))
    (if (member face '(nil ""))
--- 1012,1022 ----
  
  ;;;###autoload
  (defun customize-face (&optional face)
!   "Customize FACE, which should be a face name or nil.
! If FACE is nil, customize all faces.
  
  Interactively, when point is on text which has a face specified,
! suggest to customize that face, if it's customizable."
    (interactive
     (list (read-face-name "Customize face" "all faces" t)))
    (if (member face '(nil ""))
***************
*** 1038,1047 ****
  
  ;;;###autoload
  (defun customize-face-other-window (&optional face)
!   "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 (read-face-name "Customize face" "all faces" t)))
    (if (member face '(nil ""))
--- 1038,1047 ----
  
  ;;;###autoload
  (defun customize-face-other-window (&optional face)
!   "Show customization buffer for face FACE in other window.
  
  Interactively, when point is on text which has a face specified,
! suggest to customize that face, if it's customizable."
    (interactive
     (list (read-face-name "Customize face" "all faces" t)))
    (if (member face '(nil ""))
***************
*** 1093,1099 ****
                                (get symbol 'standard-value))))
                  (when (and cval       ;Declared with defcustom.
                             (default-boundp symbol) ;Has a value.
!                            (not (equal (eval (car cval)) 
                                         ;; Which does not match customize.
                                         (default-value symbol))))
                    (push (list symbol 'custom-variable) found)))))
--- 1093,1099 ----
                                (get symbol 'standard-value))))
                  (when (and cval       ;Declared with defcustom.
                             (default-boundp symbol) ;Has a value.
!                            (not (equal (eval (car cval))
                                         ;; Which does not match customize.
                                         (default-value symbol))))
                    (push (list symbol 'custom-variable) found)))))
***************
*** 1876,1882 ****
    (custom-load-symbol (widget-value widget)))
  
  (defun custom-unloaded-symbol-p (symbol)
!   "Return non-nil if the dependencies of SYMBOL has not yet been loaded."
    (let ((found nil)
        (loads (get symbol 'custom-loads))
        load)
--- 1876,1882 ----
    (custom-load-symbol (widget-value widget)))
  
  (defun custom-unloaded-symbol-p (symbol)
!   "Return non-nil if the dependencies of SYMBOL have not yet been loaded."
    (let ((found nil)
        (loads (get symbol 'custom-loads))
        load)
***************
*** 1894,1900 ****
      found))
  
  (defun custom-unloaded-widget-p (widget)
!   "Return non-nil if the dependencies of WIDGET has not yet been loaded."
    (custom-unloaded-symbol-p (widget-value widget)))
  
  (defun custom-toggle-hide (widget)
--- 1894,1900 ----
      found))
  
  (defun custom-unloaded-widget-p (widget)
!   "Return non-nil if the dependencies of WIDGET have not yet been loaded."
    (custom-unloaded-symbol-p (widget-value widget)))
  
  (defun custom-toggle-hide (widget)
***************
*** 2646,2652 ****
        (widget-setup)))))
  
  (defun custom-face-edit-delete (widget)
!   "Remove widget from the buffer."
    (let ((inactive (widget-get widget :inactive))
        (inhibit-read-only t)
        (inhibit-modification-hooks t))
--- 2646,2652 ----
        (widget-setup)))))
  
  (defun custom-face-edit-delete (widget)
!   "Remove WIDGET from the buffer."
    (let ((inactive (widget-get widget :inactive))
        (inhibit-read-only t)
        (inhibit-modification-hooks t))