[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111906: textmodes/ispell.el: Expand
From: |
Agustin Martin |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111906: textmodes/ispell.el: Expand hunspell affix-file paths. Improve debug messages printing. |
Date: |
Fri, 01 Mar 2013 18:13:04 +0100 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111906: textmodes/ispell.el: Expand hunspell affix-file paths. Improve debug messages printing.,
Agustin Martin <=