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