mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(choose-completion-delete-max-match): Handle minibuffer prompts explicitly.

Browse source
This commit is contained in:
Richard M. Stallman 2002-07-18 14:57:46 +00:00
parent eafb38497e
commit f0bfada77f
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/simple.el
View file

@ -3782,14 +3782,17 @@ With prefix argument N, move N items (negative N means move backward)."
;; that can be found before POINT.
(defun choose-completion-delete-max-match (string)
(let ((opoint (point))
(len (min (length string)
(- (point) (point-min)))))
(goto-char (- (point) (length string)))
len)
;; Try moving back by the length of the string.
(goto-char (max (- (point) (length string))
(minibuffer-prompt-end)))
;; See how far back we were actually able to move. That is the
;; upper bound on how much we can match and delete.
(setq len (- opoint (point)))
(if completion-ignore-case
(setq string (downcase string)))
(while (and (> len 0)
(let ((tail (buffer-substring (point)
(+ (point) len))))
(let ((tail (buffer-substring (point) opoint)))
(if completion-ignore-case
(setq tail (downcase tail)))
(not (string= tail (substring string 0 len)))))