Mercurial > emacs

changeset 102233:5d5d7ede9176

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(flyspell-use-meta-tab): Add a custom :set function. (Bug#2429)
author Glenn Morris <rgm@gnu.org>
date Tue, 24 Feb 2009 04:44:19 +0000
parents 7de4f0f549a4
children f4cc34c7b919
files lisp/ChangeLog lisp/textmodes/flyspell.el
diffstat 2 files changed, 11 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Feb 24 03:39:57 2009 +0000
+++ b/lisp/ChangeLog	Tue Feb 24 04:44:19 2009 +0000
@@ -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.
 
--- a/lisp/textmodes/flyspell.el	Tue Feb 24 03:39:57 2009 +0000
+++ b/lisp/textmodes/flyspell.el	Tue Feb 24 04:44:19 2009 +0000
@@ -262,10 +262,17 @@
   :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 ?\;)]