diff options
| author | Stefan Monnier | 2000-06-01 05:04:28 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-06-01 05:04:28 +0000 |
| commit | 342a1e7b200193b4373c8fed3f9ff46a36557637 (patch) | |
| tree | 5e848bbfaaa46aced41f7952d94a2f933828a957 | |
| parent | 20482b7061ced4500c005f1bd2c4e59d831e35c9 (diff) | |
| download | emacs-342a1e7b200193b4373c8fed3f9ff46a36557637.tar.gz emacs-342a1e7b200193b4373c8fed3f9ff46a36557637.zip | |
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." | |||
| 836 | event events key ignore | 836 | event events key ignore |
| 837 | x-lost-selection-hooks) | 837 | x-lost-selection-hooks) |
| 838 | (add-hook 'x-lost-selection-hooks | 838 | (add-hook 'x-lost-selection-hooks |
| 839 | '(lambda (seltype) | 839 | (lambda (seltype) |
| 840 | (if (eq seltype 'PRIMARY) | 840 | (if (eq seltype 'PRIMARY) |
| 841 | (progn (setq ignore t) | 841 | (progn (setq ignore t) |
| 842 | (throw 'mouse-show-mark t))))) | 842 | (throw 'mouse-show-mark t))))) |
| @@ -2054,8 +2054,8 @@ and selects that window." | |||
| 2054 | ;; This file contains the functionality of the old mldrag.el. | 2054 | ;; This file contains the functionality of the old mldrag.el. |
| 2055 | (defalias 'mldrag-drag-mode-line 'mouse-drag-mode-line) | 2055 | (defalias 'mldrag-drag-mode-line 'mouse-drag-mode-line) |
| 2056 | (defalias 'mldrag-drag-vertical-line 'mouse-drag-vertical-line) | 2056 | (defalias 'mldrag-drag-vertical-line 'mouse-drag-vertical-line) |
| 2057 | (make-obsolete 'mldrag-drag-mode-line 'mouse-drag-mode-line) | 2057 | (make-obsolete 'mldrag-drag-mode-line 'mouse-drag-mode-line "21.1") |
| 2058 | (make-obsolete 'mldrag-drag-vertical-line 'mouse-drag-vertical-line) | 2058 | (make-obsolete 'mldrag-drag-vertical-line 'mouse-drag-vertical-line "21.1") |
| 2059 | (provide 'mldrag) | 2059 | (provide 'mldrag) |
| 2060 | 2060 | ||
| 2061 | ;;; mouse.el ends here | 2061 | ;;; mouse.el ends here |