diff options
| author | Agustín Martín <agustin.martin@hispalinux.es> | 2013-03-01 18:13:04 +0100 |
|---|---|---|
| committer | Agustín Martín <agustin.martin@hispalinux.es> | 2013-03-01 18:13:04 +0100 |
| commit | 325b66a6d1b648a6db2bcdc2bab14896dc67c099 (patch) | |
| tree | 88ce95d9e545a12df0cd4b64dcdfe8eaa9185cd9 /lisp/textmodes | |
| parent | 89bd9d36859503e25b767f97395870190f272bc1 (diff) | |
| download | emacs-325b66a6d1b648a6db2bcdc2bab14896dc67c099.tar.gz | |
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." "Print STRING to `ispell-debug-buffer' buffer if enabled." (if (boundp 'ispell-debug-buffer) (with-current-buffer ispell-debug-buffer + (end-of-buffer) (insert string)))) @@ -1244,7 +1245,7 @@ entries if a specific dict was found." (if (and (not (assoc basename ispell-hunspell-dict-paths-alist)) (file-exists-p affix-file)) ;; Entry has an associated .aff file and no previous value. - (progn + (let ((affix-file (expand-file-name affix-file))) (ispell-print-if-debug (format "++ ispell-fhd: dict-entry:%s name:%s basename:%s affix-file:%s\n" dict full-name basename affix-file)) |