From: Reuben Thomas <rrt@sc3d.org>
Date: Mon, 2 Nov 2020 18:06:11 +0000 (+0000)
Subject: Make ispell.el ignore warnings from enchant-lsmod (closes #44318)
X-Git-Tag: emacs-28.0.90~5278
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=55e92de6d5bf43651c687b857cf18773628fe253;p=emacs.git

Make ispell.el ignore warnings from enchant-lsmod (closes #44318)

* lisp/textmodes/ispell.el (ispell--call-enchant-lsmod): Don’t capture
  stderr. Also remove unnecessary with-current-buffer wrapper.
---

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 05a4bd058c4..413d8802a16 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1216,13 +1216,11 @@ Internal use.")
 (defun ispell--call-enchant-lsmod (&rest args)
   "Call enchant-lsmod with ARGS and return the output as string."
   (with-output-to-string
-    (with-current-buffer
-        standard-output
-      (apply #'ispell-call-process
-             (replace-regexp-in-string "enchant\\(-[0-9]\\)?\\'"
-                                       "enchant-lsmod\\1"
-                                       ispell-program-name)
-             nil t nil args))))
+    (apply #'ispell-call-process
+           (replace-regexp-in-string "enchant\\(-[0-9]\\)?\\'"
+                                     "enchant-lsmod\\1"
+                                     ispell-program-name)
+           nil '(t nil) nil args)))
 
 (defun ispell--get-extra-word-characters (&optional lang)
   "Get the extra word characters for LANG as a character class.