From 3b4613a485ed749c44b2dac7c75bbeee5217e6ca Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gnu.org>
Date: Tue, 30 Nov 1999 19:38:27 +0000
Subject: [PATCH] (fortran-strip-sqeuence-nos): New command.

---
 lisp/progmodes/fortran.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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
-- 
2.39.5