Function: f90-get-present-comment-type

f90-get-present-comment-type is a byte-compiled function defined in f90.el.gz.

Signature

(f90-get-present-comment-type)

Documentation

If point lies within a comment, return the string starting the comment.

For example, "!" or "!!", followed by the appropriate amount of whitespace, if any.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/f90.el.gz
(defsubst f90-get-present-comment-type ()
  "If point lies within a comment, return the string starting the comment.
For example, \"!\" or \"!!\", followed by the appropriate amount of
whitespace, if any."
  ;; Include the whitespace for consistent auto-filling of comment blocks.
  (save-excursion
    (when (f90-in-comment)
      (beginning-of-line)
      (re-search-forward "!+[ \t]*" (line-end-position))
      (while (f90-in-string)
        (re-search-forward "!+[ \t]*" (line-end-position)))
      (match-string-no-properties 0))))