[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-29 cfbfd393b4: * lisp/progmodes/project.el (project--read-file-cpd
From: |
Juri Linkov |
Subject: |
emacs-29 cfbfd393b4: * lisp/progmodes/project.el (project--read-file-cpd-relative): Optimize. |
Date: |
Mon, 19 Dec 2022 14:48:15 -0500 (EST) |
branch: emacs-29
commit cfbfd393b450d4eb7ac0b7922b44208688553c9e
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/progmodes/project.el (project--read-file-cpd-relative): Optimize.
---
lisp/progmodes/project.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 605636d93e..c263379847 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1040,13 +1040,14 @@ by the user at will."
(setq substrings (cons "./" substrings))))
(new-collection (project--file-completion-table substrings))
(abbr-cpd (abbreviate-file-name common-parent-directory))
+ (abbr-cpd-length (length abbr-cpd))
(relname (cl-letf ((history-add-new-input nil)
((symbol-value hist)
(mapcan
(lambda (s)
(and (string-prefix-p abbr-cpd s)
- (not (eq (length abbr-cpd) (length s)))
- (list (substring s (length abbr-cpd)))))
+ (not (eq abbr-cpd-length (length s)))
+ (list (substring s abbr-cpd-length))))
(symbol-value hist))))
(project--completing-read-strict prompt
new-collection
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-29 cfbfd393b4: * lisp/progmodes/project.el (project--read-file-cpd-relative): Optimize.,
Juri Linkov <=