Mercurial > emacs

comparison lisp/wid-edit.el @ 89953:029a652ac817

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-23 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-442 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-444 Update from CVS * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-445 Tweak permissions * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-446 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-450 Update from CVS
author Miles Bader <miles@gnu.org>
date Sun, 11 Jul 2004 22:08:06 +0000
parents 4c90ffeb71c5 21a47f89c6f6
children 3fd4a5c21153
comparison
equal deleted inserted replaced
89952:6f6e9fe4658b 89953:029a652ac817
1142 (if (eq field 'boundary) 1142 (if (eq field 'boundary)
1143 nil 1143 nil
1144 field))) 1144 field)))
1145 1145
1146 (defun widget-field-buffer (widget) 1146 (defun widget-field-buffer (widget)
1147 "Return the start of WIDGET's editing field." 1147 "Return the buffer of WIDGET's editing field."
1148 (let ((overlay (widget-get widget :field-overlay))) 1148 (let ((overlay (widget-get widget :field-overlay)))
1149 (cond ((overlayp overlay) 1149 (cond ((overlayp overlay)
1150 (overlay-buffer overlay)) 1150 (overlay-buffer overlay))
1151 ((consp overlay) 1151 ((consp overlay)
1152 (marker-buffer (car overlay)))))) 1152 (marker-buffer (car overlay))))))