mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-23 10:34:07 +00:00
Avoid signaling errors from ls-lisp--insert-directory on macOS
* lisp/ls-lisp.el (ls-lisp-sanitize): Don't assume the directory entries for ".." and "." will either both be present or both absent. (Bug#37236)
This commit is contained in:
parent
4a919b1bbc
commit
616835312e
@ -517,7 +517,8 @@ If the \"..\" directory entry has nil attributes, the attributes
|
||||
are copied from the \".\" entry, if they are non-nil. Otherwise,
|
||||
the offending element is removed from the list, as are any
|
||||
elements for other directory entries with nil attributes."
|
||||
(if (and (null (cdr (assoc ".." file-alist)))
|
||||
(if (and (consp (assoc ".." file-alist))
|
||||
(null (cdr (assoc ".." file-alist)))
|
||||
(cdr (assoc "." file-alist)))
|
||||
(setcdr (assoc ".." file-alist) (cdr (assoc "." file-alist))))
|
||||
(rassq-delete-all nil file-alist))
|
||||
|
Loading…
Reference in New Issue
Block a user