Mercurial > emacs

comparison lisp/term.el @ 102448:70c4cdb16713

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(term-send-raw-meta): Deactivate the mark first (Bug#2449).
author Chong Yidong <cyd@stupidchicken.com>
date Sun, 08 Mar 2009 19:37:00 +0000
parents 1d22159e6128
children dd124f584769
comparison
equal deleted inserted replaced
102447:ca47e74f590a 102448:70c4cdb16713
1189 (setq last-input-event (get last-input-event 'ascii-character))) 1189 (setq last-input-event (get last-input-event 'ascii-character)))
1190 (term-send-raw-string (make-string 1 last-input-event))) 1190 (term-send-raw-string (make-string 1 last-input-event)))
1191 1191
1192 (defun term-send-raw-meta () 1192 (defun term-send-raw-meta ()
1193 (interactive) 1193 (interactive)
1194 (deactivate-mark)
1194 (let ((char last-input-event)) 1195 (let ((char last-input-event))
1195 (when (symbolp last-input-event) 1196 (when (symbolp last-input-event)
1196 ;; Convert `return' to C-m, etc. 1197 ;; Convert `return' to C-m, etc.
1197 (let ((tmp (get char 'event-symbol-elements))) 1198 (let ((tmp (get char 'event-symbol-elements)))
1198 (when tmp 1199 (when tmp