changeset 87403:f6740b43efae

(tooltip-region-active-p): Use `use-region-p'.
author Richard M. Stallman <rms@gnu.org>
date Tue, 25 Dec 2007 22:48:13 +0000
parents 733157417ec4
children 5d4b7a894119
files lisp/tooltip.el
diffstat 1 files changed, 1 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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.