[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: |
Masatake YAMATO |
Subject: |
Re: `posn-at-point' and `posn-at-x-y' not in manual |
Date: |
Sat, 05 Jun 2004 02:11:54 +0900 (JST) |
> Thank you, sir.
> However, I'd like not to move the mouse cursor if possible.
> I've implemented `point-pixel-position' based on your code.
> Maybe this code is applicable to popup menu.
Here is the example:
(let* ((pos (posn-at-point))
(x-y (posn-x-y pos))
(wnd (posn-window pos)))
(popup-menu (list nil "eval-after-load" "eval-and-compile" "eval-buffer"
"eval-current-buffer" "eval-defun")
(list (list (car x-y)
(cdr x-y))
wnd)))
May be useful to show completion candidate.
Masatake YAMATO