* subr.el (posn-point): Properly extract the BUFFER-POSITION field

	of an event when read-key-sequence has placed it in a singleton
	list.

1 files changed, 3 insertions, 1 deletions

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.