(pcomplete/cd): Complete more than one argument, just in case.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d221bf207af3dd634e6202c22ae7efc5ac339b02..83b80072381fac8a728c7593e7a07ebf8a0e2af9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-12-01  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * pcmpl-unix.el (pcomplete/cd): Complete more than one argument, just
+       in case.
+
        * pcomplete.el (pcomplete-std-complete): Don't try to complete past
        the last element.
 

diff --git a/lisp/pcmpl-unix.el b/lisp/pcmpl-unix.el
index c12920f76d2ca5bab74c1096355b36a24b795778..9d33ed196219a6dbd377b3b67a2a8321539ce600 100644 (file)
--- a/lisp/pcmpl-unix.el
+++ b/lisp/pcmpl-unix.el
@@ -51,7 +51,7 @@ with the SSH option \"HashKnownHosts no\"."
 ;;;###autoload
 (defun pcomplete/cd ()
   "Completion for `cd'."
-  (pcomplete-here (pcomplete-dirs)))
+  (while (pcomplete-here (pcomplete-dirs))))
 
 ;;;###autoload
 (defalias 'pcomplete/pushd 'pcomplete/cd)