diff options
| -rw-r--r-- | lisp/progmodes/cc-engine.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index c29faecb8c0..817b161ff87 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el | |||
| @@ -8252,21 +8252,24 @@ comment at the start of cc-engine.el for more info." | |||
| 8252 | (c-add-syntax 'inher-cont (c-point 'boi))) | 8252 | (c-add-syntax 'inher-cont (c-point 'boi))) |
| 8253 | 8253 | ||
| 8254 | ;; CASE 5D.5: Continuation of the "expression part" of a | 8254 | ;; CASE 5D.5: Continuation of the "expression part" of a |
| 8255 | ;; top level construct. | 8255 | ;; top level construct. Or, perhaps, an unrecognised construct. |
| 8256 | (t | 8256 | (t |
| 8257 | (while (and (eq (car (c-beginning-of-decl-1 containing-sexp)) | 8257 | (while (and (setq placeholder (point)) |
| 8258 | (eq (car (c-beginning-of-decl-1 containing-sexp)) | ||
| 8258 | 'same) | 8259 | 'same) |
| 8259 | (save-excursion | 8260 | (save-excursion |
| 8260 | (c-backward-syntactic-ws) | 8261 | (c-backward-syntactic-ws) |
| 8261 | (eq (char-before) ?})))) | 8262 | (eq (char-before) ?})) |
| 8263 | (< (point) placeholder))) | ||
| 8262 | (c-add-stmt-syntax | 8264 | (c-add-stmt-syntax |
| 8263 | (if (eq char-before-ip ?,) | 8265 | (cond |
| 8266 | ((eq (point) placeholder) 'statement) ; unrecognised construct | ||
| 8264 | ;; A preceding comma at the top level means that a | 8267 | ;; A preceding comma at the top level means that a |
| 8265 | ;; new variable declaration starts here. Use | 8268 | ;; new variable declaration starts here. Use |
| 8266 | ;; topmost-intro-cont for it, for consistency with | 8269 | ;; topmost-intro-cont for it, for consistency with |
| 8267 | ;; the first variable declaration. C.f. case 5N. | 8270 | ;; the first variable declaration. C.f. case 5N. |
| 8268 | 'topmost-intro-cont | 8271 | ((eq char-before-ip ?,) 'topmost-intro-cont) |
| 8269 | 'statement-cont) | 8272 | (t 'statement-cont)) |
| 8270 | nil nil containing-sexp paren-state)) | 8273 | nil nil containing-sexp paren-state)) |
| 8271 | )) | 8274 | )) |
| 8272 | 8275 | ||