Mercurial > emacs

comparison lisp/wid-edit.el @ 83556:07774e5c3ff5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from emacs@sv.gnu.org Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-619 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-620 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-621 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-622 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-623 Remove RCS keywords * emacs@sv.gnu.org/emacs--devo--0--patch-624 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-625 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-626 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-627 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-628 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-629 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-630 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-631 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-632 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-633 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-634 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-635 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-636 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-637 Remove RCS keywords * emacs@sv.gnu.org/emacs--devo--0--patch-638 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-639 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-640 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-641 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-642 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-643 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-644 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-645 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-646 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-647 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-648 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-649 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-197 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-198 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-199 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-200 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-201 Update from CVS: lisp/nnweb.el (nnweb-google-parse-1): Update parser. * emacs@sv.gnu.org/gnus--rel--5.10--patch-202 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-596
author Karoly Lorentey <karoly@lorentey.hu>
date Sat, 24 Feb 2007 19:26:54 +0000
parents 3c33fbf5dc8a
children d0794795863c dd7c098af727
comparison
equal deleted inserted replaced
83555:053bf1a38bfa 83556:07774e5c3ff5
402 (overlay-put overlay 'keymap (widget-get widget :keymap)) 402 (overlay-put overlay 'keymap (widget-get widget :keymap))
403 (overlay-put overlay 'evaporate t) 403 (overlay-put overlay 'evaporate t)
404 ;; We want to avoid the face with image buttons. 404 ;; We want to avoid the face with image buttons.
405 (unless (widget-get widget :suppress-face) 405 (unless (widget-get widget :suppress-face)
406 (overlay-put overlay 'face (widget-apply widget :button-face-get)) 406 (overlay-put overlay 'face (widget-apply widget :button-face-get))
407 (overlay-put overlay 'mouse-face 407 (overlay-put overlay 'mouse-face
408 (widget-apply widget :mouse-face-get))) 408 (widget-apply widget :mouse-face-get)))
409 (overlay-put overlay 'pointer 'hand) 409 (overlay-put overlay 'pointer 'hand)
410 (overlay-put overlay 'follow-link follow-link) 410 (overlay-put overlay 'follow-link follow-link)
411 (overlay-put overlay 'help-echo help-echo))) 411 (overlay-put overlay 'help-echo help-echo)))
412 412
1850 (finder-commentary (widget-value widget))) 1850 (finder-commentary (widget-value widget)))
1851 1851
1852 ;;; The `editable-field' Widget. 1852 ;;; The `editable-field' Widget.
1853 1853
1854 (define-widget 'editable-field 'default 1854 (define-widget 'editable-field 'default
1855 "An editable text field." 1855 "An editable text field.
1856 Note: In an `editable-field' widget, the `%v' escape must be preceded
1857 by some other text in the `:format' string (if specified)."
1856 :convert-widget 'widget-value-convert-widget 1858 :convert-widget 'widget-value-convert-widget
1857 :keymap widget-field-keymap 1859 :keymap widget-field-keymap
1858 :format "%v" 1860 :format "%v"
1859 :help-echo "M-TAB: complete field; RET: enter value" 1861 :help-echo "M-TAB: complete field; RET: enter value"
1860 :value "" 1862 :value ""