procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/progmodes/project.el (project--read-file-cpd-relative): Optimize.

Browse source
This commit is contained in:
Juri Linkov 2022-12-19 21:46:40 +02:00
parent 2b1fdbffcb
commit cfbfd393b4
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/progmodes/project.el
View file

@ -1040,13 +1040,14 @@ by the user at will."
(setq substrings (cons "./" substrings)))) (setq substrings (cons "./" substrings))))
(new-collection (project--file-completion-table substrings)) (new-collection (project--file-completion-table substrings))
(abbr-cpd (abbreviate-file-name common-parent-directory)) (abbr-cpd (abbreviate-file-name common-parent-directory))
(abbr-cpd-length (length abbr-cpd))
(relname (cl-letf ((history-add-new-input nil) (relname (cl-letf ((history-add-new-input nil)
((symbol-value hist) ((symbol-value hist)
(mapcan (mapcan
(lambda (s) (lambda (s)
(and (string-prefix-p abbr-cpd s) (and (string-prefix-p abbr-cpd s)
(not (eq (length abbr-cpd) (length s))) (not (eq abbr-cpd-length (length s)))
(list (substring s (length abbr-cpd))))) (list (substring s abbr-cpd-length))))
(symbol-value hist)))) (symbol-value hist))))
(project--completing-read-strict prompt (project--completing-read-strict prompt
new-collection new-collection