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

in the minibuffer, so it'll be copied into the completion list buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 914109a1b8bb37ac9f01f83e4365cdeba6602dfb..61565d5fb1d4106bc954162d6351426a13076257 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/simple.el b/lisp/simple.el
index 39b2631d2b65fa29fa4289d97a5b00294aa901fd..c0028a082334c8697a55c13795722edf9e09cf90 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -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)