diff options
| -rw-r--r-- | lisp/mouse.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 8632cceb19e..109613e8f58 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -1028,8 +1028,10 @@ If MODE is 2 then do the same for lines." (let ((inhibit-quit t) (echo-keystrokes 0) event events key ignore - (x-lost-selection-hooks (copy-sequence x-lost-selection-hooks))) - (add-hook 'x-lost-selection-hooks + (x-lost-selection-functions + (if (boundp 'x-lost-selection-functions) + (copy-sequence x-lost-selection-functions)))) + (add-hook 'x-lost-selection-hook (lambda (seltype) (if (eq seltype 'PRIMARY) (progn (setq ignore t) |