From: Mark Diekhans <markd@ucsc.edu>
Date: Sun, 24 Feb 2019 18:27:09 +0000 (-0800)
Subject: Improve ispell.el diagnostics if Hunspell dictionaries aren't found
X-Git-Tag: emacs-27.0.90~3459
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0dbc4a697afb2a1e409909289f608fd4da875c24;p=emacs.git

Improve ispell.el diagnostics if Hunspell dictionaries aren't found

* lisp/textmodes/ispell.el (ispell-set-spellchecker-params):
Set ispell-last-program-name only at the end, so as to produce
useful diagnostics when Hunspell dictionaries are not found.
(Bug#34640)

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 35dae7bc432..6553a2799bb 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1273,7 +1273,6 @@ aspell is used along with Emacs).")
 (defun ispell-set-spellchecker-params ()
   "Initialize some spellchecker parameters when changed or first used."
   (unless (eq ispell-last-program-name ispell-program-name)
-    (setq ispell-last-program-name ispell-program-name)
     (ispell-kill-ispell t)
     (if (and (condition-case ()
 		 (progn
@@ -1388,7 +1387,8 @@ aspell is used along with Emacs).")
                            (nth 7 adict)))
                       adict)
                     tmp-dicts-alist :test #'equal))
-      (setq ispell-dictionary-alist tmp-dicts-alist))))
+      (setq ispell-dictionary-alist tmp-dicts-alist)))
+      (setq ispell-last-program-name ispell-program-name))
 
 (defun ispell-valid-dictionary-list ()
   "Return a list of valid dictionaries.