diff options
author | Stefan Monnier <[email protected]> | 2011-11-18 10:06:20 -0500 |
---|---|---|
committer | Stefan Monnier <[email protected]> | 2011-11-18 10:06:20 -0500 |
commit | c400c4d7987bf919d83a230f83c8b6ff64764fc3 (patch) | |
tree | f37801b2a66922165783bfad49c99e1a79702ca0 | |
parent | 6dbe3e96cf8420e64b05abc25ec3c8dc2478e0db (diff) |
* lisp/progmodes/cc-engine.el (c-remove-stale-state-cache-backwards):
Don't hardcode point-min==1.
-rw-r--r-- | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/progmodes/cc-engine.el | 8 |
2 files changed, 7 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 654e886a3a..15646c6cde 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2011-11-18 Stefan Monnier <[email protected]> + * 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) diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index 31a58e48f5..8ac38c253f 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el @@ -2820,7 +2820,7 @@ comment at the start of cc-engine.el for more info." ; 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 @@ comment at the start of cc-engine.el for more info." 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? |