[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111075: ispell.el: Fix ispell person
From: |
Agustin Martin |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111075: ispell.el: Fix ispell personal dictionary name expansion. |
Date: |
Mon, 03 Dec 2012 17:08:23 +0100 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111075
fixes bug: http://debbugs.gnu.org/13019
committer: Agustin Martin <address@hidden>
branch nick: trunk
timestamp: Mon 2012-12-03 17:08:23 +0100
message:
ispell.el: Fix ispell personal dictionary name expansion.
textmodes/ispell.el (ispell-init-process, ispell-start-process):
Make sure ispell personal dictionary name is expanded after initial
`default-directory' value (Bug#13019).
modified:
lisp/ChangeLog
lisp/textmodes/ispell.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-12-03 04:46:49 +0000
+++ b/lisp/ChangeLog 2012-12-03 16:08:23 +0000
@@ -1,3 +1,9 @@
+2012-12-03 Agustín Martín Domingo <address@hidden>
+
+ * textmodes/ispell.el (ispell-init-process)
+ (ispell-start-process): Make sure personal dictionary name is
+ expanded after initial `default-directory' value (Bug#13019).
+
2012-12-03 Jay Belanger <address@hidden>
* calc/calc-forms.el (math-date-to-iso-dt): Fix weekday number.
=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el 2012-11-06 16:33:56 +0000
+++ b/lisp/textmodes/ispell.el 2012-12-03 16:08:23 +0000
@@ -2669,7 +2669,8 @@
orig-args
(if ispell-current-personal-dictionary ; Use specified pers dict.
(list "-p"
- (expand-file-name ispell-current-personal-dictionary)))
+ (expand-file-name ispell-current-personal-dictionary
+ current-ispell-directory)))
;; If we are using recent aspell or hunspell, make sure we use the
;; right encoding for communication. ispell or older aspell/hunspell
;; does not support this.
@@ -2706,6 +2707,9 @@
(let* (;; Basename of dictionary used by the spell-checker
(dict-bname (or (car (cdr (member "-d" (ispell-get-ispell-args))))
ispell-current-dictionary))
+ ;; The directory where process was started.
+ (current-ispell-directory default-directory)
+ ;; The default directory for the process.
;; Use "~/" as default-directory unless using Ispell with per-dir
;; personal dictionaries and not in a minibuffer under XEmacs
(default-directory
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111075: ispell.el: Fix ispell personal dictionary name expansion.,
Agustin Martin <=