Update copyright header.

[elisp/semi.git] / SEMI-CFG

diff --git a/SEMI-CFG b/SEMI-CFG
index 7485f10..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))
       ))
 
@@ -54,23 +55,9 @@
 ;; Function `add-path' finds path under load-path directories. If a
 ;; package does not exist in load-path, please specify by absolutely
 ;; (`~/' is available), for example
-;;     (add-path "~/lib/elisp/mailcrypt-3.4")
+;;     (add-path "~/lib/elisp/bbdb")
 ;; or
-;;     (add-path "/opt/share/xmule/site-lisp/mailcrypt-3.4")
-
-
-;;; @@ Please specify Mailcrypt path.
-;;;
-
-;; Use latest version installed in load-path.
-
-(let ((path (get-latest-path "mailcrypt" 'all-paths)))
-  (if path
-      (add-path path)
-    ))
-
-;; Or please specify path.
-;; (add-path "mailcrypt-3.4" 'all-paths)
+;;     (add-path "/opt/share/xmule/site-lisp/bbdb")
 
 
 ;;; @@ Please specify BBDB path.
@@ -153,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