From 313558ae3149dd51c79cfa86ce65c138ed65e267 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 18 Feb 1994 23:51:12 +0000
Subject: [PATCH] (mouse-delete-max-match): Set len properly.

---
 lisp/mouse.el | 7 ++++---
 1 file 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))))
-- 
2.39.5