[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/simple.el
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/simple.el |
Date: |
Fri, 23 Jul 2004 13:52:16 -0400 |
Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.650 emacs/lisp/simple.el:1.651
*** emacs/lisp/simple.el:1.650 Fri Jul 16 10:42:00 2004
--- emacs/lisp/simple.el Fri Jul 23 11:52:03 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)