diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2019-06-27 20:02:56 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-06-27 21:00:35 +0200 |
| commit | b98b843a5b6df987d3dba3e66fe637570c06cd0d (patch) | |
| tree | 80265c97dca5a9f3e26b8eec069720efa7cb10f4 /lisp/textmodes | |
| parent | f9744d23e5bdc90ebdfaf78db55966e436876b28 (diff) | |
| download | emacs-b98b843a5b6df987d3dba3e66fe637570c06cd0d.tar.gz emacs-b98b843a5b6df987d3dba3e66fe637570c06cd0d.tar.bz2 emacs-b98b843a5b6df987d3dba3e66fe637570c06cd0d.zip | |
Add new ispell-change-dictionary-hook (Bug#1110)
* lisp/textmodes/ispell.el (ispell-change-dictionary-hook): New hook.
(ispell-change-dictionary): Call new hook (bug#1110).
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/ispell.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index d488c05418c..9dfa9f3c448 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -2973,6 +2973,9 @@ With CLEAR, buffer session localwords are cleaned." (message "Ispell process killed") nil)) +(defvar ispell-change-dictionary-hook nil + "Hook run after changing dictionary.") + ;; ispell-change-dictionary is set in some people's hooks. Maybe this should ;; call ispell-init-process rather than wait for a spell checking command? @@ -2998,7 +3001,8 @@ By just answering RET you can find out what the current dictionary is." (ispell-internal-change-dictionary) (message "Using %s dictionary" (or (and (not arg) ispell-local-dictionary) - ispell-dictionary "default"))) + ispell-dictionary "default")) + (run-hooks 'ispell-change-dictionary-hook)) ((equal dict (or (and (not arg) ispell-local-dictionary) ispell-dictionary "default")) ;; Specified dictionary is the default already. Could reload @@ -3020,7 +3024,8 @@ By just answering RET you can find out what the current dictionary is." (setq ispell-buffer-session-localwords nil) (message "%s Ispell dictionary set to %s" (if arg "Global" "Local") - dict)))) + dict) + (run-hooks 'ispell-change-dictionary-hook)))) (defun ispell-internal-change-dictionary () "Update the dictionary and the personal dictionary used by Ispell. |