1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00

Fix running spell-checking in remote buffers

* lisp/textmodes/ispell.el (ispell-with-safe-default-directory):
Don't use remote 'default-directory' when running the speller.
(Bug#57649)
This commit is contained in:
Eli Zaretskii 2022-09-17 10:10:10 +03:00
parent 8ec7f8f169
commit 809afde01d

View File

@ -740,7 +740,8 @@ Otherwise returns the library directory name, if that is defined."
"Execute the forms in BODY with a reasonable `default-directory'."
(declare (indent 0) (debug t))
`(let ((default-directory default-directory))
(unless (file-accessible-directory-p default-directory)
(unless (and (not (file-remote-p default-directory))
(file-accessible-directory-p default-directory))
(setq default-directory (expand-file-name "~/")))
,@body))