From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 1 Jul 1997 04:33:22 +0000 (+0000)
Subject: (mouse-undouble-last-event): Use reverse, not nreverse.
X-Git-Tag: emacs-20.1~1443
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7132500badc7d21bb607fd4565793a8ab2c2546b;p=emacs.git

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

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 29bc077218d..41b543e3892 100644
--- 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)