From 325b66a6d1b648a6db2bcdc2bab14896dc67c099 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Agust=C3=ADn=20Mart=C3=ADn?= Date: Fri, 1 Mar 2013 18:13:04 +0100 Subject: [PATCH] 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. --- lisp/ChangeLog | 8 ++++++++ lisp/textmodes/ispell.el | 3 ++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2ffe23823ba..0b9f7436f6f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2013-03-01 Agustín Martín Domingo + + * 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. + 2013-03-01 Michael Albinus * net/tramp.el (tramp-obsolete-methods): New defconst. 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)) -- 2.39.2