diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2017-11-14 18:36:12 +0100 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2017-11-14 18:36:12 +0100 |
| commit | 796c7f7a949c83d64ae37cadb9a0ca28a2f1823a (patch) | |
| tree | 6c30dac5fb7a03b4f8df38238f6e3d77fed7a5d6 /lisp | |
| parent | 40d41dd4971a880b30b505e6f0da797048983954 (diff) | |
| download | emacs-796c7f7a949c83d64ae37cadb9a0ca28a2f1823a.tar.gz emacs-796c7f7a949c83d64ae37cadb9a0ca28a2f1823a.tar.bz2 emacs-796c7f7a949c83d64ae37cadb9a0ca28a2f1823a.zip | |
; 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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mouse.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |