[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))))
    (tooltip-show text)
    (set-mouse-pixel-position (nth 0 oP) (nth 1 oP) (nthcdr 2 oP))


reply via email to

[Prev in Thread] Current Thread [Next in Thread]