Mercurial > emacs
changeset 76357:386921c38a15
(completion-setup-function): Improve last fix so it doesn't
set it to a relative directory name either.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 06 Mar 2007 02:18:05 +0000 |
| parents | 9da12b8fe476 |
| children | 24f9e7213c62 |
| files | lisp/ChangeLog lisp/simple.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Mar 05 23:44:56 2007 +0000 +++ b/lisp/ChangeLog Tue Mar 06 02:18:05 2007 +0000 @@ -1,3 +1,8 @@ +2007-03-06 Stefan Monnier <monnier@iro.umontreal.ca> + + * simple.el (completion-setup-function): Improve last fix so it doesn't + set it to a relative directory name either. + 2007-03-05 Vinicius Jose Latorre <viniciusjl@ig.com.br> * ps-print.el: Replace some (defvar VAR) by (defvar VAR nil).
--- a/lisp/simple.el Mon Mar 05 23:44:56 2007 +0000 +++ b/lisp/simple.el Tue Mar 06 02:18:05 2007 +0000 @@ -5088,8 +5088,8 @@ ;; so it will get copied into the completion list buffer. (if minibuffer-completing-file-name (with-current-buffer mainbuf - (setq default-directory (or (file-name-directory mbuf-contents) - default-directory)))) + (setq default-directory + (file-name-directory (expand-file-name mbuf-contents))))) (with-current-buffer standard-output (completion-list-mode) (set (make-local-variable 'completion-reference-buffer) mainbuf)