[Emacs-diffs] trunk r116803: * lisp/ps-print.el (ps-generate-postscript-with-faces):

[Stefan Monnier]

------------------------------------------------------------
revno: 116803
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=16866
author: Stefan-W. Hahn <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2014-03-19 15:12:50 -0400
message:
  * lisp/ps-print.el (ps-generate-postscript-with-faces):
  Explicitly deactivate the mark.
  * lisp/simple.el (deactivate-mark): Update region highlight.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/ps-print.el               psprint.el-20091113204419-o5vbwnq5f7feedwu-767
  lisp/simple.el                 simple.el-20091113204419-o5vbwnq5f7feedwu-403

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-19 16:14:26 +0000
+++ b/lisp/ChangeLog    2014-03-19 19:12:50 +0000
@@ -1,3 +1,9 @@
+2014-03-19  Stefan-W. Hahn  <address@hidden>
+
+       * 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  <address@hidden>
 
        * emacs-lisp/package.el (describe-package-1):

=== modified file 'lisp/ps-print.el'
--- a/lisp/ps-print.el  2014-01-16 06:24:06 +0000
+++ b/lisp/ps-print.el  2014-03-19 19:12:50 +0000
@@ -6429,6 +6429,7 @@
   (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)

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2014-03-18 20:49:24 +0000
+++ b/lisp/simple.el    2014-03-19 19:12:50 +0000
@@ -4386,7 +4386,8 @@
       (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.