[Emacs-diffs] /srv/bzr/emacs/trunk r109120: * lisp/progmodes/cc-engine.el (c-forward-sws, c-backward-sws):

[Stefan Monnier]

------------------------------------------------------------
revno: 109120
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2012-07-17 07:40:23 -0400
message:
  * lisp/progmodes/cc-engine.el (c-forward-sws, c-backward-sws):
  Avoid spuriously marking the buffer as modified because of c-is-sws.
modified:
  lisp/ChangeLog
  lisp/progmodes/cc-engine.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-07-17 08:38:12 +0000
+++ b/lisp/ChangeLog    2012-07-17 11:40:23 +0000
@@ -1,5 +1,8 @@
 2012-07-17  Stefan Monnier  <address@hidden>
 
+       * progmodes/cc-engine.el (c-forward-sws, c-backward-sws):
+       Avoid spuriously marking the buffer as modified because of c-is-sws.
+
        * progmodes/sh-script.el (sh-syntax-propertize-function): Mark "${#VAR"
        as not-a-comment (bug#11946).
 

=== modified file 'lisp/progmodes/cc-engine.el'
--- a/lisp/progmodes/cc-engine.el       2012-04-22 11:13:09 +0000
+++ b/lisp/progmodes/cc-engine.el       2012-07-17 11:40:23 +0000
@@ -1688,6 +1688,7 @@
        ;; high as possible.
        (setq rung-pos (point)))
 
+      (with-silent-modifications
       (while
          (progn
            (while
@@ -1843,7 +1844,7 @@
                (1- last-put-in-sws-pos))
               (c-remove-is-and-in-sws (1- last-put-in-sws-pos)
                                       last-put-in-sws-pos))))
-      )))
+      ))))
 
 (defun c-backward-sws ()
   ;; Used by `c-backward-syntactic-ws' to implement the unbounded search.
@@ -1881,6 +1882,7 @@
          (goto-char (setq rung-pos rung-is-marked))
        (goto-char simple-ws-beg))
 
+      (with-silent-modifications
       (while
          (progn
            (while
@@ -2066,7 +2068,7 @@
                last-put-in-sws-pos)
               (c-remove-is-and-in-sws last-put-in-sws-pos
                                       (1+ last-put-in-sws-pos)))))
-      )))
+      ))))
 
 
 ;; Other whitespace tools