From 94f62922fabb004d1f453a344cbb16329d5220a0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 14 Nov 1995 22:57:02 +0000 Subject: [PATCH] (mouse-sel-lost-selection-hook): Use (car selection). --- lisp/mouse-sel.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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." (defun mouse-sel-lost-selection-hook (selection) "Remove the overlay for a lost selection." - (let ((overlay (mouse-sel-selection-overlay selection))) + (let ((overlay (mouse-sel-selection-overlay (car selection)))) (delete-overlay overlay))) (add-hook 'x-lost-selection-hooks 'mouse-sel-lost-selection-hook) -- 2.39.2