[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: |
Chong Yidong |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/wid-edit.el |
Date: |
Mon, 17 Oct 2005 19:46:31 -0400 |
Index: emacs/lisp/wid-edit.el
diff -c emacs/lisp/wid-edit.el:1.150 emacs/lisp/wid-edit.el:1.151
*** emacs/lisp/wid-edit.el:1.150 Mon Oct 17 23:39:24 2005
--- emacs/lisp/wid-edit.el Mon Oct 17 23:46:28 2005
***************
*** 849,855 ****
(define-key map "\t" 'widget-forward)
(define-key map [(shift tab)] 'widget-backward)
(define-key map [backtab] 'widget-backward)
- (define-key map [mouse-1] 'widget-move-and-invoke)
(define-key map [down-mouse-2] 'widget-button-click)
(define-key map "\C-m" 'widget-button-press)
map)
--- 849,854 ----
***************
*** 902,915 ****
;; backward-compatibility alias
(put 'widget-button-pressed-face 'face-alias 'widget-button-pressed)
- (defun widget-move-and-invoke (event)
- "Move to where you click, and if it is an active field, invoke it."
- (interactive "e")
- (mouse-set-point event)
- (let ((pos (widget-event-point event)))
- (if (and pos (get-char-property pos 'button))
- (widget-button-click event))))
-
(defun widget-button-click (event)
"Invoke the button that the mouse is pointing at."
(interactive "e")
--- 901,906 ----
- [Emacs-diffs] Changes to emacs/lisp/wid-edit.el, Richard M . Stallman, 2005/10/04
- [Emacs-diffs] Changes to emacs/lisp/wid-edit.el, Juanma Barranquero, 2005/10/06
- [Emacs-diffs] Changes to emacs/lisp/wid-edit.el, Masatake YAMATO, 2005/10/16
- [Emacs-diffs] Changes to emacs/lisp/wid-edit.el, Chong Yidong, 2005/10/17
- [Emacs-diffs] Changes to emacs/lisp/wid-edit.el,
Chong Yidong <=
- [Emacs-diffs] Changes to emacs/lisp/wid-edit.el, Chong Yidong, 2005/10/17
- [Emacs-diffs] Changes to emacs/lisp/wid-edit.el, Chong Yidong, 2005/10/23