diff lisp/international/mule.el @ 96947:57b80a67db7b

(recode-region): Deactivate mark at the end.
author Chong Yidong <cyd@stupidchicken.com>
date Wed, 23 Jul 2008 22:40:07 +0000
parents f7271aace10a
children c3512b2085a0
line wrap: on
line diff
--- a/lisp/international/mule.el	Wed Jul 23 22:39:57 2008 +0000
+++ b/lisp/international/mule.el	Wed Jul 23 22:40:07 2008 +0000
@@ -2049,7 +2049,9 @@
   (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.