diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2021-08-08 17:29:56 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2021-08-08 17:29:56 +0300 |
| commit | 1cae6b9aab0796f5fdb97aafaa018b8081ebb294 (patch) | |
| tree | e0a7d8e2cff82802245f2d13389c12c16b82244a /lisp | |
| parent | fd2d56d63c8a9dbc5a96d2eb746761b2ecc2c573 (diff) | |
| download | emacs-1cae6b9aab0796f5fdb97aafaa018b8081ebb294.tar.gz emacs-1cae6b9aab0796f5fdb97aafaa018b8081ebb294.tar.bz2 emacs-1cae6b9aab0796f5fdb97aafaa018b8081ebb294.zip | |
Another fix for parse-colon-path
* test/lisp/files-tests.el (files-tests-bug-21454, files-colon-path):
Adapt to change in behavior of 'parse-colon-path'.
* lisp/files.el (parse-colon-path): Don't expand the directory
names: that changes the names in ways this function is not
supposed to. (Bug#49918)
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index b58f90db48c..89ee13eb686 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -783,9 +783,6 @@ nil (meaning `default-directory') as the associated list element." (mapcar (lambda (f) (if (equal "" f) nil (let ((dir (file-name-as-directory f))) - (when (file-name-absolute-p dir) - ;; Expand "~". - (setq dir (expand-file-name dir))) ;; Previous implementation used `substitute-in-file-name' ;; which collapse multiple "/" in front. Do the same for ;; backward compatibility. |