* lisp/ps-print.el (ps-generate-postscript-with-faces):

Explicitly deactivate the mark.
* lisp/simple.el (deactivate-mark): Update region highlight.

Fixes: debbugs:16866

3 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 50afbc2002d..4e75e88c68e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-03-19  Stefan-W. Hahn  <stefan.hahn@s-hahn.de>
+
+        * ps-print.el (ps-generate-postscript-with-faces):
+        Explicitly deactivate the mark (bug#16866).
+        * simple.el (deactivate-mark): Update region highlight.
+
 2014-03-19  Juanma Barranquero  <lekktu@gmail.com>
 
         * emacs-lisp/package.el (describe-package-1):
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 6251a6caa87..004bdce1f6a 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -6429,6 +6429,7 @@ If FACE is not a valid face name, use default face."
   (save-restriction
     (narrow-to-region from to)
     (ps-print-ensure-fontified from to)
+    (deactivate-mark)                   ;bug#16866.
     (ps-generate-postscript-with-faces1 from to)))
 
 (defun ps-generate-postscript (from to)
diff --git a/lisp/simple.el b/lisp/simple.el
index 09a9d45c43a..d77de2f567b 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4386,7 +4386,8 @@ run `deactivate-mark-hook'."
       (if (eq (car-safe transient-mark-mode) 'only)
           (setq transient-mark-mode (cdr transient-mark-mode)))
       (setq mark-active nil)
-      (run-hooks 'deactivate-mark-hook))))
+      (run-hooks 'deactivate-mark-hook))
+    (redisplay--update-region-highlight (selected-window))))
 
 (defun activate-mark (&optional no-tmm)
   "Activate the mark.