1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00

Avoid errors in ispell.el when Enchant returns empty extra chars

* lisp/textmodes/ispell.el (ispell--get-extra-word-characters):
Handle the case of empty extra characters returned by the
Enchant '-lsmod' command. (Bug#31344)

Copyright-paperwork-exempt: yes
This commit is contained in:
Daniel Pittman 2018-05-04 17:37:10 +03:00 committed by Eli Zaretskii
parent d0d75f9b4e
commit 4590414265

View file

@ -1206,8 +1206,10 @@ Internal use.")
(defun ispell--get-extra-word-characters (&optional lang)
"Get the extra word characters for LANG as a character class.
If LANG is omitted, get the extra word characters for the default language."
(concat "[" (string-trim-right (apply 'ispell--call-enchant-lsmod
(append '("-word-chars") (if lang `(,lang))))) "]"))
(let ((extra (string-trim-right
(apply 'ispell--call-enchant-lsmod
(append '("-word-chars") (if lang `(,lang)))))))
(if (string= extra "") "" (concat "[" extra "]"))))
(defun ispell-find-enchant-dictionaries ()
"Find Enchant's dictionaries, and record in `ispell-enchant-dictionary-alist'."