changeset 102511:dd124f584769

(term-send-raw-string): Deactivate mark. (term-send-raw, term-send-raw-meta): Undo 2009-03-08 change.
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 13 Mar 2009 01:43:03 +0000
parents c633dd1c509c
children 8653480cb721
files lisp/term.el
diffstat 1 files changed, 1 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term.el	Fri Mar 13 01:42:19 2009 +0000
+++ b/lisp/term.el	Fri Mar 13 01:43:03 2009 +0000
@@ -1168,6 +1168,7 @@
     (set-process-window-size process term-height term-width)))
 
 (defun term-send-raw-string (chars)
+  (deactivate-mark)
   (let ((proc (get-buffer-process (current-buffer))))
     (if (not proc)
 	(error "Current buffer has no process")
@@ -1182,7 +1183,6 @@
   "Send the last character typed through the terminal-emulator
 without any interpretation."
   (interactive)
-  (deactivate-mark)
   ;; Convert `return' to C-m, etc.
   (when (and (symbolp last-input-event)
 	     (get last-input-event 'ascii-character))
@@ -1191,7 +1191,6 @@
 
 (defun term-send-raw-meta ()
   (interactive)
-  (deactivate-mark)
   (let ((char last-input-event))
     (when (symbolp last-input-event)
       ;; Convert `return' to C-m, etc.