Function: mouse-undouble-last-event

mouse-undouble-last-event is a byte-compiled function defined in mouse.el.gz.

Signature

(mouse-undouble-last-event EVENTS)

Source Code

;; Defined in /usr/src/emacs/lisp/mouse.el.gz
(defun mouse-undouble-last-event (events)
  (let* ((index (1- (length events)))
	 (last (nthcdr index events))
	 (event (car last))
	 (basic (event-basic-type event))
	 (old-modifiers (event-modifiers event))
	 (modifiers (delq 'double (delq 'triple (copy-sequence old-modifiers))))
	 (new
	  (if (consp event)
	      ;; Use reverse, not nreverse, since event-modifiers
	      ;; does not copy the list it returns.
	      (cons (event-convert-list (reverse (cons basic modifiers)))
		    (cdr event))
	    event)))
    (setcar last new)
    (if (and (not (equal modifiers old-modifiers))
	     (key-binding (apply #'vector events)))
	t
      (setcar last event)
      nil)))