(widget-choose): Fix typo.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index b9139dc90e75e13b0c87bd0e1b56bff834202ca3..58cdab487f835224b391f5c666889e0ffc1c3869 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -202,7 +202,7 @@ nil means read a single character."
   "Choose an item from a list.
 
 First argument TITLE is the name of the list.
-Second argument ITEMS is an list whose members are either
+Second argument ITEMS is a list whose members are either
  (NAME . VALUE), to indicate selectable items, or just strings to
  indicate unselectable items.
 Optional third argument EVENT is an input event.
@@ -301,7 +301,7 @@ minibuffer."
     (nreverse result)))
 
 ;;; Widget text specifications.
-;; 
+;;
 ;; These functions are for specifying text properties.
 
 (defvar widget-field-add-space t
@@ -333,7 +333,7 @@ new value.")
        (rear-sticky
         (or (not widget-field-add-space) (widget-get widget :size))))
     (if (functionp help-echo)
-      (setq help-echo 'widget-mouse-help))    
+      (setq help-echo 'widget-mouse-help))
     (when (= (char-before to) ?\n)
       ;; When the last character in the field is a newline, we want to
       ;; give it a `field' char-property of `boundary', which helps the
@@ -509,7 +509,7 @@ Otherwise, just return the value."
 
 (defun widget-default-get (widget)
   "Extract the default external value of WIDGET."
-  (widget-apply widget :value-to-external 
+  (widget-apply widget :value-to-external
                (or (widget-get widget :value)
                    (widget-apply widget :default-get))))
 
@@ -892,7 +892,7 @@ Recommended as a parent keymap for modes using widgets.")
   (if (widget-event-point event)
       (let* ((pos (widget-event-point event))
             (start (event-start event))
-            (button (get-char-property 
+            (button (get-char-property
                      pos 'button (and (windowp (posn-window start))
                                       (window-buffer (posn-window start))))))
        (if button
@@ -1315,8 +1315,8 @@ Optional EVENT is the event that triggered the action."
   :indent nil
   :offset 0
   :format-handler 'widget-default-format-handler
-  :button-face-get 'widget-default-button-face-get 
-  :sample-face-get 'widget-default-sample-face-get 
+  :button-face-get 'widget-default-button-face-get
+  :sample-face-get 'widget-default-sample-face-get
   :delete 'widget-default-delete
   :copy 'identity
   :value-set 'widget-default-value-set
@@ -1532,7 +1532,7 @@ If that does not exists, call the value of `widget-complete-field'."
   (or (widget-get widget :always-active)
       (and (not (widget-get widget :inactive))
           (let ((parent (widget-get widget :parent)))
-            (or (null parent) 
+            (or (null parent)
                 (widget-apply parent :active))))))
 
 (defun widget-default-deactivate (widget)
@@ -1726,11 +1726,11 @@ If END is omitted, it defaults to the length of LIST."
   (find-file (locate-library (widget-value widget))))
 
 ;;; The `emacs-commentary-link' Widget.
-    
+
 (define-widget 'emacs-commentary-link 'link
   "A link to Commentary in an Emacs Lisp library file."
   :action 'widget-emacs-commentary-link-action)
-    
+
 (defun widget-emacs-commentary-link-action (widget &optional event)
   "Find the Commentary section of the Emacs file specified by WIDGET."
   (finder-commentary (widget-value widget)))
@@ -3057,7 +3057,7 @@ It will read a directory name from the minibuffer when invoked."
 
 (defvar widget-coding-system-prompt-value-history nil
   "History of input to `widget-coding-system-prompt-value'.")
-  
+
 (define-widget 'coding-system 'symbol
   "A MULE coding-system."
   :format "%{%t%}: %v"
@@ -3422,7 +3422,7 @@ To use this type, you must define :match or :match-alternatives."
 \f
 ;;; The `color' Widget.
 
-;; Fixme: match 
+;; Fixme: match
 (define-widget 'color 'editable-field
   "Choose a color name (with sample)."
   :format "%t: %v (%{sample%})\n"