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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99b3bd7f29355eeb9bcbf828be2f8a77f401fdbd..fad9ebecc1733fd1870d98c951ac3ed4b6aa0740 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 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
        potential use.
 

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 70fd05aaf378a603473c121785942dc0ca0f1273..4b9121de94a4cb1709ce9a333f4f20610e127c60 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -262,10 +262,17 @@ If `flyspell-large-region' is nil, all regions are treated as small."
   :group 'flyspell
   :type '(choice string (const nil)))
 
+(defvar flyspell-mode-map)
+
 (defcustom flyspell-use-meta-tab t
   "Non-nil means that flyspell uses M-TAB to correct word."
   :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
   [(control ?\;)]