[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
emacs-28 bbc23ca8ab: One more fix for find-file.el
From: |
Eli Zaretskii |
Subject: |
emacs-28 bbc23ca8ab: One more fix for find-file.el |
Date: |
Tue, 30 Aug 2022 12:09:21 -0400 (EDT) |
branch: emacs-28
commit bbc23ca8ab42d7a45bcbadd5ffd911868eb6f99d
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>
One more fix for find-file.el
* lisp/find-file.el (ff-get-file-name): Use 'expand-file-name'
instead of 'concat', which doesn't DTRT with absolute file names.
(ff-other-file-alist): Yet another doc fix. (Bug#57325)
---
lisp/find-file.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/find-file.el b/lisp/find-file.el
index aaabec11e8..646779fc91 100644
--- a/lisp/find-file.el
+++ b/lisp/find-file.el
@@ -216,9 +216,9 @@ matching extension or name (e.g., `.cc' yields `.hh').
This alist should be set by the major mode.
Note: if an element of the alist names a FUNCTION as its cdr, that
-function must return a non-nil list of file-name extensions. It cannot
+function must return a non-nil list of file-names. It cannot
return nil, nor can it signal in any way a failure to find a suitable
-list of extensions."
+list of file names."
:type '(choice (repeat (list regexp (choice (repeat string) function)))
symbol))
@@ -629,7 +629,7 @@ name of the first file found."
(while (and suffixes (not found))
(setq filename (concat fname-stub this-suffix))
- (setq file (concat dir "/" filename))
+ (setq file (expand-file-name filename dir))
(if (not ff-quiet-mode)
(message "Finding %s..." file))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- emacs-28 bbc23ca8ab: One more fix for find-file.el,
Eli Zaretskii <=