diff options
author | Chong Yidong <cyd@stupidchicken.com> | 2009-03-13 01:43:03 +0000 |
---|---|---|
committer | Chong Yidong <cyd@stupidchicken.com> | 2009-03-13 01:43:03 +0000 |
commit | 1cb6d11e13c5e28f96558b85f15344abd56f5e18 (patch) | |
tree | c8ad371529b89bccff332b841b0397c8b7f3a1bc /lisp/term.el | |
parent | f7e49cc5b678ff1338dcd66a1d7b193a18b6aba0 (diff) | |
download | emacs-1cb6d11e13c5e28f96558b85f15344abd56f5e18.tar.gz |
(term-send-raw-string): Deactivate mark.
(term-send-raw, term-send-raw-meta): Undo 2009-03-08 change.
Diffstat (limited to 'lisp/term.el')
-rw-r--r-- | lisp/term.el | 3 |
1 files changed, 1 insertions, 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. |