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

Fix problem with non-absolute names

Browse source 
* lisp/files.el (file-name-split): Fix problem with non-absolute
names.
This commit is contained in:
Lars Ingebrigtsen 2021-11-11 13:20:34 +01:00
parent bf9364a56e
commit d75558f11c
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/files.el
View file

@ -5069,7 +5069,7 @@ On most systems, this will be true:
(setq filename (and dir (directory-file-name dir)))
;; If there's nothing left to peel off, we're at the root and
;; we can stop.
(when (equal dir filename)
(when (and dir (equal dir filename))
(push "" components)
(setq filename nil))))
components))

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

@ -1806,7 +1806,7 @@ Prompt users for any modified buffer with `buffer-offer-save' non-nil."
;; `save-some-buffers-default-predicate' (i.e. the 2nd element) is ignored.
(nil save-some-buffers-root ,nb-might-save))))))
(defun test-file-name-split ()
(ert-deftest test-file-name-split ()
(should (equal (file-name-split "foo/bar") '("foo" "bar")))
(should (equal (file-name-split "/foo/bar") '("" "foo" "bar")))
(should (equal (file-name-split "/foo/bar/zot") '("" "foo" "bar" "zot")))