mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(widget-choose): Fix typo.

Browse source
This commit is contained in:
Juanma Barranquero 2002-10-17 16:46:28 +00:00
parent bb6ee9f31b
commit 77339a6e24
1 changed files with 12 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/wid-edit.el
View file

@ -202,7 +202,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.
@ -301,7 +301,7 @@ minibuffer."
(nreverse result)))
;;; Widget text specifications.
;;
;;
;; These functions are for specifying text properties.
(defvar widget-field-add-space t
@ -333,7 +333,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
@ -509,7 +509,7 @@ Otherwise, just return the value."
(defun widget-default-get (widget)
"Extract the default external value of WIDGET."
(widget-apply widget :value-to-external
(widget-apply widget :value-to-external
(or (widget-get widget :value)
(widget-apply widget :default-get))))
@ -892,7 +892,7 @@ Recommended as a parent keymap for modes using widgets.")
(if (widget-event-point event)
(let* ((pos (widget-event-point event))
(start (event-start event))
(button (get-char-property
(button (get-char-property
pos 'button (and (windowp (posn-window start))
(window-buffer (posn-window start))))))
(if button
@ -1315,8 +1315,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
:copy 'identity
:value-set 'widget-default-value-set
@ -1532,7 +1532,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)
@ -1726,11 +1726,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)))
@ -3057,7 +3057,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"
@ -3422,7 +3422,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"