bug#58447: [PATCH] In project-find-file, add absolute file name to history

[Augusto Stoffel <arstoffel@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 311 bytes --]

On Sat, 26 Nov 2022 at 04:28, Dmitry Gutov wrote:

> Sorry, I figured you had commit access.
>
> Now pushed, thanks.

It has been brought to my attention that I should have used
`abbreviate-file-name' for file name history items.  Unfortunately we
need to push a small fix.  Hopefully this can go in Emacs 29.


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-In-project-find-file-add-abbreviated-file-names-to-h.patch --]
[-- Type: text/x-patch, Size: 988 bytes --]

From 19957ae6b2db0c40de37c7c290a7113b0b33e6b7 Mon Sep 17 00:00:00 2001
From: Augusto Stoffel <arstoffel@gmail.com>
Date: Mon, 28 Nov 2022 23:50:41 +0100
Subject: [PATCH] In project-find-file, add abbreviated file names to history

* lisp/progmodes/project.el (project--read-file-cpd-relative): Use
'abbreviate-file-name'.
---
 lisp/progmodes/project.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 5b8648031f..3d567b42a0 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -954,7 +954,7 @@ project--read-file-cpd-relative
                                                      hist mb-default)))
          (absname (expand-file-name relname common-parent-directory)))
     (when (and hist history-add-new-input)
-      (add-to-history hist absname))
+      (add-to-history hist (abbreviate-file-name absname)))
     absname))
 
 (defun project--read-file-absolute (prompt
-- 
2.38.1