Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 05:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

(posn-set-point): New function.

Browse source
This commit is contained in:
Stefan Monnier 2004-04-14 17:28:33 +00:00
parent 37600b6d00
commit 17f53ffa0f
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/subr.el
View file

@ -678,7 +678,7 @@ The value is a printing character (not upper case) or a symbol."
(defsubst event-start (event)
"Return the starting position of EVENT.
If EVENT is a mouse press or a mouse click, this returns the location
If EVENT is a mouse or key press or a mouse click, this returns the location
of the event.
If EVENT is a drag, this returns the drag's starting position.
The return value is of the form
@ -689,7 +689,8 @@ The `posn-' functions access elements of such lists."
(list (selected-window) (point) '(0 . 0) 0)))
(defsubst event-end (event)
"Return the ending location of EVENT. EVENT should be a click or drag event.
"Return the ending location of EVENT.
EVENT should be a click, drag, or key press event.
If EVENT is a click event, this function is the same as `event-start'.
The return value is of the form
(WINDOW AREA-OR-POS (X . Y) TIMESTAMP OBJECT POS (COL . ROW)
@ -727,6 +728,15 @@ and `event-end' functions."
(car (nth 1 position))
(nth 1 position))))
(defun posn-set-point (position)
"Move point to POSITION.
Select the corresponding window as well."
(if (not (windowp (posn-window posn)))
(error "Position not in text area of window"))
(select-window (posn-window posn))
(if (numberp (posn-point posn))
(goto-char (posn-point posn))))
(defsubst posn-x-y (position)
"Return the x and y coordinates in POSITION.
POSITION should be a list of the form returned by the `event-start'