emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/project-switching 9422fb5 03/15: Improve project name completion


From: Simen Heggestøyl
Subject: feature/project-switching 9422fb5 03/15: Improve project name completion
Date: Tue, 26 May 2020 11:43:18 -0400 (EDT)

branch: feature/project-switching
commit 9422fb5e686a66898c2de76226f8a404ab253136
Author: Dmitry Gutov <address@hidden>
Commit: Simen Heggestøyl <address@hidden>

    Improve project name completion
    
    * lisp/progmodes/project.el:
    (project-prompt-project-dir): Use REQUIRE-MATCH=t.  Make sure the
    'substring' completion style is used by default.
---
 lisp/progmodes/project.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index fd691be..3e943ca 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -763,8 +763,12 @@ The project is chosen among projects known from the 
project list.
 It's also possible to enter an arbitrary directory."
   (project--ensure-read-project-list)
   (let* ((dir-choice "... (choose a dir)")
-         (choices (append project--list `(,dir-choice)))
-         (pr-dir (completing-read "Project: " choices)))
+         (choices
+          ;; XXX: Just using this for the category (for the substring
+          ;; completion style).
+          (project--file-completion-table
+           (append project--list `(,dir-choice))))
+         (pr-dir (completing-read "Project: " choices nil t)))
     (if (equal pr-dir dir-choice)
         (read-directory-name "Choose directory: " default-directory nil t)
       pr-dir)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]