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

2007-12-25 22:48:13 +00:00
parent 47757c747b
commit 71dffedd1c
1 changed files with 1 additions and 3 deletions
--- 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.