Commit 313558ae authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent acd622cc
......@@ -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))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment