[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp term.el
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] emacs/lisp term.el |
Date: |
Fri, 13 Mar 2009 01:43:03 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Chong Yidong <cyd> 09/03/13 01:43:03
Modified files:
lisp : term.el
Log message:
(term-send-raw-string): Deactivate mark.
(term-send-raw, term-send-raw-meta): Undo 2009-03-08 change.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/term.el?cvsroot=emacs&r1=1.114&r2=1.115
Patches:
Index: term.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term.el,v
retrieving revision 1.114
retrieving revision 1.115
diff -u -b -r1.114 -r1.115
--- term.el 8 Mar 2009 19:37:00 -0000 1.114
+++ term.el 13 Mar 2009 01:43:03 -0000 1.115
@@ -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.