diff options
| author | Juanma Barranquero | 2004-05-28 18:59:01 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2004-05-28 18:59:01 +0000 |
| commit | 3127aa131a497cc8ace13daca07f7c95c490a9dd (patch) | |
| tree | b125d5c1a16d1de972715e0c33445d6fd751e7a8 | |
| parent | 1cfd38a83e56954c9b39255e110dc24fe55771e8 (diff) | |
| download | emacs-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.el | 18 |
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. |
| 1016 | If SYMBOL is nil, customize all faces. | 1016 | If FACE is nil, customize all faces. |
| 1017 | 1017 | ||
| 1018 | Interactively, when point is on text which has a face specified, | 1018 | Interactively, when point is on text which has a face specified, |
| 1019 | suggest to customized that face, if it's customizable." | 1019 | suggest 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 | ||
| 1043 | Interactively, when point is on text which has a face specified, | 1043 | Interactively, when point is on text which has a face specified, |
| 1044 | suggest to customized that face, if it's customizable." | 1044 | suggest 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)) |