Function: tcl-real-command-p

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

Signature

(tcl-real-command-p)

Documentation

Return nil if point is not at the beginning of a command.

A command is the first word on an otherwise empty line, or the first word following a semicolon, opening brace, or opening bracket.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/tcl.el.gz
;;
;; Auto-fill support.
;;

(defun tcl-real-command-p ()
  "Return nil if point is not at the beginning of a command.
A command is the first word on an otherwise empty line, or the
first word following a semicolon, opening brace, or opening bracket."
  (save-excursion
    (skip-chars-backward " \t")
    (cond
     ((bobp) t)
     ((bolp)
      (backward-char)
      ;; Note -- continued comments are not supported here.  I
      ;; consider those to be a wart on the language.
      (not (eq ?\\ (preceding-char))))
     (t
      (memq (preceding-char) '(?\; ?{ ?\[))))))