diff options
| author | Eli Zaretskii | 2012-03-17 11:13:19 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2012-03-17 11:13:19 +0200 |
| commit | 9ac7a13f088b3efd9242622a3fda55e0616e4a8f (patch) | |
| tree | db0af77545f0913169ad28c2f5d226e3fa1b141c | |
| parent | 66ecdc9e08549b2b978c619ad697da45e048aa54 (diff) | |
| download | emacs-9ac7a13f088b3efd9242622a3fda55e0616e4a8f.tar.gz emacs-9ac7a13f088b3efd9242622a3fda55e0616e4a8f.zip | |
Improve error message in ispell-get-decoded-string.
lisp/textmodes/ispell.el (ispell-get-decoded-string): Make the error
message mention the alists that need to be fixed.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 00ea787721c..3be8553dd69 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2012-03-17 Eli Zaretskii <eliz@gnu.org> | ||
| 2 | |||
| 3 | * textmodes/ispell.el (ispell-get-decoded-string): Make the error | ||
| 4 | message more clear. | ||
| 5 | |||
| 1 | 2012-03-16 Leo Liu <sdl.web@gmail.com> | 6 | 2012-03-16 Leo Liu <sdl.web@gmail.com> |
| 2 | 7 | ||
| 3 | * emacs-lisp/copyright.el (copyright-year-ranges): Fix typo. | 8 | * emacs-lisp/copyright.el (copyright-year-ranges): Fix typo. |
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index c1fcb6013b2..bee903f0284 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el | |||
| @@ -1307,7 +1307,8 @@ Protects against bogus binding of `enable-multibyte-characters' in XEmacs." | |||
| 1307 | (let* ((slot (or | 1307 | (let* ((slot (or |
| 1308 | (assoc ispell-current-dictionary ispell-local-dictionary-alist) | 1308 | (assoc ispell-current-dictionary ispell-local-dictionary-alist) |
| 1309 | (assoc ispell-current-dictionary ispell-dictionary-alist) | 1309 | (assoc ispell-current-dictionary ispell-dictionary-alist) |
| 1310 | (error "No match for the current dictionary"))) | 1310 | (error "No data for dictionary \"%s\", neither in `ispell-local-dictionary-alist' nor in `ispell-dictionary-alist'" |
| 1311 | ispell-current-dictionary))) | ||
| 1311 | (str (nth n slot))) | 1312 | (str (nth n slot))) |
| 1312 | (when (and (> (length str) 0) | 1313 | (when (and (> (length str) 0) |
| 1313 | (not (multibyte-string-p str))) | 1314 | (not (multibyte-string-p str))) |