summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorBasil L. Contovounesios <contovob@tcd.ie>2021-07-30 11:30:53 +0100
committerBasil L. Contovounesios <contovob@tcd.ie>2021-07-30 11:30:53 +0100
commit97894b07c2a6dea48f048e0d0c19d5717912cdf6 (patch)
treefff6e732b33fec2c5cac8396009dc28f8937fd56 /lisp
parent5f65b67daccf7f4f30274f147a1adb5142328c6d (diff)
downloademacs-97894b07c2a6dea48f048e0d0c19d5717912cdf6.tar.gz
emacs-97894b07c2a6dea48f048e0d0c19d5717912cdf6.tar.bz2
emacs-97894b07c2a6dea48f048e0d0c19d5717912cdf6.zip
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.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/textmodes/ispell.el6
1 files changed, 1 insertions, 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