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

(flyspell-use-meta-tab): Add a custom :set function. (Bug#2429)

Browse source
This commit is contained in:
Glenn Morris 2009-02-24 04:44:19 +00:00
parent 2c7d156554
commit cb92c15044
2 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2009-02-24 Glenn Morris <rgm@gnu.org> 2009-02-24 Glenn Morris <rgm@gnu.org>
* textmodes/flyspell.el (flyspell-use-meta-tab): Add a custom
:set function. (Bug#2429)
* eshell/esh-util.el (eshell-parse-ange-ls): Define `name' before * eshell/esh-util.el (eshell-parse-ange-ls): Define `name' before
potential use. potential use.

9
lisp/textmodes/flyspell.el
View file

@ -262,10 +262,17 @@ If `flyspell-large-region' is nil, all regions are treated as small."
:group 'flyspell :group 'flyspell
:type '(choice string (const nil))) :type '(choice string (const nil)))
(defvar flyspell-mode-map)
(defcustom flyspell-use-meta-tab t (defcustom flyspell-use-meta-tab t
"Non-nil means that flyspell uses M-TAB to correct word." "Non-nil means that flyspell uses M-TAB to correct word."
:group 'flyspell :group 'flyspell
:type 'boolean) :type 'boolean
:initialize 'custom-initialize-default
:set (lambda (sym val)
(define-key flyspell-mode-map "\M-\t"
(if (set sym val)
'flyspell-auto-correct-word))))
(defcustom flyspell-auto-correct-binding (defcustom flyspell-auto-correct-binding
[(control ?\;)] [(control ?\;)]