Add a version to the obsoletions.

(mouse-show-mark): Don't quote lambda.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 12ddb3a74629e37fc2b826a9bb5760e92f22f3fd..6896ff830c5062be7e0cfbfed08e2fd062e8bce6 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -836,7 +836,7 @@ If DIR is positive skip forward; if negative, skip backward."
              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 @@ and selects that window."
 ;; 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