diff options
| author | Ship Mints | 2025-02-12 18:02:28 +0200 |
|---|---|---|
| committer | Dmitry Gutov | 2025-02-12 18:03:54 +0200 |
| commit | 2bb38cc46dfedfb1547746d9123d6b433ccdaca4 (patch) | |
| tree | 5876da89e57328ea8967ceb13a44a8595d2ed445 | |
| parent | 8eef8907392942a8ececc0f989fa0bb031f4af18 (diff) | |
| download | emacs-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.el | 3 |
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 |