From 6a72e405532b56406306cda56b4e2ef0807e2760 Mon Sep 17 00:00:00 2001 From: "Stefan-W. Hahn" Date: Wed, 19 Mar 2014 15:12:50 -0400 Subject: [PATCH] * lisp/ps-print.el (ps-generate-postscript-with-faces): Explicitly deactivate the mark. * lisp/simple.el (deactivate-mark): Update region highlight. Fixes: debbugs:16866 --- lisp/ChangeLog | 6 ++++++ lisp/ps-print.el | 1 + lisp/simple.el | 3 ++- 3 files changed, 9 insertions(+), 1 deletion(-) 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 + + * 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 * 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. -- 2.39.2