From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 28 Oct 2004 23:33:23 +0000 (+0000)
Subject: (mouse-show-mark): Adjust to new name and don't assume
X-Git-Tag: ttn-vms-21-2-B4~4330
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b10c429fe38f17ecc3fb7b28012369cab8e08e5b;p=emacs.git

(mouse-show-mark): Adjust to new name and don't assume
x-lost-selection-functions is bound.
---

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)