aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorShip Mints2025-02-12 18:02:28 +0200
committerDmitry Gutov2025-02-12 18:03:54 +0200
commit2bb38cc46dfedfb1547746d9123d6b433ccdaca4 (patch)
tree5876da89e57328ea8967ceb13a44a8595d2ed445
parent8eef8907392942a8ececc0f989fa0bb031f4af18 (diff)
downloademacs-2bb38cc46dfedfb1547746d9123d6b433ccdaca4.tar.gz
emacs-2bb38cc46dfedfb1547746d9123d6b433ccdaca4.zip
Make reading project--list safer
* lisp/progmodes/project.el (project--read-project-list): Ensure that each directory has a trailing '/' (bug#75983).
-rw-r--r--lisp/progmodes/project.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 5dd10071a1c..fe8a765d194 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1824,7 +1824,8 @@ With some possible metadata (to be decided).")
1824 (lambda (elem) 1824 (lambda (elem)
1825 (let ((name (car elem))) 1825 (let ((name (car elem)))
1826 (list (if (file-remote-p name) name 1826 (list (if (file-remote-p name) name
1827 (abbreviate-file-name name))))) 1827 (file-name-as-directory
1828 (abbreviate-file-name name))))))
1828 (condition-case nil 1829 (condition-case nil
1829 (read (current-buffer)) 1830 (read (current-buffer))
1830 (end-of-file 1831 (end-of-file