[Emacs-diffs] /srv/bzr/emacs/trunk r99385: * lisp/term.el (term-send-raw-meta): Revert 2009-12-04 change (Bug#5330).

[Chong Yidong]

------------------------------------------------------------
revno: 99385
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Wed 2010-01-20 12:14:37 -0500
message:
  * lisp/term.el (term-send-raw-meta): Revert 2009-12-04 change (Bug#5330).
modified:
  lisp/ChangeLog
  lisp/term.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-01-20 03:46:23 +0000
+++ b/lisp/ChangeLog    2010-01-20 17:14:37 +0000
@@ -1,3 +1,7 @@
+2010-01-20  Chong Yidong  <address@hidden>
+
+       * term.el (term-send-raw-meta): Revert 2009-12-04 change (Bug#5330).
+
 2010-01-20  Glenn Morris  <address@hidden>
 
        * indent.el (tab-always-indent): Fix custom-type.

=== modified file 'lisp/term.el'
--- a/lisp/term.el      2010-01-13 08:35:10 +0000
+++ b/lisp/term.el      2010-01-20 17:14:37 +0000
@@ -1208,8 +1208,17 @@
 
 (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))