mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 15:21:51 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/files.el (file-name-non-special): Handle quoted tilde.

Browse source 
(Bug#65685)

* test/lisp/files-tests.el
(files-tests-file-name-non-special-expand-file-name-tilde):
New test.
This commit is contained in:
Michael Albinus 2023-10-14 09:34:40 +02:00
parent c8ea14e782
commit dc8b336d02
2 changed files with 26 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

17
test/lisp/files-tests.el
View file

@ -662,6 +662,23 @@ unquoted file names."
(files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
(should (equal (expand-file-name nospecial) nospecial))))
(ert-deftest files-tests-file-name-non-special-expand-file-name-tilde ()
(let ((process-environment
(cons (format "HOME=%s" temporary-file-directory) process-environment))
abbreviated-home-dir)
(files-tests--with-temp-non-special (tmpfile nospecial)
(let (file-name-handler-alist)
(setq nospecial (file-name-quote (abbreviate-file-name tmpfile))))
(should (equal (expand-file-name nospecial)
(expand-file-name (file-name-unquote nospecial t)))))
(files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial)
(let (file-name-handler-alist)
(setq nospecial (file-name-quote (abbreviate-file-name tmpfile))))
(should-not
(equal (expand-file-name nospecial)
;; The file name handler deletes the ".special" extension.
(expand-file-name (file-name-unquote nospecial t)))))))
(ert-deftest files-tests-file-name-non-special-file-accessible-directory-p ()
(files-tests--with-temp-non-special (tmpdir nospecial-dir t)
(should (file-accessible-directory-p nospecial-dir)))