Mercurial > emacs

comparison lisp/term.el @ 108402:d3036620c45e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from mainline.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Fri, 22 Jan 2010 14:50:35 +0000
parents 200d1ac9090a
children d835100c3e8b f702fa9eb85e
comparison
equal deleted inserted replaced
108401:46c08e6b42d6 108402:d3036620c45e
1206 (let ((keys (this-command-keys))) 1206 (let ((keys (this-command-keys)))
1207 (term-send-raw-string (string (aref keys (1- (length keys))))))) 1207 (term-send-raw-string (string (aref keys (1- (length keys)))))))
1208 1208
1209 (defun term-send-raw-meta () 1209 (defun term-send-raw-meta ()
1210 (interactive) 1210 (interactive)
1211 (let* ((keys (this-command-keys)) 1211 (let ((char last-input-event))
1212 (char (aref keys (1- (length keys))))) 1212 (when (symbolp last-input-event)
1213 ;; Convert `return' to C-m, etc.
1214 (let ((tmp (get char 'event-symbol-elements)))
1215 (when tmp
1216 (setq char (car tmp)))
1217 (when (symbolp char)
1218 (setq tmp (get char 'ascii-character))
1219 (when tmp
1220 (setq char tmp)))))
1221 (setq char (event-basic-type char))
1213 (term-send-raw-string (if (and (numberp char) 1222 (term-send-raw-string (if (and (numberp char)
1214 (> char 127) 1223 (> char 127)
1215 (< char 256)) 1224 (< char 256))
1216 (make-string 1 char) 1225 (make-string 1 char)
1217 (format "\e%c" char))))) 1226 (format "\e%c" char)))))