summaryrefslogtreecommitdiff
path: root/lisp/term.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2009-01-09 05:00:56 +0000
committerGlenn Morris <rgm@gnu.org>2009-01-09 05:00:56 +0000
commit1e4bd40da283e6bbd9f501b7fcbc748353173f41 (patch)
tree023038713fe26febec1d66ff460fe26aea104dc4 /lisp/term.el
parentcfa29281070a1f7868ed42f330d9a666b2fc39e2 (diff)
Replace last-input-char with last-input-event.
Diffstat (limited to 'lisp/term.el')
-rw-r--r--lisp/term.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/term.el b/lisp/term.el
index 56d7fb24d06..14884246c6c 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -1182,15 +1182,15 @@ Entry to this mode runs the hooks on `term-mode-hook'."
without any interpretation."
(interactive)
;; Convert `return' to C-m, etc.
- (when (and (symbolp last-input-char)
- (get last-input-char 'ascii-character))
- (setq last-input-char (get last-input-char 'ascii-character)))
- (term-send-raw-string (make-string 1 last-input-char)))
+ (when (and (symbolp last-input-event)
+ (get last-input-event 'ascii-character))
+ (setq last-input-event (get last-input-event 'ascii-character)))
+ (term-send-raw-string (make-string 1 last-input-event)))
(defun term-send-raw-meta ()
(interactive)
- (let ((char last-input-char))
- (when (symbolp last-input-char)
+ (let ((char last-input-event))
+ (when (symbolp last-input-event)
;; Convert `return' to C-m, etc.
(let ((tmp (get char 'event-symbol-elements)))
(when tmp