From 71dffedd1cda4de0788271a1f49cba740ada759e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 25 Dec 2007 22:48:13 +0000 Subject: [PATCH] (tooltip-region-active-p): Use `use-region-p'. --- lisp/tooltip.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/tooltip.el b/lisp/tooltip.el index ffbebf06245..928e5de76b9 100644 --- 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. -- 2.39.2