Mercurial > emacs
comparison lisp/mouse.el @ 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 | 08eb19d9ee4b |
| children | 2a55e2b38c8d |
comparison
equal
deleted
inserted
replaced
| 57779:d1c1c0fc40aa | 57780:8fe3a1b0606e |
|---|---|
| 1026 | 1026 |
| 1027 (defun mouse-show-mark () | 1027 (defun mouse-show-mark () |
| 1028 (let ((inhibit-quit t) | 1028 (let ((inhibit-quit t) |
| 1029 (echo-keystrokes 0) | 1029 (echo-keystrokes 0) |
| 1030 event events key ignore | 1030 event events key ignore |
| 1031 (x-lost-selection-hooks (copy-sequence x-lost-selection-hooks))) | 1031 (x-lost-selection-functions |
| 1032 (add-hook 'x-lost-selection-hooks | 1032 (if (boundp 'x-lost-selection-functions) |
| 1033 (copy-sequence x-lost-selection-functions)))) | |
| 1034 (add-hook 'x-lost-selection-hook | |
| 1033 (lambda (seltype) | 1035 (lambda (seltype) |
| 1034 (if (eq seltype 'PRIMARY) | 1036 (if (eq seltype 'PRIMARY) |
| 1035 (progn (setq ignore t) | 1037 (progn (setq ignore t) |
| 1036 (throw 'mouse-show-mark t))))) | 1038 (throw 'mouse-show-mark t))))) |
| 1037 (if transient-mark-mode | 1039 (if transient-mark-mode |