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

* lisp/files-x.el (connection-local-value): Fix Dired crash.

Browse source
This commit is contained in:
Po Lu 2023-12-10 22:05:09 +08:00
parent da8fd95cdb
commit 79aca35c1f
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/files-x.el
View file

@ -935,8 +935,13 @@ value is the default binding of the variable."
(unless (symbolp variable)
(signal 'wrong-type-argument (list 'symbolp variable)))
`(let (connection-local-variables-alist file-local-variables-alist)
(hack-connection-local-variables
(connection-local-criteria-for-default-directory ,application))
;; This is a macro, so whether it is autoloaded doesn't influence
;; whether its callers will induce the loading of files-x.el.
;;
;; Verify that h-c-l-v is autoloaded before calling it.
(when (fboundp 'hack-connection-local-variables)
(hack-connection-local-variables
(connection-local-criteria-for-default-directory ,application)))
(if-let ((result (assq ',variable connection-local-variables-alist)))
(cdr result)
,variable)))