# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1099006403 0
# Node ID 8fe3a1b0606e2038d939a4c44976c4e894ed7f60
# Parent  d1c1c0fc40aad0009af23d13754c0f1bdef87a21
(mouse-show-mark): Adjust to new name and don't assume
x-lost-selection-functions is bound.

diff -r d1c1c0fc40aa -r 8fe3a1b0606e lisp/mouse.el
--- a/lisp/mouse.el	Thu Oct 28 23:32:28 2004 +0000
+++ b/lisp/mouse.el	Thu Oct 28 23:33:23 2004 +0000
@@ -1028,8 +1028,10 @@
   (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)