Commit b10c429f authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(mouse-show-mark): Adjust to new name and don't assume

x-lost-selection-functions is bound.
parent d6b8bb8e
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment