Mercurial > emacs
comparison lisp/progmodes/cc-engine.el @ 105206:60cf2b54da00
cc-langs.el (c-nonlabel-token-key): Allow quoted character constants (as
case labels).
cc-engine.el (c-beginning-of-statement-1): Correct buggy bracketing.
| author | Alan Mackenzie <acm@muc.de> |
|---|---|
| date | Sat, 26 Sep 2009 09:18:41 +0000 |
| parents | eee42a220506 |
| children | 098f8a47a308 |
comparison
equal
deleted
inserted
replaced
| 105205:3603226f3cf8 | 105206:60cf2b54da00 |
|---|---|
| 1065 (goto-char pos) | 1065 (goto-char pos) |
| 1066 (when (and after-case:-pos | 1066 (when (and after-case:-pos |
| 1067 (not (eq ret 'beginning)) | 1067 (not (eq ret 'beginning)) |
| 1068 (looking-at c-case-kwds-regexp)) | 1068 (looking-at c-case-kwds-regexp)) |
| 1069 (if (< after-case:-pos start) | 1069 (if (< after-case:-pos start) |
| 1070 (setq pos after-case:-pos) | 1070 (setq pos after-case:-pos)) |
| 1071 (setq ret 'label))) | 1071 (if (eq ret 'same) |
| 1072 (setq ret 'label))) | |
| 1072 | 1073 |
| 1073 ;; Skip over the unary operators that can start the statement. | 1074 ;; Skip over the unary operators that can start the statement. |
| 1074 (while (progn | 1075 (while (progn |
| 1075 (c-backward-syntactic-ws) | 1076 (c-backward-syntactic-ws) |
| 1076 ;; protect AWK post-inc/decrement operators, etc. | 1077 ;; protect AWK post-inc/decrement operators, etc. |