diff options
| author | Alan Mackenzie | 2007-02-02 23:06:41 +0000 |
|---|---|---|
| committer | Alan Mackenzie | 2007-02-02 23:06:41 +0000 |
| commit | 10489fcbefcfe810f0e691b1816611cae7a3ec36 (patch) | |
| tree | 388adb579b550c726009b2892a00f931a630dda0 | |
| parent | 7bee28dc920e0a34a30553936e9f074c06d6fcec (diff) | |
| download | emacs-10489fcbefcfe810f0e691b1816611cae7a3ec36.tar.gz emacs-10489fcbefcfe810f0e691b1816611cae7a3ec36.zip | |
(c-in-knr-argdecl): Slight correction for, e.g. "void (*hdone)();" in a
k&r list. (No WS between adjacent paren groups).
| -rw-r--r-- | lisp/progmodes/cc-engine.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index f05d6632473..f69382c9d70 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el | |||
| @@ -6256,13 +6256,13 @@ comment at the start of cc-engine.el for more info." | |||
| 6256 | 6256 | ||
| 6257 | (catch 'knr | 6257 | (catch 'knr |
| 6258 | (while t ; go round one paren/bracket construct each time round. | 6258 | (while t ; go round one paren/bracket construct each time round. |
| 6259 | (or (c-syntactic-skip-backward "^)]}") | 6259 | (c-syntactic-skip-backward "^)]}") |
| 6260 | (throw 'knr nil)) ; no more bpb pairs left. | ||
| 6261 | (cond ((eq (char-before) ?\)) | 6260 | (cond ((eq (char-before) ?\)) |
| 6262 | (setq after-rparen (point))) | 6261 | (setq after-rparen (point))) |
| 6263 | ((eq (char-before) ?\}) | 6262 | ((eq (char-before) ?\]) |
| 6264 | (throw 'knr nil)) | 6263 | (setq after-rparen nil)) |
| 6265 | (t (setq after-rparen nil))) ; "]" | 6264 | (t ; either } (hit previous defun) or no more parens/brackets |
| 6265 | (throw 'knr nil))) | ||
| 6266 | 6266 | ||
| 6267 | (if after-rparen | 6267 | (if after-rparen |
| 6268 | ;; We're inside a paren. Could it be our argument list....? | 6268 | ;; We're inside a paren. Could it be our argument list....? |