# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 959835868 0
# Node ID 42c2692d3933c1b9e2d1361a24be439148b0e74b
# Parent  fa490904bee017664bf678bdda2c6c6637e77520
Add a version to the obsoletions.
(mouse-show-mark): Don't quote lambda.

diff -r fa490904bee0 -r 42c2692d3933 lisp/mouse.el
--- a/lisp/mouse.el	Thu Jun 01 04:58:08 2000 +0000
+++ b/lisp/mouse.el	Thu Jun 01 05:04:28 2000 +0000
@@ -836,7 +836,7 @@
 	      event events key ignore
 	      x-lost-selection-hooks)
 	  (add-hook 'x-lost-selection-hooks
-		    '(lambda (seltype)
+		    (lambda (seltype)
 		       (if (eq seltype 'PRIMARY)
 			   (progn (setq ignore t)
 				  (throw 'mouse-show-mark t)))))
@@ -2054,8 +2054,8 @@
 ;; This file contains the functionality of the old mldrag.el.
 (defalias 'mldrag-drag-mode-line 'mouse-drag-mode-line)
 (defalias 'mldrag-drag-vertical-line 'mouse-drag-vertical-line)
-(make-obsolete 'mldrag-drag-mode-line 'mouse-drag-mode-line)
-(make-obsolete 'mldrag-drag-vertical-line 'mouse-drag-vertical-line)
+(make-obsolete 'mldrag-drag-mode-line 'mouse-drag-mode-line "21.1")
+(make-obsolete 'mldrag-drag-vertical-line 'mouse-drag-vertical-line "21.1")
 (provide 'mldrag)
 
 ;;; mouse.el ends here