Johan Bockg� <bojohan at gnu.org>

[gnu-emacs] / lisp / winner.el

diff --git a/lisp/winner.el b/lisp/winner.el
index 27b68106a531ee52909ce34d7256899a92e1a832..5e9d6a3212e90e434116d9ce5f089db79b190e39 100644 (file)
--- a/lisp/winner.el
+++ b/lisp/winner.el
@@ -51,7 +51,7 @@
     '(region-active-p)))
 
 (defsetf winner-active-region () (store)
-  (if (fboundp 'zmacs-activate-region)
+  (if (featurep 'xemacs)
       `(if ,store (zmacs-activate-region)
         (zmacs-deactivate-region))
     `(setq mark-active ,store)))