From 1cb6d11e13c5e28f96558b85f15344abd56f5e18 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 13 Mar 2009 01:43:03 +0000 Subject: [PATCH] (term-send-raw-string): Deactivate mark. (term-send-raw, term-send-raw-meta): Undo 2009-03-08 change. --- lisp/term.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/term.el b/lisp/term.el index 3fda9bee646..68a8e209558 100644 --- 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. -- 2.39.5