diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:23:38 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-01-09 04:23:38 +0000 |
| commit | 1ba983e8d9da561ccbdf15fb1544895fad40cce8 (patch) | |
| tree | 88210d37a85f0ef4a8d3341074b185c9d0187dad /lisp/progmodes/tcl.el | |
| parent | e93c003eb15f85f744a39c28a8fb43b8c6da9904 (diff) | |
| download | emacs-1ba983e8d9da561ccbdf15fb1544895fad40cce8.tar.gz | |
Replace last-command-char with last-command-event.
Diffstat (limited to 'lisp/progmodes/tcl.el')
| -rw-r--r-- | lisp/progmodes/tcl.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el index 2484146abc3..8760df78ddf 100644 --- a/lisp/progmodes/tcl.el +++ b/lisp/progmodes/tcl.el @@ -634,7 +634,7 @@ Commands: ;; Indent line first; this looks better if parens blink. (tcl-indent-line) (self-insert-command arg) - (if (and tcl-auto-newline (= last-command-char ?\;)) + (if (and tcl-auto-newline (= last-command-event ?\;)) (progn (newline) (tcl-indent-line)))) @@ -658,7 +658,7 @@ Commands: ;; In auto-newline case, must insert a newline after each ;; brace. So an explicit loop is needed. (while (> arg 0) - (insert last-command-char) + (insert last-command-event) (tcl-indent-line) (newline) (setq arg (1- arg)))) |