andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Do not ispell-kill-ispell over and over when spellchecking minibuffer contents.

Browse source 
* ispell.el (ispell-init-process): Do not kill ispell process 
everytime when spellchecking from the minibuffer (bug#6143).
This commit is contained in:
Agustín Martín 2010-05-13 12:36:03 +02:00
parent 3369c79f8a
commit 57ff5d7b96
2 changed files with 19 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2010-05-13 Agustín Martín <agustin.martin@hispalinux.es>
* ispell.el (ispell-init-process): Do not kill ispell process
everytime when spellchecking from the minibuffer (bug#6143).
2010-05-13 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/sh-script.el (sh-mode): Use define-derived-mode.

17
lisp/textmodes/ispell.el
View file

@ -2630,11 +2630,22 @@ Keeps argument list for future ispell invocations for no async support."
(or ispell-local-dictionary ispell-dictionary "default"))
(sit-for 0)
(setq ispell-library-directory (ispell-check-version)
ispell-process-directory default-directory
ispell-process (ispell-start-process)
ispell-filter nil
ispell-filter-continue nil
ispell-process-buffer-name (buffer-name))
ispell-filter-continue nil)
;; When spellchecking minibuffer contents, make sure ispell process
;; is not restarted every time the minibuffer is killed.
(if (window-minibuffer-p)
(if (fboundp 'minibuffer-selected-window)
;; Assign ispell process to parent buffer
(setq ispell-process-directory default-directory
ispell-process-buffer-name (window-buffer (minibuffer-selected-window)))
;; Force `ispell-process-directory' to $HOME and use a dummy name
(setq ispell-process-directory (expand-file-name "~/")
ispell-process-buffer-name " * Minibuffer-has-spellcheck-enabled"))
;; Not in a minibuffer
(setq ispell-process-directory default-directory
ispell-process-buffer-name (buffer-name)))
(if ispell-async-processp
(set-process-filter ispell-process 'ispell-filter))
;; protect against bogus binding of `enable-multibyte-characters' in XEmacs