Mercurial > emacs
comparison lisp/progmodes/c-mode.el @ 1177:835b1e570621
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 20 Sep 1992 19:06:51 +0000 |
| parents | 14a07c6ffb04 |
| children | 5897b220ad8e |
comparison
equal
deleted
inserted
replaced
| 1176:60e0dc538df3 | 1177:835b1e570621 |
|---|---|
| 542 (re-search-backward "^[^ \^L\t\n#]" nil 'move) | 542 (re-search-backward "^[^ \^L\t\n#]" nil 'move) |
| 543 (let (comment lim) | 543 (let (comment lim) |
| 544 ;; Recognize the DEFUN macro in Emacs. | 544 ;; Recognize the DEFUN macro in Emacs. |
| 545 (if (save-excursion | 545 (if (save-excursion |
| 546 ;; Move down to the (putative) argnames line. | 546 ;; Move down to the (putative) argnames line. |
| 547 (while (not (looking-at " *[({}]")) | 547 (while (not (looking-at " *[({}#/]")) |
| 548 (forward-line 1)) | 548 (forward-line 1)) |
| 549 ;; Go back to the DEFUN, if it is one. | 549 ;; Go back to the DEFUN, if it is one. |
| 550 (condition-case nil | 550 (condition-case nil |
| 551 (backward-sexp 1) | 551 (backward-sexp 1) |
| 552 (error)) | 552 (error)) |