diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-10-28 23:33:23 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-10-28 23:33:23 +0000 |
| commit | b807d660cab3ca4c76b243e410506e5fc95583a8 (patch) | |
| tree | ffff258d2708a47ea6d6e8484a79ec594a20d97c /lisp/mouse.el | |
| parent | 0be3e9bf8c42129edbd3be1a9d289055e628fc52 (diff) | |
| download | emacs-b807d660cab3ca4c76b243e410506e5fc95583a8.tar.gz | |
(mouse-show-mark): Adjust to new name and don't assume
x-lost-selection-functions is bound.
Diffstat (limited to 'lisp/mouse.el')
| -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) |