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

47757c74 · Richard M. Stallman · b63dc21e · 47757c74
Commit 47757c74 authored Dec 25, 2007 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

lisp/winner.el lisp/winner.el +3 -3

No files found.
--- 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)