Mercurial > emacs
comparison lisp/progmodes/c-mode.el @ 4333:c356a81e1a46
(calculate-c-indent): When checking whether function decl
is inside a comment, move back to the `(' that starts the arglist.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 29 Jul 1993 04:01:09 +0000 |
| parents | d719788a0aaa |
| children | c020f9a57cfe |
comparison
equal
deleted
inserted
replaced
| 4332:9715c82333ab | 4333:c356a81e1a46 |
|---|---|
| 640 (not (memq (following-char) | 640 (not (memq (following-char) |
| 641 '(?\, ?\;))))) | 641 '(?\, ?\;))))) |
| 642 ;; Make sure the "function decl" we found | 642 ;; Make sure the "function decl" we found |
| 643 ;; is not inside a comment. | 643 ;; is not inside a comment. |
| 644 (progn | 644 (progn |
| 645 ;; Move back to the `(' starting arglist | |
| 646 (goto-char lim) | |
| 645 (beginning-of-line) | 647 (beginning-of-line) |
| 646 (while (and (not comment) | 648 (while (and (not comment) |
| 647 (search-forward "/*" lim t)) | 649 (search-forward "/*" lim t)) |
| 648 (setq comment | 650 (setq comment |
| 649 (not (search-forward "*/" lim t)))) | 651 (not (search-forward "*/" lim t)))) |