# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 867731602 0
# Node ID 828ca7cea30f93f7317765f37b6d9b1fc9caf1ec
# Parent  708870732e5da5196dbb678832039e281baa03c3
(mouse-undouble-last-event): Use reverse, not nreverse.

diff -r 708870732e5d -r 828ca7cea30f lisp/mouse.el
--- a/lisp/mouse.el	Mon Jun 30 21:25:37 1997 +0000
+++ b/lisp/mouse.el	Tue Jul 01 04:33:22 1997 +0000
@@ -726,7 +726,9 @@
 	 (modifiers (delq 'double (delq 'triple (copy-sequence old-modifiers))))
 	 (new
 	  (if (consp event)
-	      (cons (event-convert-list (nreverse (cons basic old-modifiers)))
+	      ;; Use reverse, not nreverse, since event-modifiers
+	      ;; does not copy the list it returns.
+	      (cons (event-convert-list (reverse (cons basic old-modifiers)))
 		    (cdr event))
 	    event)))
     (setcar last new)