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 2ffe23823ba7f3533b478efdcb2c62671aaa7c4d..0b9f7436f6f1cf7f38fb76e1add3ff079d48c345 100644 (file)
--- 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 d785b938f6774371bc4aef68f60838fc90bc449f..7b26b2f84798352992c4ee6ea387331797fa4b4d 100644 (file)
--- 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))