Do not prompt twice to save a buffer

[gnu-emacs] / lisp / pcmpl-gnu.el

diff --git a/lisp/pcmpl-gnu.el b/lisp/pcmpl-gnu.el
index 84e42aefbf9d025301267a0449bbe85fcc495ef5..e4e8f3a2c533d8e92e29b624b8fcbbb5ffde4009 100644 (file)
--- a/lisp/pcmpl-gnu.el
+++ b/lisp/pcmpl-gnu.el
@@ -329,8 +329,9 @@
            nil 'identity))))
 
 ;;;###autoload
+
 (defun pcomplete/find ()
-  "Completion for GNU find utility."
+  "Completion for the GNU find utility."
   (let ((prec (pcomplete-arg 'last -1)))
     (cond ((and (pcomplete-match "^-" 'last)
                 (string= "find" prec))
@@ -361,7 +362,7 @@
                (string= prec "-execdir"))
            (while (pcomplete-here* (funcall pcomplete-command-completion-function)
                                    (pcomplete-arg 'last) t))))
-    (while (pcomplete-here (pcomplete-entries) nil 'identity))))
+    (while (pcomplete-here (pcomplete-dirs) nil 'identity))))
 
 ;;;###autoload
 (defalias 'pcomplete/gdb 'pcomplete/xargs)