[Emacs-diffs] Changes to emacs/lisp/simple.el

[Richard M. Stallman]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.558 emacs/lisp/simple.el:1.559
*** emacs/lisp/simple.el:1.558  Tue Jul 16 09:38:19 2002
--- emacs/lisp/simple.el        Thu Jul 18 10:57:46 2002
***************
*** 3782,3795 ****
  ;; 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)))
      (if completion-ignore-case
        (setq string (downcase string)))
      (while (and (> len 0)
!               (let ((tail (buffer-substring (point)
!                                             (+ (point) len))))
                  (if completion-ignore-case
                      (setq tail (downcase tail)))
                  (not (string= tail (substring string 0 len)))))
--- 3782,3798 ----
  ;; that can be found before POINT.
  (defun choose-completion-delete-max-match (string)
    (let ((opoint (point))
!       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) opoint)))
                  (if completion-ignore-case
                      (setq tail (downcase tail)))
                  (not (string= tail (substring string 0 len)))))