comparison lisp/mouse.el @ 6003:f9706301b805

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

6002:7507f44b1e5e

;; Choose a completion with the mouse.

;; 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))))
    (while (and (> len 0)
		(let ((tail (buffer-substring (point)
					      (+ (point) len))))
		  (not (string= tail (substring string 0 len)))))
      (setq len (1- len))

6003:f9706301b805

;; Choose a completion with the mouse.

;; Delete the longest partial match for STRING
;; that can be found before POINT.
(defun mouse-delete-max-match (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))))
		  (not (string= tail (substring string 0 len)))))
      (setq len (1- len))