Re: patch for locate-file-completion?

[Richard Stallman]

It looks to me like right fix is this one.
Does this look right to you?

diff -c /home/rms/emacs/lisp/files.el.\~80\~ /home/rms/emacs/lisp/files.el
*** /home/rms/emacs/lisp/files.el.~80~  Mon Mar 29 23:58:25 2004
--- /home/rms/emacs/lisp/files.el       Thu Apr  1 10:31:51 2004
***************
*** 616,621 ****
--- 616,623 ----
          (suffix (concat (regexp-opt (cdr path-and-suffixes) t) "\\'"))
          (string-dir (file-name-directory string)))
        (dolist (dir (car path-and-suffixes))
+       (unless dir
+         (setq dir default-directory))
        (if string-dir (setq dir (expand-file-name string-dir dir)))
        (when (file-directory-p dir)
          (dolist (file (file-name-all-completions

Diff finished.  Thu Apr  1 10:32:37 2004