# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 741846822 0
# Node ID ad2bd545983ef80fd41feb8694594c8d69749c20
# Parent  8ef557c6a30a2352dbd2ceeb1f10c0abe1383ac7
	* subr.el (posn-point): Properly extract the BUFFER-POSITION field
	of an event when read-key-sequence has placed it in a singleton
	list.

diff -r 8ef557c6a30a -r ad2bd545983e lisp/subr.el
--- a/lisp/subr.el	Mon Jul 05 04:26:30 1993 +0000
+++ b/lisp/subr.el	Mon Jul 05 04:33:42 1993 +0000
@@ -359,7 +359,9 @@
 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.