From 193183e28125b9aba51ea3676b899e72de33b54d Mon Sep 17 00:00:00 2001
From: Oleh Krehel <ohwoeowho@gmail.com>
Date: Wed, 1 Apr 2015 08:58:48 +0200
Subject: Check for mark-active t in `redisplay--update-region-highlights'

* lisp/simple.el (redisplay--update-region-highlights): Revert to old
  behavior when mark-active is t.
---
 lisp/simple.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index 0b33a51b41c..dbb84633db8 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4958,8 +4958,9 @@ also checks the value of `use-empty-active-region'."
           (mapc #'redisplay--update-region-highlight
                 (delq nil
                       (mapcar (lambda (w)
-                                (and (eq w mark-active)
-                                     w))
+                                (when (or (eq mark-active t)
+                                          (eq mark-active w))
+                                  w))
                               windows)))
         (let ((msw (and (window-minibuffer-p) (minibuffer-selected-window))))
           (dolist (w windows)
-- 
cgit v1.2.1