Mercurial > emacs
changeset 57780:8fe3a1b0606e
(mouse-show-mark): Adjust to new name and don't assume
x-lost-selection-functions is bound.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 28 Oct 2004 23:33:23 +0000 |
| parents | d1c1c0fc40aa |
| children | 1d855c5b0242 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Thu Oct 28 23:32:28 2004 +0000 +++ b/lisp/mouse.el Thu Oct 28 23:33:23 2004 +0000 @@ -1028,8 +1028,10 @@ (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)