Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (17 sloc) 484 Bytes
(eval-when-compile
(require 'cl)
(require 'ispell))
(defun ce-spell-check ()
(interactive)
(ispell))
(defun ce-spell-change-dictionary (dictionary)
(interactive "s")
(let ((dicts (ispell-valid-dictionary-list)))
(if (member dictionary dicts)
(ispell-change-dictionary dictionary)
(error "The dictionary '%s' is unknown." dictionary))))
(provide 'ce-spell)
;; Local Variables:
;; byte-compile-warnings: (not cl-functions)
;; End:
;;; ce-spell.el ends here