Mercurial > emacs
comparison lisp/progmodes/fortran.el @ 26665:4aede027bedb
(fortran-strip-sqeuence-nos): New command.
author | Dave Love <fx@gnu.org> |
---|---|
date | Tue, 30 Nov 1999 19:38:27 +0000 |
parents | edf06ac56d1f |
children | 4a15e79c5fb0 |
comparison
equal
deleted
inserted
replaced
26664:a7963e66c555 | 26665:4aede027bedb |
---|---|
1806 (forward-line) | 1806 (forward-line) |
1807 (fortran-remove-continuation))) | 1807 (fortran-remove-continuation))) |
1808 (fortran-previous-statement))) | 1808 (fortran-previous-statement))) |
1809 (fortran-indent-line))) | 1809 (fortran-indent-line))) |
1810 | 1810 |
1811 (defun fortran-strip-sqeuence-nos (do-space) | |
1812 "Delete all text after column 72 (assumed to be sequence numbers). | |
1813 Also delete trailing whitespace after stripping such text. Supplying | |
1814 prefix arg DO-SPACE prevent stripping the whitespace." | |
1815 (interactive "p") | |
1816 (save-excursion | |
1817 (goto-char (point-min)) | |
1818 (while (re-search-forward (concat "^" (make-string 72 ?.)" \\(.*\\)") | |
1819 nil t) | |
1820 (replace-match "" nil nil nil 1) | |
1821 (unless do-space (delete-horizontal-space))))) | |
1822 | |
1811 (provide 'fortran) | 1823 (provide 'fortran) |
1812 | 1824 |
1813 ;;; fortran.el ends here | 1825 ;;; fortran.el ends here |