Provide `mldrag' for compatibility.

(mldrag-drag-mode-line, mldrag-drag-vertical-line): New aliases, marked obsolete.

Provide `mldrag' for compatibility.
(mldrag-drag-mode-line, mldrag-drag-vertical-line): New aliases, marked obsolete.
2fe85227 · Dave Love · 24fad2a2 · 2fe85227
Commit 2fe85227 authored Aug 16, 1999 by Dave Love
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 0 deletions

lisp/mouse.el lisp/mouse.el +7 -0

No files found.
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -2026,4 +2026,11 @@ and selects that window."

 (provide 'mouse)

+;; 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)
+(provide 'mldrag)
+
 ;;; mouse.el ends here