From 47757c747bd955d685682229e44800218a7ec64d Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Tue, 25 Dec 2007 22:47:35 +0000
Subject: [PATCH] (winner-active-region): Use `mark-active' if it's defined.

---
 lisp/winner.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/winner.el b/lisp/winner.el
index 1eb39a13399..941f3cef99b 100644
--- a/lisp/winner.el
+++ b/lisp/winner.el
@@ -46,9 +46,9 @@
 
 
 (defmacro winner-active-region ()
-  (if (fboundp 'region-active-p)
-      '(region-active-p)
-    'mark-active))
+  (if (boundp 'mark-active)
+      'mark-active
+    '(region-active-p)))
 
 (defsetf winner-active-region () (store)
   (if (fboundp 'zmacs-activate-region)
-- 
2.39.2