[Emacs-diffs] /srv/bzr/emacs/trunk r103563: (c-guess-basic-syntax): Move CASE 19 to a different place, correctly to

[Alan Mackenzie]

------------------------------------------------------------
revno: 103563
committer: Alan Mackenzie <address@hidden>
branch nick: trunk
timestamp: Sun 2011-03-06 17:03:45 +0000
message:
  (c-guess-basic-syntax): Move CASE 19 to a different place, correctly to
  process template-args-cont lines.
modified:
  lisp/ChangeLog
  lisp/progmodes/cc-engine.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-06 16:57:31 +0000
+++ b/lisp/ChangeLog    2011-03-06 17:03:45 +0000
@@ -1,15 +1,16 @@
 2011-03-06  Alan Mackenzie  <address@hidden>
 
        * progmodes/cc-engine.el (c-guess-basic-syntax): Reindent.
+       (c-guess-basic-syntax): Move CASE 19 to a different place,
+       correctly to process template-args-cont lines.
 
 2011-03-06  Jay Belanger  <address@hidden>
 
-       * calc/calc-ext.el (calc-init-extensions):
-       Rename calc-logunits-dblevel and calc-logunits-nplevel to
-       calc-dblevel and calc-nplevel, respectively.
-       Add keybindings for calc-spn, calc-midi and calc-freq.  Add
-       autoloads for calcFunc-spn, calcFunc-midi, calcFunc-freq,
-       calc-spn, calc-midi and calc-freq.
+       * calc/calc-ext.el (calc-init-extensions): Rename
+       calc-logunits-dblevel and calc-logunits-nplevel to calc-dblevel
+       and calc-nplevel, respectively.  Add keybindings for calc-spn,
+       calc-midi and calc-freq.  Add autoloads for calcFunc-spn,
+       calcFunc-midi, calcFunc-freq, calc-spn, calc-midi and calc-freq.
 
        * calc/calc-units.el (calc-dblevel): Rename from
        calc-logunits-dblevel.

=== modified file 'lisp/progmodes/cc-engine.el'
--- a/lisp/progmodes/cc-engine.el       2011-03-06 16:57:31 +0000
+++ b/lisp/progmodes/cc-engine.el       2011-03-06 17:03:45 +0000
@@ -9628,28 +9628,6 @@
                             (c-most-enclosing-brace paren-state (point))
                             paren-state))
 
-        ;; CASE 19: line is an expression, not a statement, and is directly
-        ;; contained by a template delimiter.  Most likely, we are in a
-        ;; template arglist within a statement.  This case is based on CASE
-        ;; 7.  At some point in the future, we may wish to create more
-        ;; syntactic symbols such as `template-intro',
-        ;; `template-cont-nonempty', etc., and distinguish between them as we
-        ;; do for `arglist-intro' etc. (2009-12-07).
-        ((and c-recognize-<>-arglists
-              (setq containing-< (c-up-list-backward indent-point 
containing-sexp))
-              (eq (char-after containing-<) ?\<))
-         (setq placeholder (c-point 'boi containing-<))
-         (goto-char containing-sexp) ; Most nested Lbrace/Lparen (but not
-                                       ; '<') before indent-point.
-         (if (>= (point) placeholder)
-             (progn
-               (forward-char)
-               (skip-chars-forward " \t"))
-           (goto-char placeholder))
-         (c-add-stmt-syntax 'template-args-cont (list containing-<) t
-                            (c-most-enclosing-brace c-state-cache (point))
-                            paren-state))
-
         ;; CASE 7B: Looking at the opening brace of an
         ;; in-expression block or brace list.  C.f. cases 4, 16A
         ;; and 17E.
@@ -9986,6 +9964,28 @@
                             paren-state))
         ))
 
+       ;; CASE 19: line is an expression, not a statement, and is directly
+       ;; contained by a template delimiter.   Most likely, we are in a
+       ;; template arglist within a statement.  This case is based on CASE
+       ;; 7.   At some point in the future, we may wish to create more
+       ;; syntactic symbols such as `template-intro',
+       ;; `template-cont-nonempty', etc., and distinguish between them as we
+       ;; do for `arglist-intro' etc. (2009-12-07).
+       ((and c-recognize-<>-arglists
+            (setq containing-< (c-up-list-backward indent-point 
containing-sexp))
+            (eq (char-after containing-<) ?\<))
+       (setq placeholder (c-point 'boi containing-<))
+       (goto-char containing-sexp)     ; Most nested Lbrace/Lparen (but not
+                                       ; '<') before indent-point.
+       (if (>= (point) placeholder)
+           (progn
+             (forward-char)
+             (skip-chars-forward " \t"))
+         (goto-char placeholder))
+       (c-add-stmt-syntax 'template-args-cont (list containing-<) t
+                          (c-most-enclosing-brace c-state-cache (point))
+                          paren-state))
+
        ;; CASE 17: Statement or defun catchall.
        (t
        (goto-char indent-point)