# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1236908583 0
# Node ID dd124f584769e43ac34c85807d7201da83c53613
# Parent  c633dd1c509cc0188809b2e86e276fa880cc068b
(term-send-raw-string): Deactivate mark.
(term-send-raw, term-send-raw-meta): Undo 2009-03-08 change.

diff -r c633dd1c509c -r dd124f584769 lisp/term.el
--- 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.