(term-send-raw-string): Deactivate mark.

(term-send-raw, term-send-raw-meta): Undo 2009-03-08 change.

diff --git a/lisp/term.el b/lisp/term.el
index 3fda9bee646b8bbb5255d279f857dc175c930432..68a8e2095586c6f2783199bc08de7bfdab09c006 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -1168,6 +1168,7 @@ Entry to this mode runs the hooks on `term-mode-hook'."
     (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 @@ Entry to this mode runs the hooks on `term-mode-hook'."
   "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 @@ without any interpretation."
 
 (defun term-send-raw-meta ()
   (interactive)
-  (deactivate-mark)
   (let ((char last-input-event))
     (when (symbolp last-input-event)
       ;; Convert `return' to C-m, etc.