From: Martin Rudalics <rudalics@gmx.at>
Date: Tue, 14 Nov 2017 17:36:12 +0000 (+0100)
Subject: ; Fix last fix of 'mouse-drag-and-drop-region'
X-Git-Tag: emacs-26.0.91~308
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=796c7f7a949c83d64ae37cadb9a0ca28a2f1823a;p=emacs.git

; Fix last fix of 'mouse-drag-and-drop-region'

* lisp/mouse.el (mouse-drag-and-drop-region): Use 'car-safe'
instead of 'car' to ignore 'select-window' events.  Thanks to
Stefan Monnier for spotting this.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 545a7ff2a02..17d1732e501 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -2382,7 +2382,7 @@ is copied instead of being cut."
                (setq event (read-event))
                (or (mouse-movement-p event)
                    ;; Handle `mouse-autoselect-window'.
-                   (eq (car event) 'select-window)))
+                   (eq (car-safe event) 'select-window)))
         (unless value-selection ; initialization
           (delete-overlay mouse-secondary-overlay)
           (setq value-selection (buffer-substring start end))