(mime-save-content): Return filename.

[elisp/semi.git] / SEMI-CFG

diff --git a/SEMI-CFG b/SEMI-CFG
index 3e41bae..3d069e5 100644 (file)
--- a/SEMI-CFG
+++ b/SEMI-CFG
@@ -15,6 +15,7 @@
     (progn
       (add-to-list 'default-load-path LISPDIR)
       (add-to-list 'load-path LISPDIR)
+      (add-to-list 'load-path (expand-file-name "emu" LISPDIR))
       (add-to-list 'load-path (expand-file-name "apel" LISPDIR))
       ))
 
@@ -139,18 +140,6 @@
        "tm-plain" "tm-ps"
        "tmdecode"))
 
-(defvar PACKAGEDIR
-  (if (boundp 'early-packages)
-      (let ((dirs (append (if early-package-load-path
-                             early-packages)
-                         (if late-package-load-path
-                             late-packages)
-                         (if last-package-load-path
-                             last-packages)))
-           dir)
-       (while (not (file-exists-p
-                    (setq dir (car dirs))))
-         (setq dirs (cdr dirs)))
-       dir)))
+(defvar PACKAGEDIR (install-get-default-package-directory))
 
 ;;; SEMI-CFG ends here