aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2004-05-28 18:59:01 +0000
committerJuanma Barranquero2004-05-28 18:59:01 +0000
commit3127aa131a497cc8ace13daca07f7c95c490a9dd (patch)
treeb125d5c1a16d1de972715e0c33445d6fd751e7a8
parent1cfd38a83e56954c9b39255e110dc24fe55771e8 (diff)
downloademacs-3127aa131a497cc8ace13daca07f7c95c490a9dd.tar.gz
emacs-3127aa131a497cc8ace13daca07f7c95c490a9dd.zip
(customize-face, customize-face-other-window, custom-face-edit-delete):
Make arguments match their use in docstring. (custom-unloaded-symbol-p, custom-unloaded-widget-p): Fix typo in docstring.
-rw-r--r--lisp/cus-edit.el18
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 11b91242cc2..d4b7aa6f518 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1012,11 +1012,11 @@ version."
1012 1012
1013;;;###autoload 1013;;;###autoload
1014(defun customize-face (&optional face) 1014(defun customize-face (&optional face)
1015 "Customize SYMBOL, which should be a face name or nil. 1015 "Customize FACE, which should be a face name or nil.
1016If SYMBOL is nil, customize all faces. 1016If FACE is nil, customize all faces.
1017 1017
1018Interactively, when point is on text which has a face specified, 1018Interactively, when point is on text which has a face specified,
1019suggest to customized that face, if it's customizable." 1019suggest to customize that face, if it's customizable."
1020 (interactive 1020 (interactive
1021 (list (read-face-name "Customize face" "all faces" t))) 1021 (list (read-face-name "Customize face" "all faces" t)))
1022 (if (member face '(nil "")) 1022 (if (member face '(nil ""))
@@ -1038,10 +1038,10 @@ suggest to customized that face, if it's customizable."
1038 1038
1039;;;###autoload 1039;;;###autoload
1040(defun customize-face-other-window (&optional face) 1040(defun customize-face-other-window (&optional face)
1041 "Show customization buffer for face SYMBOL in other window. 1041 "Show customization buffer for face FACE in other window.
1042 1042
1043Interactively, when point is on text which has a face specified, 1043Interactively, when point is on text which has a face specified,
1044suggest to customized that face, if it's customizable." 1044suggest to customize that face, if it's customizable."
1045 (interactive 1045 (interactive
1046 (list (read-face-name "Customize face" "all faces" t))) 1046 (list (read-face-name "Customize face" "all faces" t)))
1047 (if (member face '(nil "")) 1047 (if (member face '(nil ""))
@@ -1093,7 +1093,7 @@ suggest to customized that face, if it's customizable."
1093 (get symbol 'standard-value)))) 1093 (get symbol 'standard-value))))
1094 (when (and cval ;Declared with defcustom. 1094 (when (and cval ;Declared with defcustom.
1095 (default-boundp symbol) ;Has a value. 1095 (default-boundp symbol) ;Has a value.
1096 (not (equal (eval (car cval)) 1096 (not (equal (eval (car cval))
1097 ;; Which does not match customize. 1097 ;; Which does not match customize.
1098 (default-value symbol)))) 1098 (default-value symbol))))
1099 (push (list symbol 'custom-variable) found))))) 1099 (push (list symbol 'custom-variable) found)))))
@@ -1876,7 +1876,7 @@ and `face'."
1876 (custom-load-symbol (widget-value widget))) 1876 (custom-load-symbol (widget-value widget)))
1877 1877
1878(defun custom-unloaded-symbol-p (symbol) 1878(defun custom-unloaded-symbol-p (symbol)
1879 "Return non-nil if the dependencies of SYMBOL has not yet been loaded." 1879 "Return non-nil if the dependencies of SYMBOL have not yet been loaded."
1880 (let ((found nil) 1880 (let ((found nil)
1881 (loads (get symbol 'custom-loads)) 1881 (loads (get symbol 'custom-loads))
1882 load) 1882 load)
@@ -1894,7 +1894,7 @@ and `face'."
1894 found)) 1894 found))
1895 1895
1896(defun custom-unloaded-widget-p (widget) 1896(defun custom-unloaded-widget-p (widget)
1897 "Return non-nil if the dependencies of WIDGET has not yet been loaded." 1897 "Return non-nil if the dependencies of WIDGET have not yet been loaded."
1898 (custom-unloaded-symbol-p (widget-value widget))) 1898 (custom-unloaded-symbol-p (widget-value widget)))
1899 1899
1900(defun custom-toggle-hide (widget) 1900(defun custom-toggle-hide (widget)
@@ -2646,7 +2646,7 @@ Also change :reverse-video to :inverse-video."
2646 (widget-setup))))) 2646 (widget-setup)))))
2647 2647
2648(defun custom-face-edit-delete (widget) 2648(defun custom-face-edit-delete (widget)
2649 "Remove widget from the buffer." 2649 "Remove WIDGET from the buffer."
2650 (let ((inactive (widget-get widget :inactive)) 2650 (let ((inactive (widget-get widget :inactive))
2651 (inhibit-read-only t) 2651 (inhibit-read-only t)
2652 (inhibit-modification-hooks t)) 2652 (inhibit-modification-hooks t))