From 796c7f7a949c83d64ae37cadb9a0ca28a2f1823a Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Tue, 14 Nov 2017 18:36:12 +0100 Subject: [PATCH] ; 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. --- lisp/mouse.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.39.2