[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: `posn-at-point' and `posn-at-x-y' not in manual
From: |
David PONCE |
Subject: |
Re: `posn-at-point' and `posn-at-x-y' not in manual |
Date: |
Fri, 4 Jun 2004 16:37:08 +0200 (CEST) |
Masatake YAMATO wrote:
>>Of course! Thanks!
>>As an example, here is an implementation of a `set-mouse-at-point'
>>function that seems to work very well :-)
>
>
> How about tooltip?
> Doctor, please show a sample. People wish your epiphany:-)
>
Here it is:
(defun tooltip-show-at-point (text)
"Display a tooltip with TEXT near cursor."
(let* ((oP (mouse-pixel-position))
(tooltip-x-offset 0)
(tooltip-y-offset (- (frame-char-height))))
(set-mouse-at-point)
(tooltip-show text)
(set-mouse-pixel-position (nth 0 oP) (nth 1 oP) (nthcdr 2 oP))
))
David