(mouse-move-drag-overlay): Fix last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc5fff2f3ffe713a0fabbbcb32997483d5e6aa90..9b33c9c0ea2a274b5834802faf0c0e79dfc92ce8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,11 +1,14 @@
+2005-09-22  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * mouse.el (mouse-move-drag-overlay): Fix last change.
+
 2005-09-22  David Ponce  <david@dponce.com>
 
        * tree-widget.el (tree-widget-value-create): Fix previous change.
 
 2005-09-21  Dan Nicolaescu  <dann@ics.uci.edu>
 
-       * 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  <monnier@iro.umontreal.ca>
 
@@ -117,8 +120,16 @@
 
 2005-09-18  D Goel  <deego@gnufans.org>
 
-       * 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 0723bc1b7c0e4d6d8d85e2b480b473882fc244f2..5390abacb5ceb9191f6f61b38005f19cc3b1a496 100644 (file)
--- 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)