mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Add a version to the obsoletions.

Browse source 
(mouse-show-mark): Don't quote lambda.
This commit is contained in:
Stefan Monnier 2000-06-01 05:04:28 +00:00
parent 20482b7061
commit 342a1e7b20
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/mouse.el
View file

@ -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