(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 8632cceb19ef40e1204d086ede8679722ebab12b..109613e8f58b54d9c357bc452746d4a05e4f572c 100644 (file)
--- 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)