[Emacs-diffs] /srv/bzr/emacs/trunk r99460: * progmodes/cc-mode.el (c-common-init): Bind temporary variables

[Chong Yidong]

------------------------------------------------------------
revno: 99460
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sat 2010-02-06 08:01:43 -0500
message:
  * progmodes/cc-mode.el (c-common-init): Bind temporary variables
  beg and end before calling c-get-state-before-change-functions.
modified:
  lisp/ChangeLog
  lisp/progmodes/cc-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-02-06 04:23:59 +0000
+++ b/lisp/ChangeLog    2010-02-06 13:01:43 +0000
@@ -1,3 +1,8 @@
+2010-02-06  Chong Yidong  <address@hidden>
+
+       * progmodes/cc-mode.el (c-common-init): Bind temporary variables
+       beg and end before calling c-get-state-before-change-functions.
+
 2010-02-06  Dan Nicolaescu  <address@hidden>
 
        * vc-bzr.el (vc-bzr-dir-extra-headers): Disable the pending merges 
header.

=== modified file 'lisp/progmodes/cc-mode.el'
--- a/lisp/progmodes/cc-mode.el 2010-02-04 21:15:37 +0000
+++ b/lisp/progmodes/cc-mode.el 2010-02-06 13:01:43 +0000
@@ -642,9 +642,11 @@
     (widen)
     (save-excursion
       (if c-get-state-before-change-functions
-         (mapc (lambda (fn)
-                 (funcall fn beg end))
-               c-get-state-before-change-functions))
+         (let ((beg (point-min))
+               (end (point-max)))
+           (mapc (lambda (fn)
+                   (funcall fn beg end))
+                 c-get-state-before-change-functions)))
       (if c-before-font-lock-function
          (funcall c-before-font-lock-function (point-min) (point-max)
                   (- (point-max) (point-min))))))