Mercurial > hg > xemacs-beta

comparison lisp/wid-edit.el @ 3287:681d0fbb904e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-03-17 16:50:03 by james] Get widget-move-and-invoke from Emacs, since current Gnus CVS uses it. See xemacs-patches message <m3bqw871ec.fsf@jerrypc.cs.usu.edu>.
author james
date Fri, 17 Mar 2006 16:50:04 +0000
parents ecf1ebac70d8
children e687f1912d5b
comparison
equal deleted inserted replaced
3286:b3ab8c197518 3287:681d0fbb904e
322 (or (funcall predicate (car tail)) 322 (or (funcall predicate (car tail))
323 (setq result (cons (car tail) result))) 323 (setq result (cons (car tail) result)))
324 (setq tail (cdr tail))) 324 (setq tail (cdr tail)))
325 (nreverse result))) 325 (nreverse result)))
326 326
327 (defun widget-move-and-invoke (event)
328 "Move to where you click, and if it is an active field, invoke it."
329 (interactive "e")
330 (mouse-set-point event)
331 (let ((pos (event-point event)))
332 (if (and pos (get-char-property pos 'button))
333 (widget-button-click event))))
327 334
328 ;;; Widget text specifications. 335 ;;; Widget text specifications.
329 ;; 336 ;;
330 ;; These functions are for specifying text properties. 337 ;; These functions are for specifying text properties.
331 338