diff options
| author | Dave Love | 1999-11-30 19:38:27 +0000 |
|---|---|---|
| committer | Dave Love | 1999-11-30 19:38:27 +0000 |
| commit | 3b4613a485ed749c44b2dac7c75bbeee5217e6ca (patch) | |
| tree | 67130c77ddc4c050323c67232d11b460556ac68b | |
| parent | 3156909f7e70743a34f353029efe50d96ec7b9cc (diff) | |
| download | emacs-3b4613a485ed749c44b2dac7c75bbeee5217e6ca.tar.gz emacs-3b4613a485ed749c44b2dac7c75bbeee5217e6ca.zip | |
(fortran-strip-sqeuence-nos): New command.
| -rw-r--r-- | lisp/progmodes/fortran.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index bda9585f7b6..d438e89ff93 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el | |||
| @@ -1808,6 +1808,18 @@ Intended as the value of `fill-paragraph-function'." | |||
| 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 |