From: Agustín Martín Date: Fri, 1 Mar 2013 17:13:04 +0000 (+0100) Subject: textmodes/ispell.el: Expand hunspell affix-file paths. Improve debug messages printing. X-Git-Tag: emacs-24.3.90~173^2~6^2~13 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=325b66a6d1b648a6db2bcdc2bab14896dc67c099;p=emacs.git 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. --- 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))