(mouse-undouble-last-event): Use reverse, not nreverse.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 29bc077218d9e6b23b81e1c0eb64b65fea941418..41b543e38926b11297b1ff16171f106d1ea4c002 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -726,7 +726,9 @@ If DIR is positive skip forward; if negative, skip backward."
         (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)