Mercurial > emacs
comparison lisp/tooltip.el @ 85529:84efd7d3c35e
* mail/vms-pmail.el (insert-signature): Don't use end-of-buffer.
* tooltip.el: Use featurep 'xemacs.
* printing.el: Move variable definitions before use, no code
change.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 22 Oct 2007 02:37:14 +0000 |
| parents | 9355f9b7bbff |
| children | f6740b43efae 4bc33ffdda1a |
comparison
equal
deleted
inserted
replaced
| 85528:b9d946f07c0e | 85529:84efd7d3c35e |
|---|---|
| 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. |