[Emacs-diffs] emacs/lisp ChangeLog textmodes/flyspell.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/02/24 04:44:21

Modified files:
        lisp           : ChangeLog 
        lisp/textmodes : flyspell.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15387&r2=1.15388
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/flyspell.el?cvsroot=emacs&r1=1.142&r2=1.143

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15387
retrieving revision 1.15388
diff -u -b -r1.15387 -r1.15388
--- ChangeLog   24 Feb 2009 03:32:19 -0000      1.15387
+++ ChangeLog   24 Feb 2009 04:44:19 -0000      1.15388
@@ -1,5 +1,8 @@
 2009-02-24  Glenn Morris  <address@hidden>
 
+       * 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.
 

Index: textmodes/flyspell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/flyspell.el,v
retrieving revision 1.142
retrieving revision 1.143
diff -u -b -r1.142 -r1.143
--- textmodes/flyspell.el       21 Feb 2009 17:53:16 -0000      1.142
+++ textmodes/flyspell.el       24 Feb 2009 04:44:21 -0000      1.143
@@ -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 ?\;)]