(mouse-show-mark): Adjust to new name and don't assume

x-lost-selection-functions is bound.

1 files 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)