Function: tcl-real-comment-p

tcl-real-comment-p is a byte-compiled function defined in tcl.el.gz.

Signature

(tcl-real-comment-p)

Documentation

Return t if point is just after the # beginning a real comment.

Does not check to see if previous char is actually #. A real comment is either at the beginning of the buffer, preceded only by whitespace on the line, or has a preceding semicolon, opening brace, or opening bracket on the same line.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/tcl.el.gz
(defun tcl-real-comment-p ()
  "Return t if point is just after the `#' beginning a real comment.
Does not check to see if previous char is actually `#'.
A real comment is either at the beginning of the buffer,
preceded only by whitespace on the line, or has a preceding
semicolon, opening brace, or opening bracket on the same line."
  (save-excursion
    (backward-char)
    (and (tcl-real-command-p) t)))