diff options
| author | Miles Bader <miles@gnu.org> | 2007-08-13 13:41:28 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-08-13 13:41:28 +0000 |
| commit | 37cc095b6a175fb5a2fb18fa029eaf3aa3b3fa53 (patch) | |
| tree | 7fb68e80f66e55100c48b9751cf70c74af2d4bf1 /lisp/wid-edit.el | |
| parent | 031b6333283be57d971e557b83da31c6be937b0a (diff) | |
| parent | 9d2db4c6637fe37d75f947063bcb2ecce319a1bc (diff) | |
| download | emacs-37cc095b6a175fb5a2fb18fa029eaf3aa3b3fa53.tar.gz | |
Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-851
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index c46c041d64d..6025244abe5 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -483,7 +483,7 @@ new value.") ;;;###autoload (defun widgetp (widget) - "Return non-nil iff WIDGET is a widget." + "Return non-nil if WIDGET is a widget." (if (symbolp widget) (get widget 'widget-type) (and (consp widget) @@ -500,7 +500,7 @@ Otherwise, just return the value." value))) (defun widget-member (widget property) - "Non-nil iff there is a definition in WIDGET for PROPERTY." + "Non-nil if there is a definition in WIDGET for PROPERTY." (cond ((plist-member (cdr widget) property) t) ((car widget) @@ -1606,7 +1606,7 @@ If that does not exists, call the value of `widget-complete-field'." (widget-princ-to-string (widget-get widget :value)))) (defun widget-default-active (widget) - "Return t iff this widget active (user modifiable)." + "Return t if this widget is active (user modifiable)." (or (widget-get widget :always-active) (and (not (widget-get widget :inactive)) (let ((parent (widget-get widget :parent))) |