diff options
| author | Richard M. Stallman | 2007-12-25 22:48:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2007-12-25 22:48:13 +0000 |
| commit | 71dffedd1cda4de0788271a1f49cba740ada759e (patch) | |
| tree | e7d384b7f745b201dbbe15e3cce4a0f11143b28a | |
| parent | 47757c747bd955d685682229e44800218a7ec64d (diff) | |
| download | emacs-71dffedd1cda4de0788271a1f49cba740ada759e.tar.gz emacs-71dffedd1cda4de0788271a1f49cba740ada759e.zip | |
(tooltip-region-active-p): Use `use-region-p'.
| -rw-r--r-- | lisp/tooltip.el | 4 |
1 files changed, 1 insertions, 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." | |||
| 273 | 273 | ||
| 274 | (defmacro tooltip-region-active-p () | 274 | (defmacro tooltip-region-active-p () |
| 275 | "Value is non-nil if the region is currently active." | 275 | "Value is non-nil if the region is currently active." |
| 276 | (if (not (featurep 'xemacs)) | 276 | `(use-region-p)) |
| 277 | `(and transient-mark-mode mark-active) | ||
| 278 | `(region-active-p))) | ||
| 279 | 277 | ||
| 280 | (defun tooltip-expr-to-print (event) | 278 | (defun tooltip-expr-to-print (event) |
| 281 | "Return an expression that should be printed for EVENT. | 279 | "Return an expression that should be printed for EVENT. |