diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2022-09-17 10:10:10 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-09-17 10:10:10 +0300 |
| commit | 809afde01d8265c3808e9c724b9bce09c571d5c6 (patch) | |
| tree | 85a1631ab47a71eb50fa8cea622ecd085a16326b | |
| parent | 8ec7f8f1699ca1ab4d1e75b369ea231f5802f0e3 (diff) | |
| download | emacs-809afde01d8265c3808e9c724b9bce09c571d5c6.tar.gz | |
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)
| -rw-r--r-- | lisp/textmodes/ispell.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 4b5ed98ecc9..b3fb326cf9b 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -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)) |