procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

One more fix for find-file.el

Browse source 
* 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)
This commit is contained in:
Eli Zaretskii 2022-08-30 19:09:00 +03:00
parent 0cbcaf5119
commit bbc23ca8ab
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/find-file.el
View file

@ -216,9 +216,9 @@ matching extension or name (e.g., `.cc' yields `.hh').
This alist should be set by the major mode. This alist should be set by the major mode.
Note: if an element of the alist names a FUNCTION as its cdr, that 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 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))) :type '(choice (repeat (list regexp (choice (repeat string) function)))
symbol)) symbol))
@ -629,7 +629,7 @@ name of the first file found."
(while (and suffixes (not found)) (while (and suffixes (not found))
(setq filename (concat fname-stub this-suffix)) (setq filename (concat fname-stub this-suffix))
(setq file (concat dir "/" filename)) (setq file (expand-file-name filename dir))
(if (not ff-quiet-mode) (if (not ff-quiet-mode)
(message "Finding %s..." file)) (message "Finding %s..." file))