diff options
| -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'." (fortran-previous-statement))) (fortran-indent-line))) +(defun fortran-strip-sqeuence-nos (do-space) + "Delete all text after column 72 (assumed to be sequence numbers). +Also delete trailing whitespace after stripping such text. Supplying +prefix arg DO-SPACE prevent stripping the whitespace." + (interactive "p") + (save-excursion + (goto-char (point-min)) + (while (re-search-forward (concat "^" (make-string 72 ?.)" \\(.*\\)") + nil t) + (replace-match "" nil nil nil 1) + (unless do-space (delete-horizontal-space))))) + (provide 'fortran) ;;; fortran.el ends here |