From b10c429fe38f17ecc3fb7b28012369cab8e08e5b Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 28 Oct 2004 23:33:23 +0000
Subject: [PATCH] (mouse-show-mark): Adjust to new name and don't assume
 x-lost-selection-functions is bound.

---
 lisp/mouse.el | 6 ++++--
 1 file 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)
-- 
2.39.5