]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix Enchant dictionary finding routine
authorReuben Thomas <rrt@sc3d.org>
Mon, 7 Sep 2020 19:56:58 +0000 (20:56 +0100)
committerReuben Thomas <rrt@sc3d.org>
Mon, 7 Sep 2020 19:56:58 +0000 (20:56 +0100)
* lisp/textmodes/ispell.el (ispell-find-enchant-dictionaries): Don’t
  pass `buffer-string' to enchant-lsmod. Remove zero-length substrings
  from the split output of `enchant-lsmod`, as the output ends with a
  separator. Pass the current language to
  `ispell--get-extra-word-characters', so we get the result for the
  current language, not the default language. (Patch from Jorge P. de
  Morais Neto.)

lisp/textmodes/ispell.el

index 11f90f41a8b3ffd2d46a98a32326f8bb36f2e4fa..a99dfe4067049d46667f4768ed560987a7857ac8 100644 (file)
@@ -1236,11 +1236,11 @@ If LANG is omitted, get the extra word characters for the default language."
   "Find Enchant's dictionaries, and record in `ispell-enchant-dictionary-alist'."
   (let* ((dictionaries
          (split-string
-          (ispell--call-enchant-lsmod "-list-dicts" (buffer-string)) " ([^)]+)\n"))
+          (ispell--call-enchant-lsmod "-list-dicts") " ([^)]+)\n" t))
          (found
           (mapcar #'(lambda (lang)
                       `(,lang "[[:alpha:]]" "[^[:alpha:]]"
-                              ,(ispell--get-extra-word-characters) t nil nil utf-8))
+                              ,(ispell--get-extra-word-characters lang) t nil nil utf-8))
                   dictionaries)))
     ;; Merge into FOUND any elements from the standard ispell-dictionary-base-alist
     ;; which have no element in FOUND at all.