(mouse-delete-max-match): Set len properly.

1 files changed, 4 insertions, 3 deletions

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 64f188928c8..c3f69340c85 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1175,9 +1175,10 @@ and selects that window."
 ;; Delete the longest partial match for STRING
 ;; that can be found before POINT.
 (defun mouse-delete-max-match (string)
-  (let ((len (min (length string)
-                  (- (point-max) (point-min)))))
-    (goto-char (max (point-min) (- (point) (length string))))
+  (let ((opoint (point))
+        (len (min (length string)
+                  (- (point) (point-min)))))
+    (goto-char (- (point) (length string)))
     (while (and (> len 0)
                 (let ((tail (buffer-substring (point)
                                               (+ (point) len))))