Function: fortran-strip-sequence-nos

fortran-strip-sequence-nos is an interactive and byte-compiled function defined in fortran.el.gz.

Signature

(fortran-strip-sequence-nos &optional DO-SPACE)

Documentation

Delete all text in column fortran-line-length(var)/fortran-line-length(fun) (default 72) and up.

This is assumed to be sequence numbers. Normally also deletes trailing whitespace after stripping such text. Supplying prefix arg DO-SPACE prevents stripping the whitespace.

View in manual

Probably introduced at or before Emacs version 21.1.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/fortran.el.gz
(defun fortran-strip-sequence-nos (&optional do-space)
  "Delete all text in column `fortran-line-length' (default 72) and up.
This is assumed to be sequence numbers.  Normally also deletes
trailing whitespace after stripping such text.  Supplying prefix
arg DO-SPACE prevents stripping the whitespace."
  (interactive "*p")
  (save-excursion
    (goto-char (point-min))
    (while (re-search-forward (format "^.\\{%d\\}\\(.*\\)" fortran-line-length)
                              nil t)
      (replace-match "" nil nil nil 1)
      (unless do-space (delete-horizontal-space)))))