(setq load-path
(append
- '("." ".." "../../tl"
- ;;
- ;; (ding) GNUS path
- ;;
- ;; please edit this
- ;;
- "/usr/local/lib/emacs/site-lisp/dgnus/lisp"
- ;;
- )
+ (mapcar (function
+ (lambda (path)
+ (expand-file-name path (getenv "PWD"))
+ ))
+ '("." ".." "../../tl/" "../../mel/"))
+ ;;
+ ;; (ding) GNUS path
+ ;;
+ ;; please edit this
+ ;;
+ '("/usr/local/lib/emacs/site-lisp/dgnus/lisp")
+ ;;
load-path))
-
-