From c1d2b1bcf7dd3e05dfd53a383115f13e589c83f8 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Thu, 26 Aug 1999 12:30:20 +0000 Subject: [PATCH] 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. --- FLIM-CFG | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) 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") -- 1.7.10.4