(winner-active-region): Use `mark-active' if it's defined.

diff --git a/lisp/winner.el b/lisp/winner.el
index 1eb39a1..941f3ce 100644 (file)
--- 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)