mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1997-07-01 04:33:22 +00:00
parent 8b3106fa32
commit 7132500bad
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/mouse.el
View File

@ -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)