# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1198622893 0
# Node ID f6740b43efaed9e897af3d7423db815753ec4b5e
# Parent  733157417ec46488e6079078be3ee004d2630c54
(tooltip-region-active-p): Use `use-region-p'.

diff -r 733157417ec4 -r f6740b43efae lisp/tooltip.el
--- a/lisp/tooltip.el	Tue Dec 25 22:47:35 2007 +0000
+++ b/lisp/tooltip.el	Tue Dec 25 22:48:13 2007 +0000
@@ -273,9 +273,7 @@
 
 (defmacro tooltip-region-active-p ()
   "Value is non-nil if the region is currently active."
-  (if (not (featurep 'xemacs))
-      `(and transient-mark-mode mark-active)
-    `(region-active-p)))
+  `(use-region-p))
 
 (defun tooltip-expr-to-print (event)
   "Return an expression that should be printed for EVENT.