[Emacs-diffs] emacs/lisp term.el

[Chong Yidong]

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.