From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Fri, 30 Jul 2021 10:30:53 +0000 (+0100)
Subject: Remove a redundant let-binding from Ispell
X-Git-Tag: emacs-28.0.90~1654
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=97894b07c2a6dea48f048e0d0c19d5717912cdf6;p=emacs.git

Remove a redundant let-binding from Ispell

Recent optimizer changes revealed a case-fold-search binding in
Ispell that was made redundant in the revision of 2020-11-03
"Simplify ispell-check-version’s use of -vv flag".

* lisp/textmodes/ispell.el (ispell-check-version): Remove no-op
binding of case-fold-search.
---

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 0a82bf5a2d4..4c64531ea35 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -649,11 +649,7 @@ Otherwise returns the library directory name, if that is defined."
 	result libvar status ispell-program-version)
 
     (with-temp-buffer
-      (setq status (ispell-call-process
-		    ispell-program-name nil t nil
-		    (let ((case-fold-search
-			   (memq system-type '(ms-dos windows-nt))))
-		      "-vv")))
+      (setq status (ispell-call-process ispell-program-name nil t nil "-vv"))
       (goto-char (point-min))
       (if interactivep
 	  ;; Report version information of ispell