- spell for emacs22
- Monday, September 3rd, 2007 at 9:06:46am MDT
- ;; spell-check
- ;; ###########
- (require 'flyspell)
- (require 'ispell)
- (setq
- ; i like aspel, and you?
- ispell-program-name "aspell"
- ; my dictionary-alist, using for redefinition russian dictionary
- ispell-dictionary-alist
- '(("english" ; English
- "[a-zA-Z]"
- "[^a-zA-Z]"
- "[']"
- nil
- ("-d" "en")
- nil iso-8859-1)
- ("russian" ; Russian
- "[АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯабвгдеёжзийклмнопрстуфхцчшщьыъэюя]"
- "[^АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯабвгдеёжзийклмнопрстуфхцчшщьыъэюя]"
- "[-]"
- nil
- ("-C" "-d" "ru")
- nil utf-8)
- (nil ; Default
- "[A-Za-z]"
- "[^A-Za-z]"
- "[']"
- nil
- ("-C")
- nil iso-8859-1))
- ispell-russian-dictionary "russian"
- ispell-english-dictionary "english"
- flyspell-default-dictionary ispell-russian-dictionary
- ispell-local-dictionary ispell-russian-dictionary
- ispell-extra-args '("--sug-mode=ultra"))
- (defun flyspell-russian ()
- (interactive)
- (flyspell-mode t)
- (ispell-change-dictionary ispell-russian-dictionary)
- (flyspell-buffer))
- ; English
- (defun flyspell-english ()
- (interactive)
- (flyspell-mode t)
- (ispell-change-dictionary ispell-english-dictionary)
- (flyspell-buffer))
- (global-set-key [f7] 'ispell-buffer)
- (global-set-key [f8] 'ispell-region)
- (global-set-key [f9] 'flyspell-english)
- (global-set-key [f10] 'flyspell-russian)
- (global-set-key [f11] 'flyspell-mode)
advertising
Update the Post
Either update this post and resubmit it with changes, or make a new post.
You may also comment on this post.
Please note that information posted here will expire by default in one month. If you do not want it to expire, please set the expiry time above. If it is set to expire, web search engines will not be allowed to index it prior to it expiring. Items that are not marked to expire will be indexable by search engines. Be careful with your passwords. All illegal activities will be reported and any information will be handed over to the authorities, so be good.
