bug#57649: 27.1; Spell check on remote file fails on windows.

[Nick Longo]

Sorry for the slow reply, I've been swamped at work.  I'll apply it this 
weekend and let you know.

--Nick

-----Original Message-----
From: Eli Zaretskii <eliz@gnu.org> 
Sent: Saturday, September 17, 2022 3:13 AM
To: Michael Albinus <michael.albinus@gmx.de>
Cc: 57649@debbugs.gnu.org; Nick Longo <nlongo@mathworks.com>
Subject: Re: bug#57649: 27.1; Spell check on remote file fails on windows.

> From: Michael Albinus <michael.albinus@gmx.de>
> Cc: 57649@debbugs.gnu.org,  nlongo@mathworks.com
> Date: Sat, 17 Sep 2022 08:39:53 +0200
> 
> Eli Zaretskii <eliz@gnu.org> writes:
> 
> Hi Eli,
> 
> > Ping! Ping!
> >
> > Michael, could you please respond?
> 
> I believe your patch should fix it. But since I'm not on MS Windows 
> (usually), I cannot check.

Thanks, installed on the master branch.

Nick, can you verify that this solves your problem?  The patch is below, if you 
need to apply it by hand.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 
4b5ed98..b3fb326 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -740,7 +740,8 @@ ispell-with-safe-default-directory
   "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))