From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 23 Jul 2008 22:40:07 +0000 (+0000)
Subject: (recode-region): Deactivate mark at the end.
X-Git-Tag: emacs-pretest-23.0.90~3948
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=98c51a88f6af037294926607f7d04eae3c6c4081;p=emacs.git

(recode-region): Deactivate mark at the end.
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 9e0d575e6fc..35c696dc916 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -2049,7 +2049,9 @@ Part of the job of this function is setting `buffer-undo-list' appropriately."
   (save-restriction
     (narrow-to-region start end)
     (encode-coding-region (point-min) (point-max) coding)
-    (decode-coding-region (point-min) (point-max) new-coding)))
+    (decode-coding-region (point-min) (point-max) new-coding))
+  (if (region-active-p)
+      (deactivate-mark)))
 
 (defun make-translation-table (&rest args)
   "Make a translation table from arguments.