From: morioka <morioka>
Date: Thu, 17 Sep 1998 17:21:27 +0000 (+0000)
Subject: Define tl:overlay obsolete aliases for all emacsen.
X-Git-Tag: poe-199811302358~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=01a58e872c7a86494c030ed84a405cb33ea9f727;p=elisp%2Fapel.git

Define tl:overlay obsolete aliases for all emacsen.
---

diff --git a/emu.el b/emu.el
index 4b50e61..8dc9928 100644
--- a/emu.el
+++ b/emu.el
@@ -53,15 +53,6 @@
        (defvar mouse-button-3 'button3)
        )
       ((>= emacs-major-version 19)
-       ;; for tm-7.106
-       (defalias 'tl:make-overlay 'make-overlay)
-       (defalias 'tl:overlay-put 'overlay-put)
-       (defalias 'tl:overlay-buffer 'overlay-buffer)
-       
-       (make-obsolete 'tl:make-overlay 'make-overlay)
-       (make-obsolete 'tl:overlay-put 'overlay-put)
-       (make-obsolete 'tl:overlay-buffer 'overlay-buffer)
-       
        ;; mouse
        (defvar mouse-button-1 [mouse-1])
        (defvar mouse-button-2 [mouse-2])
@@ -74,6 +65,20 @@
        (defvar mouse-button-3 nil)
        ))
 
+;; for tm-7.106
+(unless (fboundp 'tl:make-overlay)
+  (defalias 'tl:make-overlay 'make-overlay)
+  (make-obsolete 'tl:make-overlay 'make-overlay)
+  )
+(unless (fboundp 'tl:overlay-put)
+  (defalias 'tl:overlay-put 'overlay-put)
+  (make-obsolete 'tl:overlay-put 'overlay-put)
+  )
+(unless (fboundp 'tl:overlay-put)
+  (defalias 'tl:overlay-buffer 'overlay-buffer)
+  (make-obsolete 'tl:overlay-buffer 'overlay-buffer)
+  )
+
 (require 'poem)
 (require 'mcharset)