diff options
| author | Reuben Thomas | 2018-03-16 10:50:21 +0000 |
|---|---|---|
| committer | Reuben Thomas | 2018-03-16 10:50:21 +0000 |
| commit | a402d9aacbecf4bf0b9afde592a3b90c71f96832 (patch) | |
| tree | e2d12251b62b40839f55c309bba265a51c93fe79 | |
| parent | 419514a84a60a1dc36323ae55986c53f59c12262 (diff) | |
| download | emacs-a402d9aacbecf4bf0b9afde592a3b90c71f96832.tar.gz emacs-a402d9aacbecf4bf0b9afde592a3b90c71f96832.zip | |
Call enchant-lsmod correctly when Enchant is installed with a suffix
* lisp/textmodes/ispell.el (ispell--call-enchant-lsmod): Cope with a
version suffix on the binary name, so enchant-2 is converted to
enchant-lsmod-2, not enchant-2-lsmod.
| -rw-r--r-- | lisp/textmodes/ispell.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 512dfcfa6a7..ba98ea55199 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el | |||
| @@ -1200,8 +1200,9 @@ Internal use.") | |||
| 1200 | (with-output-to-string | 1200 | (with-output-to-string |
| 1201 | (with-current-buffer | 1201 | (with-current-buffer |
| 1202 | standard-output | 1202 | standard-output |
| 1203 | (apply 'ispell-call-process | 1203 | (apply 'ispell-call-process |
| 1204 | (concat ispell-program-name "-lsmod") nil t nil args)))) | 1204 | (replace-regexp-in-string "enchant\\(-[0-9]\\)?$" "enchant-lsmod\\1" |
| 1205 | ispell-program-name) nil t nil args)))) | ||
| 1205 | 1206 | ||
| 1206 | (defun ispell--get-extra-word-characters (&optional lang) | 1207 | (defun ispell--get-extra-word-characters (&optional lang) |
| 1207 | "Get the extra word characters for LANG as a character class. | 1208 | "Get the extra word characters for LANG as a character class. |