Function: tcl-electric-char

tcl-electric-char is an interactive and byte-compiled function defined in tcl.el.gz.

Signature

(tcl-electric-char ARG)

Documentation

Insert character and correct line's indentation.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/tcl.el.gz
;; This is used for braces, brackets, and semi (except for closing
;; braces, which are handled specially).
(defun tcl-electric-char (arg)
  "Insert character and correct line's indentation."
  (interactive "p")
  ;; Indent line first; this looks better if parens blink.
  (tcl-indent-line)
  (self-insert-command arg)
  (if (and tcl-auto-newline (= last-command-event ?\;))
      (progn
	(newline)
	(tcl-indent-line))))