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