Mercurial > emacs
comparison lisp/tooltip.el @ 91073:4bc33ffdda1a
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 902-908)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 131-137)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 261-262)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-278
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 27 Oct 2007 09:12:07 +0000 |
| parents | f55f9811f5d7 84efd7d3c35e |
| children | 56a72e2bd635 |
comparison
equal
deleted
inserted
replaced
| 91072:74ab3ea909f9 | 91073:4bc33ffdda1a |
|---|---|
| 271 (when (> (point) start) | 271 (when (> (point) start) |
| 272 (buffer-substring start (point))))))) | 272 (buffer-substring start (point))))))) |
| 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 (string-match "^GNU" (emacs-version)) | 276 (if (not (featurep 'xemacs)) |
| 277 `(and transient-mark-mode mark-active) | 277 `(and transient-mark-mode mark-active) |
| 278 `(region-active-p))) | 278 `(region-active-p))) |
| 279 | 279 |
| 280 (defun tooltip-expr-to-print (event) | 280 (defun tooltip-expr-to-print (event) |
| 281 "Return an expression that should be printed for EVENT. | 281 "Return an expression that should be printed for EVENT. |