From 39739f21c6f483440e870242a73f436081b78bba Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 22 Sep 2005 21:30:58 +0000 Subject: [PATCH] (mouse-move-drag-overlay): Fix last change. --- lisp/ChangeLog | 19 +++++++++++++++---- lisp/mouse.el | 5 +++-- 2 files changed, 18 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cc5fff2f3ff..9b33c9c0ea2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,11 +1,14 @@ +2005-09-22 Stefan Monnier + + * mouse.el (mouse-move-drag-overlay): Fix last change. + 2005-09-22 David Ponce * tree-widget.el (tree-widget-value-create): Fix previous change. 2005-09-21 Dan Nicolaescu - * term/xterm.el (terminal-init-xterm): Fix loading rxvt at run - time. + * term/xterm.el (terminal-init-xterm): Fix loading rxvt at run time. 2005-09-21 Stefan Monnier @@ -117,8 +120,16 @@ 2005-09-18 D Goel - * apropos.el (apropos-command): - * textmodes/tildify.el (tildify-region): + * apropos.el (apropos-command): Fix `message' call: first arg + should be a format spec. In this and all other cases that appear + below and elsewhere in the source code, I made a change only when + two conditions were satisfied: [1] I can think of a possibility + that the arguments would cause an error, for example, the code in + question relies on external variables such as filenames. [2] I + was sure that the arg to `message' could not have been nil in the code. + + * textmodes/tildify.el (tildify-region): Ditto. + * textmodes/reftex-index.el (reftex-index-change-entry) (reftex-index-phrase-selection-or-word, reftex-query-index-phrase): * textmodes/reftex-dcr.el (reftex-echo-ref, reftex-echo-cite): diff --git a/lisp/mouse.el b/lisp/mouse.el index 0723bc1b7c0..5390abacb5c 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -868,8 +868,9 @@ at the same position." ;; that a tiny move during a single-click would cause the intangible ;; text to be selected. (goto-char start) - (goto-char end)) - (let ((range (mouse-start-end start (point) mode))) + (goto-char end) + (setq end (point))) + (let ((range (mouse-start-end start end mode))) (move-overlay ol (car range) (nth 1 range)))) (defun mouse-drag-region-1 (start-event) -- 2.39.2