Commit 00d00aa9 authored by Juanma Barranquero's avatar Juanma Barranquero

(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.
parent 5a7383fd
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment