Function: tcl-end-of-defun-function

tcl-end-of-defun-function is a byte-compiled function defined in tcl.el.gz.

Signature

(tcl-end-of-defun-function)

Documentation

end-of-defun-function for Tcl mode.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/tcl.el.gz
;;
;; Interfaces to other packages.
;;

(defun tcl-end-of-defun-function ()
  "`end-of-defun-function' for Tcl mode."
  ;; Because we let users redefine tcl-proc-list, we don't really know
  ;; too much about the exact arguments passed to the "proc"-defining
  ;; command.  Instead we just skip words and lists until we see
  ;; either a ";" or a newline, either of which terminates a command.
  (skip-syntax-forward "-")
  (while (and (not (eobp))
              (not (looking-at-p "[\n;]")))
    (condition-case nil
        (forward-sexp)
      (scan-error
       (goto-char (point-max))))
    ;; Note that here we do not want to skip \n.
    (skip-chars-forward " \t")))