Mercurial > emacs
diff lisp/subr.el @ 3860:70bdc91ef161
* subr.el (event-end): Modified to account for multi-click events.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Tue, 22 Jun 1993 02:02:00 +0000 |
parents | d2df5ca46b39 |
children | c78753b7eea8 |
line wrap: on
line diff
--- a/lisp/subr.el Mon Jun 21 20:08:39 1993 +0000 +++ b/lisp/subr.el Tue Jun 22 02:02:00 1993 +0000 @@ -313,7 +313,7 @@ The return value is of the form (WINDOW BUFFER-POSITION (COL . ROW) TIMESTAMP) The `posn-' functions access elements of such lists." - (nth (1- (length event)) event)) + (nth (if (consp (nth 2 event)) 2 1) event)) (defsubst posn-window (position) "Return the window in POSITION.