diff options
| author | Richard M. Stallman | 1995-11-14 22:57:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-11-14 22:57:02 +0000 |
| commit | 94f62922fabb004d1f453a344cbb16329d5220a0 (patch) | |
| tree | f7be3bd21180056b899af6e0c1556064c597a5e0 | |
| parent | 6dcba8a327f1c9b1d884c1b167ee9fd8b775ebc9 (diff) | |
| download | emacs-94f62922fabb004d1f453a344cbb16329d5220a0.tar.gz emacs-94f62922fabb004d1f453a344cbb16329d5220a0.zip | |
(mouse-sel-lost-selection-hook): Use (car selection).
| -rw-r--r-- | lisp/mouse-sel.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el index fe557ee755e..93c59a9b633 100644 --- a/lisp/mouse-sel.el +++ b/lisp/mouse-sel.el | |||
| @@ -574,7 +574,7 @@ If `mouse-yank-at-point' is non-nil, insert at point instead." | |||
| 574 | 574 | ||
| 575 | (defun mouse-sel-lost-selection-hook (selection) | 575 | (defun mouse-sel-lost-selection-hook (selection) |
| 576 | "Remove the overlay for a lost selection." | 576 | "Remove the overlay for a lost selection." |
| 577 | (let ((overlay (mouse-sel-selection-overlay selection))) | 577 | (let ((overlay (mouse-sel-selection-overlay (car selection)))) |
| 578 | (delete-overlay overlay))) | 578 | (delete-overlay overlay))) |
| 579 | 579 | ||
| 580 | (add-hook 'x-lost-selection-hooks 'mouse-sel-lost-selection-hook) | 580 | (add-hook 'x-lost-selection-hooks 'mouse-sel-lost-selection-hook) |