mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

(customize-face, customize-face-other-window, custom-face-edit-delete):

Browse Source 
Make arguments match their use in docstring.
(custom-unloaded-symbol-p, custom-unloaded-widget-p): Fix typo in
docstring.
This commit is contained in:
Juanma Barranquero 2004-05-28 18:59:01 +00:00
parent 1cfd38a83e
commit 3127aa131a
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/cus-edit.el
View File

@ -1012,11 +1012,11 @@ version."
;;;###autoload ;;;###autoload
(defun customize-face (&optional face) (defun customize-face (&optional face)
"Customize SYMBOL, which should be a face name or nil. "Customize FACE, which should be a face name or nil.
If SYMBOL is nil, customize all faces. If FACE is nil, customize all faces.
Interactively, when point is on text which has a face specified, 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 (interactive
(list (read-face-name "Customize face" "all faces" t))) (list (read-face-name "Customize face" "all faces" t)))
(if (member face '(nil "")) (if (member face '(nil ""))
@ -1038,10 +1038,10 @@ suggest to customized that face, if it's customizable."
;;;###autoload ;;;###autoload
(defun customize-face-other-window (&optional face) (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, 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 (interactive
(list (read-face-name "Customize face" "all faces" t))) (list (read-face-name "Customize face" "all faces" t)))
(if (member face '(nil "")) (if (member face '(nil ""))
@ -1093,7 +1093,7 @@ suggest to customized that face, if it's customizable."
(get symbol 'standard-value)))) (get symbol 'standard-value))))
(when (and cval ;Declared with defcustom. (when (and cval ;Declared with defcustom.
(default-boundp symbol) ;Has a value. (default-boundp symbol) ;Has a value.
(not (equal (eval (car cval)) (not (equal (eval (car cval))
;; Which does not match customize. ;; Which does not match customize.
(default-value symbol)))) (default-value symbol))))
(push (list symbol 'custom-variable) found))))) (push (list symbol 'custom-variable) found)))))
@ -1876,7 +1876,7 @@ and `face'."
(custom-load-symbol (widget-value widget))) (custom-load-symbol (widget-value widget)))
(defun custom-unloaded-symbol-p (symbol) (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) (let ((found nil)
(loads (get symbol 'custom-loads)) (loads (get symbol 'custom-loads))
load) load)
@ -1894,7 +1894,7 @@ and `face'."
found)) found))
(defun custom-unloaded-widget-p (widget) (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))) (custom-unloaded-symbol-p (widget-value widget)))
(defun custom-toggle-hide (widget) (defun custom-toggle-hide (widget)
@ -2646,7 +2646,7 @@ Also change :reverse-video to :inverse-video."
(widget-setup))))) (widget-setup)))))
(defun custom-face-edit-delete (widget) (defun custom-face-edit-delete (widget)
"Remove widget from the buffer." "Remove WIDGET from the buffer."
(let ((inactive (widget-get widget :inactive)) (let ((inactive (widget-get widget :inactive))
(inhibit-read-only t) (inhibit-read-only t)
(inhibit-modification-hooks t)) (inhibit-modification-hooks t))