mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-24 10:38:38 +00:00
(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.
This commit is contained in:
parent
5a7383fda0
commit
00d00aa9ea
@ -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))
|
||||
|
Loading…
Reference in New Issue
Block a user