Mercurial > emacs
comparison lisp/progmodes/f90.el @ 14533:2eb6c03dcb86
(f90-indent-subprogram): Fix message.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 09 Feb 1996 23:19:02 +0000 |
| parents | e2db2835838d |
| children | 1abb847e6bff |
comparison
equal
deleted
inserted
replaced
| 14532:c64e2c0786c3 | 14533:2eb6c03dcb86 |
|---|---|
| 1415 (save-excursion | 1415 (save-excursion |
| 1416 (let (program) | 1416 (let (program) |
| 1417 (setq program (f90-mark-subprogram)) | 1417 (setq program (f90-mark-subprogram)) |
| 1418 (if program | 1418 (if program |
| 1419 (progn | 1419 (progn |
| 1420 (message "Indenting %s %s." | 1420 (message "Indenting %s %s..." |
| 1421 (car program) (car (cdr program))) | 1421 (car program) (car (cdr program))) |
| 1422 (f90-indent-region (point) (mark)) | 1422 (f90-indent-region (point) (mark)) |
| 1423 (message "Indenting %s %s...done." | 1423 (message "Indenting %s %s...done" |
| 1424 (car program) (car (cdr program)))) | 1424 (car program) (car (cdr program)))) |
| 1425 (message "Indenting the whole file.") | 1425 (message "Indenting the whole file...") |
| 1426 (f90-indent-region (point) (mark)) | 1426 (f90-indent-region (point) (mark)) |
| 1427 (message "Indenting the whole file...done."))))) | 1427 (message "Indenting the whole file...done"))))) |
| 1428 | 1428 |
| 1429 ;; autofill and break-line | 1429 ;; autofill and break-line |
| 1430 (defun f90-break-line (&optional no-update) | 1430 (defun f90-break-line (&optional no-update) |
| 1431 "Break line at point, insert continuation marker(s) and indent." | 1431 "Break line at point, insert continuation marker(s) and indent." |
| 1432 (interactive) | 1432 (interactive) |