From 97894b07c2a6dea48f048e0d0c19d5717912cdf6 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Fri, 30 Jul 2021 11:30:53 +0100 Subject: [PATCH] Remove a redundant let-binding from Ispell MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit 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. --- lisp/textmodes/ispell.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) 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 -- 2.39.2