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.

2 files changed, 10 insertions, 1 deletions

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  <agustin.martin@hispalinux.es>
+
+       * 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  <michael.albinus@gmx.de>
 
         * 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))