From 15db4e0e34041e0d0191503288cf00d9ba54c6b4 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Mon, 5 Jul 1993 04:33:42 +0000 Subject: [PATCH] * subr.el (posn-point): Properly extract the BUFFER-POSITION field of an event when read-key-sequence has placed it in a singleton list. --- lisp/subr.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/subr.el b/lisp/subr.el index 23e9da84592..76593de4870 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -359,7 +359,9 @@ as returned by the `event-start' and `event-end' functions." POSITION should be a list of the form (WINDOW BUFFER-POSITION (COL . ROW) TIMESTAMP) as returned by the `event-start' and `event-end' functions." - (nth 1 position)) + (if (consp (nth 1 position)) + (car (nth 1 position)) + (nth 1 position))) (defsubst posn-col-row (position) "Return the row and column in POSITION. -- 2.39.5