4313 |
(if minibuffer-completing-file-name |
(if minibuffer-completing-file-name |
4314 |
(with-current-buffer mainbuf |
(with-current-buffer mainbuf |
4315 |
(setq default-directory (file-name-directory mbuf-contents)))) |
(setq default-directory (file-name-directory mbuf-contents)))) |
4316 |
|
;; If partial-completion-mode is on, point might not be after the |
4317 |
|
;; last character in the minibuffer. |
4318 |
|
;; FIXME: This still doesn't work if the text to be completed |
4319 |
|
;; starts with a `-'. |
4320 |
|
(when (and partial-completion-mode (not (eobp))) |
4321 |
|
(setq mbuf-contents |
4322 |
|
(substring mbuf-contents 0 (- (point) (point-max))))) |
4323 |
(with-current-buffer standard-output |
(with-current-buffer standard-output |
4324 |
(completion-list-mode) |
(completion-list-mode) |
4325 |
(make-local-variable 'completion-reference-buffer) |
(make-local-variable 'completion-reference-buffer) |