diff options
| author | Augusto Stoffel <arstoffel@gmail.com> | 2022-10-11 20:21:34 +0200 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2022-11-26 14:34:11 +0200 |
| commit | 24c06a92e96e53438e45a9b5f7ae34647ab76643 (patch) | |
| tree | 408e4a354602e19c9f683f7f5b42267d8a4bf848 | |
| parent | b84408647c43e9eed40b16153d0a0623dfa700c3 (diff) | |
| download | emacs-24c06a92e96e53438e45a9b5f7ae34647ab76643.tar.gz | |
In project-find-file and the like, add absolute file name to history
* lisp/progmodes/project.el (project--read-file-cpd-relative): Add
absolute file name to history.
| -rw-r--r-- | lisp/progmodes/project.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el index 71061e6139d..5b8648031fb 100644 --- a/lisp/progmodes/project.el +++ b/lisp/progmodes/project.el @@ -947,11 +947,15 @@ by the user at will." (_ (when included-cpd (setq substrings (cons "./" substrings)))) (new-collection (project--file-completion-table substrings)) - (res (project--completing-read-strict prompt - new-collection - predicate - hist mb-default))) - (concat common-parent-directory res))) + (relname (let ((history-add-new-input nil)) + (project--completing-read-strict prompt + new-collection + predicate + hist mb-default))) + (absname (expand-file-name relname common-parent-directory))) + (when (and hist history-add-new-input) + (add-to-history hist absname)) + absname)) (defun project--read-file-absolute (prompt all-files &optional predicate |