Update for the new CVS server.

[elisp/flim.git] / FLIM-CFG

diff --git a/FLIM-CFG b/FLIM-CFG
index 57565ab..dc12cde 100644 (file)
--- 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))
 
@@ -16,21 +29,24 @@
       (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
       ))
 
-(defvar VERSION_SPECIFIC_LISPDIR nil)
-
-(if VERSION_SPECIFIC_LISPDIR
+(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")
 
 (add-path default-directory)
 
-(or (fboundp 'write-region-as-binary)
-    (error "Please install latest APEL 7.3 or later."))
-(or (fboundp 'insert-file-contents-as-binary)
-    (error "Please install latest APEL 7.3 or later."))
+;; (or (fboundp 'write-region-as-binary)
+;;     (error "Please install latest APEL 7.3 or later."))
+;; (or (fboundp 'insert-file-contents-as-binary)
+;;     (error "Please install latest APEL 7.3 or later."))
 
 
 ;;; @ Please specify prefix of install directory.
@@ -54,6 +70,10 @@
 (defvar LISPDIR (install-detect-elisp-directory PREFIX))
 ;; (setq install-default-elisp-directory "~/lib/emacs/lisp")
 
+(defvar VERSION_SPECIFIC_LISPDIR
+  (install-detect-elisp-directory PREFIX nil 'version-specific))
+
+;; (setq FLIM_DIR (expand-file-name FLIM_PREFIX VERSION_SPECIFIC_LISPDIR))
 (setq FLIM_DIR (expand-file-name FLIM_PREFIX LISPDIR))
 
 (defvar PACKAGEDIR