emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 97894b0: Remove a redundant let-binding from Ispell


From: Basil L. Contovounesios
Subject: master 97894b0: Remove a redundant let-binding from Ispell
Date: Fri, 30 Jul 2021 06:45:06 -0400 (EDT)

branch: master
commit 97894b07c2a6dea48f048e0d0c19d5717912cdf6
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>

    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.
---
 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 0a82bf5..4c64531 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]