# HG changeset patch # User Juanma Barranquero # Date 1121946114 0 # Node ID e4fcf58d872cd55d4aa56f600fc140f2fe44ba3c # Parent 4b552d6938e8d7f2a50efefa358a2a2971fbbb5e (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 -r 4b552d6938e8 -r e4fcf58d872c lisp/wid-edit.el --- a/lisp/wid-edit.el Thu Jul 21 11:09:11 2005 +0000 +++ b/lisp/wid-edit.el Thu Jul 21 11:41:54 2005 +0000 @@ -275,7 +275,7 @@ (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 @@ (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 @@ &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 @@ :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 @@ (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 @@ ;; 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 @@ (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 @@ ((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 @@ (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 @@ :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 @@ :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 @@ (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 @@ (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 @@ 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 @@ ;; (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 @@ ;; (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 @@ (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 @@ 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 @@ (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 @@ (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 @@ (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 @@ (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))