changeset 55789:e004c3c8a4b6

(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.

--- a/lisp/cus-edit.el	Fri May 28 12:44:09 2004 +0000
+++ b/lisp/cus-edit.el	Fri May 28 18:59:01 2004 +0000
@@ -1012,11 +1012,11 @@
 
 ;;;###autoload
 (defun customize-face (&optional face)
-  "Customize SYMBOL, which should be a face name or nil.
-If SYMBOL is nil, customize all faces.
+  "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 customized that face, if it's customizable."
+suggest to customize that face, if it's customizable."
   (interactive
    (list (read-face-name "Customize face" "all faces" t)))
   (if (member face '(nil ""))
@@ -1038,10 +1038,10 @@
 
 ;;;###autoload
 (defun customize-face-other-window (&optional face)
-  "Show customization buffer for face SYMBOL in other window.
+  "Show customization buffer for face FACE in other window.
 
 Interactively, when point is on text which has a face specified,
-suggest to customized that face, if it's customizable."
+suggest to customize that face, if it's customizable."
   (interactive
    (list (read-face-name "Customize face" "all faces" t)))
   (if (member face '(nil ""))
@@ -1093,7 +1093,7 @@
 				(get symbol 'standard-value))))
 		  (when (and cval 	;Declared with defcustom.
 			     (default-boundp symbol) ;Has a value.
-			     (not (equal (eval (car cval)) 
+			     (not (equal (eval (car cval))
 					 ;; Which does not match customize.
 					 (default-value symbol))))
 		    (push (list symbol 'custom-variable) found)))))
@@ -1876,7 +1876,7 @@
   (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."
+  "Return non-nil if the dependencies of SYMBOL have not yet been loaded."
   (let ((found nil)
 	(loads (get symbol 'custom-loads))
 	load)
@@ -1894,7 +1894,7 @@
     found))
 
 (defun custom-unloaded-widget-p (widget)
-  "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."
   (custom-unloaded-symbol-p (widget-value widget)))
 
 (defun custom-toggle-hide (widget)
@@ -2646,7 +2646,7 @@
 	(widget-setup)))))
 
 (defun custom-face-edit-delete (widget)
-  "Remove widget from the buffer."
+  "Remove WIDGET from the buffer."
   (let ((inactive (widget-get widget :inactive))
 	(inhibit-read-only t)
 	(inhibit-modification-hooks t))