procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

textmodes/ispell.el: Fix variable name. Show spellchecker on process start.

Browse source 
* (ispell-find-aspell-dictionaries): Check for 
  `ispell-dictionary-base-alist' instead of full `ispell-dictionary-alist'.
* (ispell-init-process): Show spellchecker when starting new Ispell process.
This commit is contained in:
Agustín Martín 2012-05-28 16:36:27 +02:00
parent e700232f3e
commit 8cab9efc05
2 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2012-05-28 Agustín Martín Domingo <agustin.martin@hispalinux.es>
* textmodes/ispell.el (ispell-find-aspell-dictionaries):
Check for `ispell-dictionary-base-alist' instead of full
`ispell-dictionary-alist'.
(ispell-init-process): Show spellchecker when starting new Ispell
process.
2012-05-28 Stefan Monnier <monnier@iro.umontreal.ca>
* progmodes/vhdl-mode.el: Sync with upstream 3.33.28.

7
lisp/textmodes/ispell.el
View file

@ -968,9 +968,9 @@ Internal use.")
;; Ensure aspell's alias dictionary will override standard
;; definitions.
(setq found (ispell-aspell-add-aliases found))
;; Merge into FOUND any elements from the standard ispell-dictionary-alist
;; Merge into FOUND any elements from the standard ispell-dictionary-base-alist
;; which have no element in FOUND at all.
(dolist (dict ispell-dictionary-alist)
(dolist (dict ispell-dictionary-base-alist)
(unless (assoc (car dict) found)
(setq found (nconc found (list dict)))))
(setq ispell-aspell-dictionary-alist found)
@ -2707,7 +2707,8 @@ Keeps argument list for future Ispell invocations for no async support."
(setq ispell-filter nil ispell-filter-continue nil)
;; may need to restart to select new personal dictionary.
(ispell-kill-ispell t)
(message "Starting new Ispell process [%s] ..."
(message "Starting new Ispell process [%s::%s] ..."
ispell-program-name
(or ispell-local-dictionary ispell-dictionary "default"))
(sit-for 0)
(setq ispell-library-directory (ispell-check-version)