[Emacs-diffs] /srv/bzr/emacs/trunk r111906: textmodes/ispell.el: Expand hunspell affix-file paths. Improve debug messages printing.

[Agustin Martin]

------------------------------------------------------------
revno: 111906
committer: Agustin Martin <address@hidden>
branch nick: trunk
timestamp: Fri 2013-03-01 18:13:04 +0100
message:
  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.
modified:
  lisp/ChangeLog
  lisp/textmodes/ispell.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-03-01 08:13:53 +0000
+++ b/lisp/ChangeLog    2013-03-01 17:13:04 +0000
@@ -1,3 +1,11 @@
+2013-03-01  Agustín Martín Domingo  <address@hidden>
+
+       * 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  <address@hidden>
 
        * net/tramp.el (tramp-obsolete-methods): New defconst.

=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2013-02-28 19:01:34 +0000
+++ b/lisp/textmodes/ispell.el  2013-03-01 17:13:04 +0000
@@ -959,6 +959,7 @@
   "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 @@
          (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))