From: yamaoka <yamaoka>
Date: Thu, 26 Aug 1999 12:30:20 +0000 (+0000)
Subject: Emulate `add-to-list' and `data-directory' for old Emacsen;
X-Git-Tag: clime-1_13_4~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c1d2b1bcf7dd3e05dfd53a383115f13e589c83f8;p=elisp%2Fflim.git

Emulate `add-to-list' and `data-directory' for old Emacsen;
require `poe' if the function `member' is not bound because the function
`add-path' uses it.
---

diff --git a/FLIM-CFG b/FLIM-CFG
index 05736ce..dc12cde 100644
--- a/FLIM-CFG
+++ b/FLIM-CFG
@@ -6,6 +6,19 @@
 
 (defvar default-load-path load-path)
 
+(if (fboundp 'add-to-list)
+    nil
+  ;; Emacs 19.29 emulating function.
+  (defun add-to-list (list-var element)
+    (set list-var (cons element (symbol-value list-var))))
+  )
+
+(if (boundp 'data-directory)
+    nil
+  ;; Emacs 19 emulating variable.
+  (defvar data-directory exec-directory)
+  )
+
 (add-to-list 'load-path
 	     (expand-file-name "../../site-lisp/apel" data-directory))
 
@@ -19,6 +32,11 @@
 (if (boundp 'VERSION_SPECIFIC_LISPDIR)
     (add-to-list 'load-path VERSION_SPECIFIC_LISPDIR))
 
+(if (fboundp 'member)
+    nil
+  ;; It is needed because the function `add-path' uses it.
+  (require 'poe))
+
 (require 'install)
 
 (add-latest-path "custom")