Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

(widget-choose): Fix typo.

Browse source
This commit is contained in:
Juanma Barranquero 2002-10-21 09:01:44 +00:00
parent 48bd222726
commit 00ed836f2b
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lisp/wid-edit.el
View file

@ -200,7 +200,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.
@ -299,7 +299,7 @@ minibuffer."
(nreverse result)))
;;; Widget text specifications.
;;
;;
;; These functions are for specifying text properties.
(defvar widget-field-add-space t
@ -331,7 +331,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
@ -1272,8 +1272,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
:value-set 'widget-default-value-set
:value-inline 'widget-default-value-inline
@ -1488,7 +1488,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)
@ -1682,11 +1682,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)))
@ -3005,7 +3005,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"
@ -3370,7 +3370,7 @@ To use this type, you must define :match or :match-alternatives."
;;; The `color' Widget.
;; Fixme: match
;; Fixme: match
(define-widget 'color 'editable-field
"Choose a color name (with sample)."
:format "%t: %v (%{sample%})\n"