diff options
author | Oleh Krehel <ohwoeowho@gmail.com> | 2015-04-01 08:58:48 +0200 |
---|---|---|
committer | Oleh Krehel <ohwoeowho@gmail.com> | 2015-04-01 08:58:48 +0200 |
commit | 193183e28125b9aba51ea3676b899e72de33b54d (patch) | |
tree | b962c0e15ca618985d66209fb8dfab8e89bc22c3 | |
parent | 6da5ca1f59a90adbb37dbaf9e52eb5d434cfe455 (diff) | |
download | emacs-scratch/highlight-n-windows.tar.gz |
Check for mark-active t in `redisplay--update-region-highlights'scratch/highlight-n-windows
* lisp/simple.el (redisplay--update-region-highlights): Revert to old
behavior when mark-active is t.
-rw-r--r-- | lisp/simple.el | 5 |
1 files 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) |