[Emacs-diffs] master 0dbc4a6: Improve ispell.el diagnostics if Hunspell dictionaries aren't found

[Eli Zaretskii]

branch: master
commit 0dbc4a697afb2a1e409909289f608fd4da875c24
Author: Mark Diekhans <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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
---
 lisp/textmodes/ispell.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 35dae7b..6553a27 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.