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

(completion-setup-function): Set default-directory

Browse source 
in the minibuffer, so it'll be copied into the completion list buffer.
This commit is contained in:
Richard M. Stallman 2003-01-20 09:03:09 +00:00
parent 2afd5e90eb
commit c2639ed073
2 changed files with 20 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/ChangeLog
View file

@ -1,3 +1,15 @@
2003-01-20 Richard M. Stallman <rms@gnu.org>
* simple.el (completion-setup-function): Set default-directory
in the minibuffer, so it'll be copied into the completion list buffer.
* emacs-lisp/regexp-opt.el (regexp-opt-group): Compute HALF2 properly.
* loadup.el (load-path): Rename `path' local var.
* progmodes/octave-mod.el (octave-mode-map): Change C-c i bindings
to C-c C-i. Duplicate its bindings with last char a ctl char.
2003-01-20 Markus Rost <rost@math.ohio-state.edu>
* ls-lisp.el (ls-lisp-use-insert-directory-program): Make default

9
lisp/simple.el
View file

@ -3959,7 +3959,14 @@ The completion list buffer is available as the value of `standard-output'.")
(defun completion-setup-function ()
(save-excursion
(let ((mainbuf (current-buffer)))
(let ((mainbuf (current-buffer))
(mbuf-contents (minibuffer-contents)))
;; When reading a file name in the minibuffer,
;; set default-directory in the minibuffer
;; so it will get copied into the completion list buffer.
(if minibuffer-completing-file-name
(with-current-buffer mainbuf
(setq default-directory (file-name-directory mbuf-contents))))
(set-buffer standard-output)
(completion-list-mode)
(make-local-variable 'completion-reference-buffer)