[Emacs-diffs] scratch/project-uniquify-files 1c21e96: Fix bug in project--completing-read-strict

[Stephen Leake]

branch: scratch/project-uniquify-files
commit 1c21e96c120bbd0ed5d3b2c8a8fa3d74ccb95993
Author: Stephen Leake <address@hidden>
Commit: Stephen Leake <address@hidden>

    Fix bug in project--completing-read-strict
    
    * lisp/progmodes/project.el (project--completing-read-strict): Fix bugs.
---
 lisp/progmodes/project.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index f05e1f9..61ffb0d 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -484,7 +484,7 @@ recognized."
   (let* ((prompt (if default
                      (format "%s (default %s): " prompt default)
                    (format "%s: " prompt)))
-         (res (completing-read (format "%s: " prompt)
+         (res (completing-read prompt
                        collection predicate
                        t   ;; require-match
                        nil ;; initial-input
@@ -496,10 +496,10 @@ recognized."
       ;; enough.  Removal is confusing; early expansion makes the prompt
       ;; too long.
       (setq res
-            (completing-read (format "%s: " prompt)
+            (completing-read prompt
                              collection predicate t res hist nil
                              inherit-input-method)))
-    ))
+    res))
 
 (declare-function fileloop-continue "fileloop" ())