Function: tcl-add-log-defun

tcl-add-log-defun is a byte-compiled function defined in tcl.el.gz.

Signature

(tcl-add-log-defun)

Documentation

Return name of Tcl function point is in, or nil.

Aliases

add-log-tcl-defun (obsolete since 28.1)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/tcl.el.gz
(defun tcl-add-log-defun ()
  "Return name of Tcl function point is in, or nil."
  (save-excursion
    (let ((orig-point (point)))
      (when (beginning-of-defun)
        ;; Only return the name when in the body of the function.
        (when (save-excursion
                (end-of-defun)
                (>= (point) orig-point))
          (when (looking-at (concat tcl-proc-regexp "\\([^ \t\n{]+\\)"))
            (match-string 2)))))))