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

[Agustin Martin Domingo]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Agustin Martin Domingo <agmartin>       09/01/16 15:20:54

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

Log message:
        (flyspell-post-command-hook): Do nothing unless flyspell-mode is 
enabled.
        (flyspell-pre-point): Make buffer-local.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15120&r2=1.15121
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/flyspell.el?cvsroot=emacs&r1=1.140&r2=1.141

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15120
retrieving revision 1.15121
diff -u -b -r1.15120 -r1.15121
--- ChangeLog   16 Jan 2009 15:11:50 -0000      1.15120
+++ ChangeLog   16 Jan 2009 15:20:49 -0000      1.15121
@@ -1,3 +1,9 @@
+2009-01-16  Agustín Martín <address@hidden>
+
+       * textmodes/flyspell.el (flyspell-post-command-hook): Do nothing
+       unless flyspell-mode is enabled.
+       (flyspell-pre-point): Make buffer-local.
+
 2009-01-16  Roland Winkler  <address@hidden>
 
        * textmodes/bibtex.el (bibtex-format-entry): Fix previous change.
@@ -9,7 +15,7 @@
        constants.
        (bibtex-mode): Doc fix.
 
-       2009-01-16  Agustín Martín <address@hidden>
+2009-01-16  Agustín Martín <address@hidden>
 
        * textmodes/ispell.el: Protect against declare-function undefined
        in xemacs.

Index: textmodes/flyspell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/flyspell.el,v
retrieving revision 1.140
retrieving revision 1.141
diff -u -b -r1.140 -r1.141
--- textmodes/flyspell.el       8 Jan 2009 18:46:26 -0000       1.140
+++ textmodes/flyspell.el       16 Jan 2009 15:20:54 -0000      1.141
@@ -680,6 +680,7 @@
 (defvar flyspell-pre-column     nil)
 (defvar flyspell-pre-pre-buffer nil)
 (defvar flyspell-pre-pre-point  nil)
+(make-variable-buffer-local 'flyspell-pre-point)
 
 ;;*---------------------------------------------------------------------*/
 ;;*    flyspell-previous-command ...                                    */
@@ -929,6 +930,7 @@
 (defun flyspell-post-command-hook ()
   "The `post-command-hook' used by flyspell to check a word in-the-fly."
   (interactive)
+  (when flyspell-mode
   (let ((command this-command)
        ;; Prevent anything we do from affecting the mark.
        deactivate-mark)
@@ -968,7 +970,7 @@
              (goto-char start)
              (flyspell-word)))
        (setq flyspell-changes (cdr flyspell-changes))))
-    (setq flyspell-previous-command command)))
+      (setq flyspell-previous-command command))))
 
 ;;*---------------------------------------------------------------------*/
 ;;*    flyspell-notify-misspell ...                                     */