From 45904142652a11ad48cb365f0c1530dc013bee20 Mon Sep 17 00:00:00 2001 From: Daniel Pittman Date: Fri, 4 May 2018 17:37:10 +0300 Subject: [PATCH] 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 --- lisp/textmodes/ispell.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 88ab7fe1e95..3674a7080be 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -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'." -- 2.39.2