Mercurial > emacs
comparison lisp/progmodes/c-mode.el @ 1205:56d315ca10ee
(calculate-c-indent): When testing for function-start line,
always match the first paren if have more than one.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 23 Sep 1992 04:21:23 +0000 |
| parents | 5f4300ccc93f |
| children | 26d8a65a6e32 |
comparison
equal
deleted
inserted
replaced
| 1204:567860ca77e0 | 1205:56d315ca10ee |
|---|---|
| 567 (error)) | 567 (error)) |
| 568 (beginning-of-line) | 568 (beginning-of-line) |
| 569 (looking-at "DEFUN\\b")) | 569 (looking-at "DEFUN\\b")) |
| 570 c-argdecl-indent | 570 c-argdecl-indent |
| 571 (if (and (looking-at "\\sw\\|\\s_") | 571 (if (and (looking-at "\\sw\\|\\s_") |
| 572 (looking-at "[^\"\n=]*(") | 572 ;; This is careful to stop at the first |
| 573 ;; paren if we have | |
| 574 ;; int foo Proto ((int, int)); | |
| 575 (looking-at "[^\"\n=(]*(") | |
| 573 (progn | 576 (progn |
| 574 (goto-char (1- (match-end 0))) | 577 (goto-char (1- (match-end 0))) |
| 575 (setq lim (point)) | 578 (setq lim (point)) |
| 576 (condition-case nil | 579 (condition-case nil |
| 577 (forward-sexp 1) | 580 (forward-sexp 1) |