Re: `posn-at-point' and `posn-at-x-y' not in manual

[David PONCE <david.ponce@wanadoo.fr>]

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