(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))
(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.