From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 25 Dec 2007 22:47:35 +0000 (+0000)
Subject: (winner-active-region): Use `mark-active' if it's defined.
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/47757c747bd955d685682229e44800218a7ec64d

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

diff --git a/lisp/winner.el b/lisp/winner.el
index 1eb39a1339..941f3cef99 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)