mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Make file-parent-directory more efficient

Browse source 
* lisp/files.el (file-parent-directory): Use equal instead of
file-equal-p to compare the found parent and the child
(bug#56355).  This is much faster.
This commit is contained in:
Daanturo 2022-09-01 12:08:05 +02:00 • committed by Lars Ingebrigtsen
parent e7193902b2
commit f0319cd86f
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/files.el
View file

@ -5196,7 +5196,9 @@ to `default-directory', and the result will also be relative."
(cond
;; filename is at top-level, therefore no parent
((or (null parent)
(file-equal-p parent expanded-filename))
;; `equal' is enough, we don't need to resolve symlinks here
;; with `file-equal-p', also for performance
(equal parent expanded-filename))
nil)
;; filename is relative, return relative parent
((not (file-name-absolute-p filename))