/[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.157.2.6 by miles, Sat May 1 23:46:14 2004 UTC revision 1.157.2.7 by miles, Tue Jul 6 09:31:47 2004 UTC
# Line 1012  version." Line 1012  version."
1012    
1013  ;;;###autoload  ;;;###autoload
1014  (defun customize-face (&optional face)  (defun customize-face (&optional face)
1015    "Customize SYMBOL, which should be a face name or nil.    "Customize FACE, which should be a face name or nil.
1016  If SYMBOL is nil, customize all faces.  If FACE is nil, customize all faces.
1017    
1018  Interactively, when point is on text which has a face specified,  Interactively, when point is on text which has a face specified,
1019  suggest to customized that face, if it's customizable."  suggest to customize that face, if it's customizable."
1020    (interactive    (interactive
1021     (list (read-face-name "Customize face" "all faces" t)))     (list (read-face-name "Customize face" "all faces" t)))
1022    (if (member face '(nil ""))    (if (member face '(nil ""))
# Line 1038  suggest to customized that face, if it's Line 1038  suggest to customized that face, if it's
1038    
1039  ;;;###autoload  ;;;###autoload
1040  (defun customize-face-other-window (&optional face)  (defun customize-face-other-window (&optional face)
1041    "Show customization buffer for face SYMBOL in other window.    "Show customization buffer for face FACE in other window.
1042    
1043  Interactively, when point is on text which has a face specified,  Interactively, when point is on text which has a face specified,
1044  suggest to customized that face, if it's customizable."  suggest to customize that face, if it's customizable."
1045    (interactive    (interactive
1046     (list (read-face-name "Customize face" "all faces" t)))     (list (read-face-name "Customize face" "all faces" t)))
1047    (if (member face '(nil ""))    (if (member face '(nil ""))
# Line 1093  suggest to customized that face, if it's Line 1093  suggest to customized that face, if it's
1093                                  (get symbol 'standard-value))))                                  (get symbol 'standard-value))))
1094                    (when (and cval       ;Declared with defcustom.                    (when (and cval       ;Declared with defcustom.
1095                               (default-boundp symbol) ;Has a value.                               (default-boundp symbol) ;Has a value.
1096                               (not (equal (eval (car cval))                               (not (equal (eval (car cval))
1097                                           ;; Which does not match customize.                                           ;; Which does not match customize.
1098                                           (default-value symbol))))                                           (default-value symbol))))
1099                      (push (list symbol 'custom-variable) found)))))                      (push (list symbol 'custom-variable) found)))))
# Line 1876  and `face'." Line 1876  and `face'."
1876    (custom-load-symbol (widget-value widget)))    (custom-load-symbol (widget-value widget)))
1877    
1878  (defun custom-unloaded-symbol-p (symbol)  (defun custom-unloaded-symbol-p (symbol)
1879    "Return non-nil if the dependencies of SYMBOL has not yet been loaded."    "Return non-nil if the dependencies of SYMBOL have not yet been loaded."
1880    (let ((found nil)    (let ((found nil)
1881          (loads (get symbol 'custom-loads))          (loads (get symbol 'custom-loads))
1882          load)          load)
# Line 1894  and `face'." Line 1894  and `face'."
1894      found))      found))
1895    
1896  (defun custom-unloaded-widget-p (widget)  (defun custom-unloaded-widget-p (widget)
1897    "Return non-nil if the dependencies of WIDGET has not yet been loaded."    "Return non-nil if the dependencies of WIDGET have not yet been loaded."
1898    (custom-unloaded-symbol-p (widget-value widget)))    (custom-unloaded-symbol-p (widget-value widget)))
1899    
1900  (defun custom-toggle-hide (widget)  (defun custom-toggle-hide (widget)
# Line 2646  Also change :reverse-video to :inverse-v Line 2646  Also change :reverse-video to :inverse-v
2646          (widget-setup)))))          (widget-setup)))))
2647    
2648  (defun custom-face-edit-delete (widget)  (defun custom-face-edit-delete (widget)
2649    "Remove widget from the buffer."    "Remove WIDGET from the buffer."
2650    (let ((inactive (widget-get widget :inactive))    (let ((inactive (widget-get widget :inactive))
2651          (inhibit-read-only t)          (inhibit-read-only t)
2652          (inhibit-modification-hooks t))          (inhibit-modification-hooks t))

Legend:
Removed from v.1.157.2.6  
changed lines
  Added in v.1.157.2.7

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