Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

textmodes/ispell.el: Expand hunspell affix-file paths. Improve debug messages printing.

Browse source 
* 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.
This commit is contained in:
Agustín Martín 2013-03-01 18:13:04 +01:00
parent 89bd9d3685
commit 325b66a6d1
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -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.

3
lisp/textmodes/ispell.el
View file

@ -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))