Mercurial > emacs
comparison lisp/progmodes/f90.el @ 44341:9c7859045cf8
(f90-indent-subprogram): Braino (missing arg).
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 02 Apr 2002 17:29:58 +0000 |
| parents | 93314c938a62 |
| children | 21cae71e2d9c |
comparison
equal
deleted
inserted
replaced
| 44340:93314c938a62 | 44341:9c7859045cf8 |
|---|---|
| 1415 (setq program (f90-mark-subprogram)) | 1415 (setq program (f90-mark-subprogram)) |
| 1416 (if program | 1416 (if program |
| 1417 (progn | 1417 (progn |
| 1418 (message "Indenting %s %s..." | 1418 (message "Indenting %s %s..." |
| 1419 (car program) (car (cdr program))) | 1419 (car program) (car (cdr program))) |
| 1420 (indent-region (point) (mark)) | 1420 (indent-region (point) (mark) nil) |
| 1421 (message "Indenting %s %s...done" | 1421 (message "Indenting %s %s...done" |
| 1422 (car program) (car (cdr program)))) | 1422 (car program) (car (cdr program)))) |
| 1423 (message "Indenting the whole file...") | 1423 (message "Indenting the whole file...") |
| 1424 (indent-region (point) (mark)) | 1424 (indent-region (point) (mark) nil) |
| 1425 (message "Indenting the whole file...done"))))) | 1425 (message "Indenting the whole file...done"))))) |
| 1426 | 1426 |
| 1427 ;; autofill and break-line | 1427 ;; autofill and break-line |
| 1428 (defun f90-break-line (&optional no-update) | 1428 (defun f90-break-line (&optional no-update) |
| 1429 "Break line at point, insert continuation marker(s) and indent." | 1429 "Break line at point, insert continuation marker(s) and indent." |