[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/project-uniquify-files 1c21e96: Fix bug in project
From: |
Stephen Leake |
Subject: |
[Emacs-diffs] scratch/project-uniquify-files 1c21e96: Fix bug in project--completing-read-strict |
Date: |
Sat, 20 Apr 2019 13:12:13 -0400 (EDT) |
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" ())
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] scratch/project-uniquify-files 1c21e96: Fix bug in project--completing-read-strict,
Stephen Leake <=