From: Jim Blandy <jimb@redhat.com>
Date: Mon, 5 Jul 1993 04:33:42 +0000 (+0000)
Subject: * subr.el (posn-point): Properly extract the BUFFER-POSITION field
X-Git-Tag: emacs-19.34~11860
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=15db4e0e34041e0d0191503288cf00d9ba54c6b4;p=emacs.git

* 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 --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.