Mercurial > emacs

diff lisp/tooltip.el @ 87403:f6740b43efae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 84efd7d3c35e
children 5d4b7a894119
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.