Mercurial > emacs

diff lisp/winner.el @ 87402:733157417ec4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(winner-active-region): Use `mark-active' if it's defined.
author Richard M. Stallman <rms@gnu.org>
date Tue, 25 Dec 2007 22:47:35 +0000
parents 20bb7aaa7b12
children 107ccd98fa12 56a72e2bd635
line wrap: on
line diff
--- a/lisp/winner.el	Tue Dec 25 22:47:03 2007 +0000
+++ b/lisp/winner.el	Tue Dec 25 22:47:35 2007 +0000
@@ -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)