[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mouse.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mouse.el |
Date: |
Thu, 03 Nov 2005 16:37:22 -0500 |
Index: emacs/lisp/mouse.el
diff -c emacs/lisp/mouse.el:1.285 emacs/lisp/mouse.el:1.286
*** emacs/lisp/mouse.el:1.285 Sun Oct 23 09:19:36 2005
--- emacs/lisp/mouse.el Thu Nov 3 21:37:21 2005
***************
*** 961,967 ****
(let* ((fun (key-binding (vector (car event))))
(do-multi-click (and (> (event-click-count event) 0)
(functionp fun)
! (not (eq fun 'mouse-set-point)))))
;; Run the binding of the terminating up-event, if possible.
(if (and (not (= (overlay-start mouse-drag-overlay)
(overlay-end mouse-drag-overlay)))
--- 961,967 ----
(let* ((fun (key-binding (vector (car event))))
(do-multi-click (and (> (event-click-count event) 0)
(functionp fun)
! (not (memq fun '(mouse-set-point
mouse-set-region))))))
;; Run the binding of the terminating up-event, if possible.
(if (and (not (= (overlay-start mouse-drag-overlay)
(overlay-end mouse-drag-overlay)))
***************
*** 1075,1081 ****
(forward-char 1))))))
(defun mouse-start-end (start end mode)
! "Return a list of region bounds based on START and END according to MODE.
If MODE is 0 then set point to (min START END), mark to (max START END).
If MODE is 1 then set point to start of word at (min START END),
mark to end of word at (max START END).
--- 1075,1081 ----
(forward-char 1))))))
(defun mouse-start-end (start end mode)
! "Return a list of region bounds based on START and END according to MODE.
If MODE is 0 then set point to (min START END), mark to (max START END).
If MODE is 1 then set point to start of word at (min START END),
mark to end of word at (max START END).
***************
*** 1181,1188 ****
;; Momentarily show where the mark is, if highlighting doesn't show it.
! (defvar mouse-region-delete-keys '([delete] [deletechar])
! "List of keys which shall cause the mouse region to be deleted.")
(defun mouse-show-mark ()
(let ((inhibit-quit t)
--- 1181,1190 ----
;; Momentarily show where the mark is, if highlighting doesn't show it.
! (defcustom mouse-region-delete-keys '([delete] [deletechar] [backspace])
! "List of keys that should cause the mouse region to be deleted."
! :group 'mouse
! :type '(repeat key-sequence))
(defun mouse-show-mark ()
(let ((inhibit-quit t)
- [Emacs-diffs] Changes to emacs/lisp/mouse.el,
Richard M . Stallman <=