update.
[elisp/sinfo.git] / SINFO-CFG
index c74bb1f..fbfa72f 100644 (file)
--- a/SINFO-CFG
+++ b/SINFO-CFG
@@ -1,13 +1,13 @@
 ;;; -*-Emacs-Lisp-*-
 ;;;
-;;; $Id: SINFO-CFG,v 1.1 1996-11-28 13:35:05 morioka Exp $
+;;; $Id: SINFO-CFG,v 1.2 1997-01-01 06:53:26 morioka Exp $
 ;;;
 
 (defvar default-load-path load-path)
 (setq load-path (nconc
                 (mapcar (function
                          (lambda (path)
-                           (expand-file-name path (getenv "PWD"))
+                           (expand-file-name path default-directory)
                            ))
                         '("." "../emu" "../tl" "../sinfo")
                         )