procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Replace last-input-char with last-input-event.

Browse source
This commit is contained in:
Glenn Morris 2009-01-09 05:00:56 +00:00
parent cfa2928107
commit 1e4bd40da2
11 changed files with 44 additions and 36 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/term.el
View file

@ -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