# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1099006491 0
# Node ID 1d855c5b0242b87e5e3a94dfc0195e1b5b985786
# Parent  8fe3a1b0606e2038d939a4c44976c4e894ed7f60
(mouse-sel-mode): Adjust to new names for x-lost-selection-functions.

diff -r 8fe3a1b0606e -r 1d855c5b0242 lisp/mouse-sel.el
--- a/lisp/mouse-sel.el	Thu Oct 28 23:33:23 2004 +0000
+++ b/lisp/mouse-sel.el	Thu Oct 28 23:34:51 2004 +0000
@@ -1,6 +1,7 @@
 ;;; mouse-sel.el --- multi-click selection support for Emacs 19
 
-;; Copyright (C) 1993,1994,1995,2001,2002 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1995, 2001, 2002, 2004
+;;           Free Software Foundation, Inc.
 
 ;; Author: Mike Williams <mdub@bigfoot.com>
 ;; Keywords: mouse
@@ -243,7 +244,7 @@
   :group 'mouse-sel
   (if mouse-sel-mode
       (progn
-	(add-hook 'x-lost-selection-hooks 'mouse-sel-lost-selection-hook)
+	(add-hook 'x-lost-selection-functions 'mouse-sel-lost-selection-hook)
 	(when mouse-sel-default-bindings
 	  ;; Save original bindings and replace them with new ones.
 	  (setq mouse-sel-original-bindings
@@ -263,7 +264,7 @@
 		  interprogram-paste-function nil))))
 
     ;; Restore original bindings
-    (remove-hook 'x-lost-selection-hooks 'mouse-sel-lost-selection-hook)
+    (remove-hook 'x-lost-selection-functions 'mouse-sel-lost-selection-hook)
     (dolist (binding mouse-sel-original-bindings)
       (global-set-key (car binding) (cdr binding)))
     ;; Restore the old values of these variables,
@@ -712,5 +713,5 @@
 
 (provide 'mouse-sel)
 
-;;; arch-tag: 86e6c73f-deaa-48d3-a24e-c565fda1f7d7
+;; arch-tag: 86e6c73f-deaa-48d3-a24e-c565fda1f7d7
 ;;; mouse-sel.el ends here