diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-01 05:04:28 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-01 05:04:28 +0000 |
| commit | 038da643f3ee7a41e770b16c9ac26db81e5b15d9 (patch) | |
| tree | 61bb95fd7bf2f269fca18de908a2c871d693cd86 | |
| parent | 90797cc0f7f50cda7b9a99057454149985cd1d94 (diff) | |
| download | emacs-038da643f3ee7a41e770b16c9ac26db81e5b15d9.tar.gz | |
Add a version to the obsoletions.
(mouse-show-mark): Don't quote lambda.
| -rw-r--r-- | lisp/mouse.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 12ddb3a7462..6896ff830c5 100644 --- 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 |