(tooltip-region-active-p): Use `use-region-p'.

diff --git a/lisp/tooltip.el b/lisp/tooltip.el
index ffbebf062452f530ea890e460d591058bbc11366..928e5de76b920f47a6f36ba394b47a9c973ec763 100644 (file)
--- a/lisp/tooltip.el
+++ b/lisp/tooltip.el
@@ -273,9 +273,7 @@ is based on the current syntax table."
 
 (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.