diff options
| author | Agustín Martín | 2013-03-01 18:13:04 +0100 |
|---|---|---|
| committer | Agustín Martín | 2013-03-01 18:13:04 +0100 |
| commit | 325b66a6d1b648a6db2bcdc2bab14896dc67c099 (patch) | |
| tree | 88ce95d9e545a12df0cd4b64dcdfe8eaa9185cd9 /lisp/textmodes | |
| parent | 89bd9d36859503e25b767f97395870190f272bc1 (diff) | |
| download | emacs-325b66a6d1b648a6db2bcdc2bab14896dc67c099.tar.gz emacs-325b66a6d1b648a6db2bcdc2bab14896dc67c099.zip | |
textmodes/ispell.el: Expand hunspell affix-file paths. Improve debug messages printing.
* textmodes/ispell.el (ispell-find-hunspell-dictionaries):
Always expand affix-file before storing to protect against changed
`default-directory'.
(ispell-print-if-debug): Make sure message is printed at the end
of the debug buffer.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/ispell.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index d785b938f67..7b26b2f8479 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el | |||
| @@ -959,6 +959,7 @@ See `ispell-buffer-with-debug' for an example of use." | |||
| 959 | "Print STRING to `ispell-debug-buffer' buffer if enabled." | 959 | "Print STRING to `ispell-debug-buffer' buffer if enabled." |
| 960 | (if (boundp 'ispell-debug-buffer) | 960 | (if (boundp 'ispell-debug-buffer) |
| 961 | (with-current-buffer ispell-debug-buffer | 961 | (with-current-buffer ispell-debug-buffer |
| 962 | (end-of-buffer) | ||
| 962 | (insert string)))) | 963 | (insert string)))) |
| 963 | 964 | ||
| 964 | 965 | ||
| @@ -1244,7 +1245,7 @@ entries if a specific dict was found." | |||
| 1244 | (if (and (not (assoc basename ispell-hunspell-dict-paths-alist)) | 1245 | (if (and (not (assoc basename ispell-hunspell-dict-paths-alist)) |
| 1245 | (file-exists-p affix-file)) | 1246 | (file-exists-p affix-file)) |
| 1246 | ;; Entry has an associated .aff file and no previous value. | 1247 | ;; Entry has an associated .aff file and no previous value. |
| 1247 | (progn | 1248 | (let ((affix-file (expand-file-name affix-file))) |
| 1248 | (ispell-print-if-debug | 1249 | (ispell-print-if-debug |
| 1249 | (format "++ ispell-fhd: dict-entry:%s name:%s basename:%s affix-file:%s\n" | 1250 | (format "++ ispell-fhd: dict-entry:%s name:%s basename:%s affix-file:%s\n" |
| 1250 | dict full-name basename affix-file)) | 1251 | dict full-name basename affix-file)) |