[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/wid-edit.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/wid-edit.el |
Date: |
Sat, 25 Jun 2005 09:42:00 -0400 |
Index: emacs/lisp/wid-edit.el
diff -c emacs/lisp/wid-edit.el:1.139 emacs/lisp/wid-edit.el:1.140
*** emacs/lisp/wid-edit.el:1.139 Fri Jun 10 07:16:40 2005
--- emacs/lisp/wid-edit.el Sat Jun 25 13:41:59 2005
***************
*** 967,994 ****
(recenter))
)
! (let ((up t) command)
! ;; Mouse click not on a widget button. Find the global
! ;; command to run, and check whether it is bound to an
! ;; up event.
! (mouse-set-point event)
! (if (memq (event-basic-type event) '(mouse-1 down-mouse-1))
! (cond ((setq command ;down event
! (lookup-key widget-global-map [down-mouse-1]))
! (setq up nil))
! ((setq command ;up event
! (lookup-key widget-global-map [mouse-1]))))
(cond ((setq command ;down event
! (lookup-key widget-global-map [down-mouse-2]))
(setq up nil))
((setq command ;up event
! (lookup-key widget-global-map [mouse-2])))))
! (when up
! ;; Don't execute up events twice.
! (while (not (widget-button-release-event-p event))
! (setq event (read-event))))
! (when command
! (call-interactively command)))))
(message "You clicked somewhere weird.")))
(defun widget-button-press (pos &optional event)
--- 967,994 ----
(recenter))
)
! (let ((up t) command)
! ;; Mouse click not on a widget button. Find the global
! ;; command to run, and check whether it is bound to an
! ;; up event.
! (mouse-set-point event)
! (if (memq (event-basic-type event) '(mouse-1 down-mouse-1))
(cond ((setq command ;down event
! (lookup-key widget-global-map [down-mouse-1]))
(setq up nil))
((setq command ;up event
! (lookup-key widget-global-map [mouse-1]))))
! (cond ((setq command ;down event
! (lookup-key widget-global-map [down-mouse-2]))
! (setq up nil))
! ((setq command ;up event
! (lookup-key widget-global-map [mouse-2])))))
! (when up
! ;; Don't execute up events twice.
! (while (not (widget-button-release-event-p event))
! (setq event (read-event))))
! (when command
! (call-interactively command)))))
(message "You clicked somewhere weird.")))
(defun widget-button-press (pos &optional event)