From: Richard M. Stallman Date: Tue, 25 Dec 2007 22:48:13 +0000 (+0000) Subject: (tooltip-region-active-p): Use `use-region-p'. X-Git-Tag: emacs-pretest-23.0.90~8836 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=71dffedd1cda4de0788271a1f49cba740ada759e;p=emacs.git (tooltip-region-active-p): Use `use-region-p'. --- 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.