mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

* lisp/term.el (term-send-raw-meta): Revert 2009-12-04 change (Bug#5330).

Browse Source
This commit is contained in:
Chong Yidong 2010-01-20 12:14:37 -05:00
parent 8ae41cbce2
commit 5189d95ba6
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2010-01-20 Chong Yidong <cyd@stupidchicken.com>
* term.el (term-send-raw-meta): Revert 2009-12-04 change (Bug#5330).
2010-01-20 Glenn Morris <rgm@gnu.org>
* indent.el (tab-always-indent): Fix custom-type.

13
lisp/term.el
View File

@ -1208,8 +1208,17 @@ without any interpretation."
(defun term-send-raw-meta ()
(interactive)
(let* ((keys (this-command-keys))
(char (aref keys (1- (length keys)))))
(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
(setq char (car tmp)))
(when (symbolp char)
(setq tmp (get char 'ascii-character))
(when tmp
(setq char tmp)))))
(setq char (event-basic-type char))
(term-send-raw-string (if (and (numberp char)
(> char 127)
(< char 256))