[Emacs-diffs] /srv/bzr/emacs/trunk r106415: * lisp/progmodes/cc-engine.el (c-remove-stale-state-cache-backwards):

[Stefan Monnier]

------------------------------------------------------------
revno: 106415
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2011-11-18 10:06:20 -0500
message:
  * lisp/progmodes/cc-engine.el (c-remove-stale-state-cache-backwards):
  Don't hardcode point-min==1.
modified:
  lisp/ChangeLog
  lisp/progmodes/cc-engine.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-11-18 14:49:42 +0000
+++ b/lisp/ChangeLog    2011-11-18 15:06:20 +0000
@@ -1,5 +1,8 @@
 2011-11-18  Stefan Monnier  <address@hidden>
 
+       * progmodes/cc-engine.el (c-remove-stale-state-cache-backwards):
+       Don't hardcode point-min==1.
+
        * eshell/esh-cmd.el (eshell-do-eval): Handle `setq' (bug#9907).
        (eshell-rewrite-for-command): Remove workaround.
        (eshell-do-pipelines, eshell-do-pipelines-synchronously)

=== modified file 'lisp/progmodes/cc-engine.el'
--- a/lisp/progmodes/cc-engine.el       2011-11-16 12:34:47 +0000
+++ b/lisp/progmodes/cc-engine.el       2011-11-18 15:06:20 +0000
@@ -2820,7 +2820,7 @@
                                        ; or `here' itself.
        here- here+                  ; start/end of macro around HERE, or HERE
        (here-bol (c-point 'bol here))
-       (too-far-back (max (- here c-state-cache-too-far) 1)))
+       (too-far-back (max (- here c-state-cache-too-far) (point-min))))
 
     ;; Remove completely irrelevant entries from `c-state-cache'.
     (while (and c-state-cache
@@ -2964,9 +2964,9 @@
            c-state-cache-good-pos nil
            c-state-min-scan-pos nil)
 
-;;; Truncate `c-state-cache' and set `c-state-cache-good-pos' to a value below
-;;; `here'.  To maintain its consistency, we may need to insert a new brace
-;;; pair.
+    ;; Truncate `c-state-cache' and set `c-state-cache-good-pos' to a value
+    ;; below `here'.  To maintain its consistency, we may need to insert a new
+    ;; brace pair.
     (let ((here-bol (c-point 'bol here))
          too-high-pa             ; recorded {/(/[ next above here, or nil.
          dropped-cons            ; was the last removed element a brace pair?