(widget-default-create, widget-after-change, widget-default-format-handler,

widget-checklist-add-item, widget-radio-add-item, widget-choose,
widget-specify-secret, widget-field-value-create, widget-field-value-get,
widget-editable-list-format-handler, widget-editable-list-entry-create,
widget-group-value-create, widget-documentation-link-add,
widget-documentation-string-value-create): "?\ " -> "?\s".
(widget-convert-text): Doc fix.
(widget-narrow-to-field, widget-field-find, widget-url-link-action,
widget-emacs-library-link-action, widget-color-notify): Fix typos in docstrings.

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index d861429e212c4dad698b6c85914340b5434627fd..8889fbb04885cd1d7b097618b694ce70f92e1f7b 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -275,7 +275,7 @@ minibuffer."
                 (while (not (or (and (>= char ?0) (< char next-digit))
                                 (eq value 'keyboard-quit)))
                   ;; Unread a SPC to lead to our new menu.
-                  (setq unread-command-events (cons ?\  unread-command-events))
+                  (setq unread-command-events (cons ?\s unread-command-events))
                   (setq keys (read-key-sequence title))
                   (setq value
                         (lookup-key overriding-terminal-local-map keys t)
@@ -377,7 +377,7 @@ new value.")
            (end (widget-field-end field)))
        (when size
          (while (and (> end begin)
-                     (eq (char-after (1- end)) ?\ ))
+                     (eq (char-after (1- end)) ?\s))
            (setq end (1- end))))
        (while (< begin end)
          (let ((old (char-after begin)))
@@ -796,8 +796,8 @@ The optional ARGS are additional keyword arguments."
                                 &optional button-from button-to
                                 &rest args)
   "Return a widget of type TYPE with endpoint FROM TO.
-Optional ARGS are extra keyword arguments for TYPE.
-and TO will be used as the widgets end points. If optional arguments
+No text will be inserted to the buffer, instead the text between FROM
+and TO will be used as the widgets end points.  If optional arguments
 BUTTON-FROM and BUTTON-TO are given, these will be used as the widgets
 button end points.
 Optional ARGS are extra keyword arguments for TYPE."
@@ -1105,7 +1105,7 @@ the field."
   :group 'widgets)
 
 (defun widget-narrow-to-field ()
-  "Narrow to field"
+  "Narrow to field."
   (interactive)
   (let ((field (widget-field-find (point))))
     (if field
@@ -1213,7 +1213,7 @@ When not inside a field, move to the previous button or field."
 
 (defun widget-field-find (pos)
   "Return the field at POS.
-Unlike (get-char-property POS 'field) this, works with empty fields too."
+Unlike (get-char-property POS 'field), this works with empty fields too."
   (let ((fields widget-field-list)
        field found)
     (while fields
@@ -1263,7 +1263,7 @@ Unlike (get-char-property POS 'field) this, works with empty fields too."
                   ;; Field too small.
                   (save-excursion
                     (goto-char end)
-                    (insert-char ?\  (- (+ begin size) end))))
+                    (insert-char ?\s (- (+ begin size) end))))
                  ((> (- end begin) size)
                   ;; Field too large and
                   (if (or (< (point) (+ begin size))
@@ -1274,7 +1274,7 @@ Unlike (get-char-property POS 'field) this, works with empty fields too."
                     (setq begin (point)))
                   (save-excursion
                     (goto-char end)
-                    (while (and (eq (preceding-char) ?\ )
+                    (while (and (eq (preceding-char) ?\s)
                                 (> (point) begin))
                       (delete-backward-char 1)))))))
        (widget-specify-secret field))
@@ -1434,7 +1434,7 @@ If that does not exists, call the value of `widget-complete-field'."
               ((eq escape ?n)
                (when (widget-get widget :indent)
                  (insert ?\n)
-                 (insert-char ?  (widget-get widget :indent))))
+                 (insert-char ?\s (widget-get widget :indent))))
               ((eq escape ?t)
                (let ((image (widget-get widget :tag-glyph))
                      (tag (widget-get widget :tag)))
@@ -1498,7 +1498,7 @@ If that does not exists, call the value of `widget-complete-field'."
             (when doc-text
               (and (eq (preceding-char) ?\n)
                    (widget-get widget :indent)
-                   (insert-char ?  (widget-get widget :indent)))
+                   (insert-char ?\s (widget-get widget :indent)))
               ;; The `*' in the beginning is redundant.
               (when (eq (aref doc-text  0) ?*)
                 (setq doc-text (substring doc-text 1)))
@@ -1751,7 +1751,7 @@ If END is omitted, it defaults to the length of LIST."
   :action 'widget-url-link-action)
 
 (defun widget-url-link-action (widget &optional event)
-  "Open the url specified by WIDGET."
+  "Open the URL specified by WIDGET."
   (browse-url (widget-value widget)))
 
 ;;; The `function-link' Widget.
@@ -1791,7 +1791,7 @@ If END is omitted, it defaults to the length of LIST."
   :action 'widget-emacs-library-link-action)
 
 (defun widget-emacs-library-link-action (widget &optional event)
-  "Find the Emacs Library file specified by WIDGET."
+  "Find the Emacs library file specified by WIDGET."
   (find-file (locate-library (widget-value widget))))
 
 ;;; The `emacs-commentary-link' Widget.
@@ -1872,7 +1872,7 @@ the earlier input."
     (insert value)
     (and size
         (< (length value) size)
-        (insert-char ?\  (- size (length value))))
+        (insert-char ?\s (- size (length value))))
     (unless (memq widget widget-field-list)
       (setq widget-field-new (cons widget widget-field-new)))
     (move-marker (cdr overlay) (point))
@@ -1905,7 +1905,7 @@ the earlier input."
          (while (and size
                      (not (zerop size))
                      (> to from)
-                     (eq (char-after (1- to)) ?\ ))
+                     (eq (char-after (1- to)) ?\s))
            (setq to (1- to)))
          (let ((result (buffer-substring-no-properties from to)))
            (when secret
@@ -2186,7 +2186,7 @@ when he invoked the menu."
 If the item is checked, CHOSEN is a cons whose cdr is the value."
   (and (eq (preceding-char) ?\n)
        (widget-get widget :indent)
-       (insert-char ?  (widget-get widget :indent)))
+       (insert-char ?\s (widget-get widget :indent)))
   (widget-specify-insert
    (let* ((children (widget-get widget :children))
          (buttons (widget-get widget :buttons))
@@ -2366,7 +2366,7 @@ Return an alist of (TYPE MATCH)."
   ;; (setq type (widget-convert type))
   (and (eq (preceding-char) ?\n)
        (widget-get widget :indent)
-       (insert-char ?  (widget-get widget :indent)))
+       (insert-char ?\s (widget-get widget :indent)))
   (widget-specify-insert
    (let* ((value (widget-get widget :value))
          (children (widget-get widget :children))
@@ -2544,7 +2544,7 @@ Return an alist of (TYPE MATCH)."
     ;; (let ((widget-push-button-gui widget-editable-list-gui))
     (cond ((eq escape ?i)
           (and (widget-get widget :indent)
-               (insert-char ?\  (widget-get widget :indent)))
+               (insert-char ?\s (widget-get widget :indent)))
           (apply 'widget-create-child-and-convert
                  widget 'insert-button
                  (widget-get widget :append-button-args)))
@@ -2656,7 +2656,7 @@ Return an alist of (TYPE MATCH)."
     (widget-specify-insert
      (save-excursion
        (and (widget-get widget :indent)
-           (insert-char ?\  (widget-get widget :indent)))
+           (insert-char ?\s (widget-get widget :indent)))
        (insert (widget-get widget :entry-format)))
      ;; Parse % escapes in format.
      (while (re-search-forward "%\\(.\\)" nil t)
@@ -2720,7 +2720,7 @@ Return an alist of (TYPE MATCH)."
            value (cdr answer))
       (and (eq (preceding-char) ?\n)
           (widget-get widget :indent)
-          (insert-char ?\  (widget-get widget :indent)))
+          (insert-char ?\s (widget-get widget :indent)))
       (push (cond ((null answer)
                   (widget-create-child widget arg))
                  ((widget-get arg :inline)
@@ -2859,7 +2859,7 @@ link for that string."
          (narrow-to-region from to)
          (goto-char (point-min))
          (while (search-forward "\n" nil t)
-           (insert-char ?\  indent)))))))
+           (insert-char ?\s indent)))))))
 
 ;;; The `documentation-string' Widget.
 
@@ -2879,7 +2879,7 @@ link for that string."
        (let ((before (substring doc 0 (match-beginning 0)))
              (after (substring doc (match-beginning 0)))
              button)
-         (insert before ?\ )
+         (insert before ?\s)
          (widget-documentation-link-add widget start (point))
          (setq button
                (widget-create-child-and-convert
@@ -2893,7 +2893,7 @@ link for that string."
          (when shown
            (setq start (point))
            (when (and indent (not (zerop indent)))
-             (insert-char ?\  indent))
+             (insert-char ?\s indent))
            (insert after)
            (widget-documentation-link-add widget start (point)))
          (widget-put widget :buttons (list button)))
@@ -3594,7 +3594,7 @@ example:
       (widget-apply widget :notify widget event))))
 
 (defun widget-color-notify (widget child &optional event)
-  "Update the sample, and notofy the parent."
+  "Update the sample, and notify the parent."
   (overlay-put (widget-get widget :sample-overlay)
               'face (widget-apply widget :sample-face-get))
   (widget-default-notify widget child event))