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

[Miles Bader]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.551.2.21 emacs/lisp/simple.el:1.551.2.22
*** emacs/lisp/simple.el:1.551.2.21     Fri Jul 23 04:42:20 2004
--- emacs/lisp/simple.el        Sat Sep  4 09:18:38 2004
***************
*** 4313,4318 ****
--- 4313,4325 ----
      (if minibuffer-completing-file-name
        (with-current-buffer mainbuf
          (setq default-directory (file-name-directory mbuf-contents))))
+     ;; If partial-completion-mode is on, point might not be after the
+     ;; last character in the minibuffer.
+     ;; FIXME: This still doesn't work if the text to be completed
+     ;; starts with a `-'.
+     (when (and partial-completion-mode (not (eobp)))
+       (setq mbuf-contents
+           (substring mbuf-contents 0 (- (point) (point-max)))))
      (with-current-buffer standard-output
        (completion-list-mode)
        (make-local-variable 'completion-reference-buffer)