]> git.eshelyaron.com Git - emacs.git/commitdiff
Make project file name completion adhere to customization
authorDmitry Gutov <dgutov@yandex.ru>
Tue, 16 Jun 2020 21:50:31 +0000 (00:50 +0300)
committerDmitry Gutov <dgutov@yandex.ru>
Tue, 16 Jun 2020 22:24:40 +0000 (01:24 +0300)
* lisp/progmodes/project.el (project-find-file-in):
Bind completion-ignore-case to the value of
read-file-name-completion-ignore-case (bug#41902).

lisp/progmodes/project.el

index f3df44fa7babed1fdcaabc5321696ba545239554..22e57b4fe6f8cb6ff272fc67dc718e90952cddd1 100644 (file)
@@ -644,6 +644,7 @@ PREDICATE, HIST, and DEFAULT have the same meaning as in
 (defun project-find-file-in (filename dirs project)
   "Complete FILENAME in DIRS in PROJECT and visit the result."
   (let* ((all-files (project-files project dirs))
+         (completion-ignore-case read-file-name-completion-ignore-case)
          (file (funcall project-read-file-name-function
                        "Find file" all-files nil nil
                        filename)))