- (setq load-path (list path
- (expand-file-name "emacs-lisp" path)
- (expand-file-name "language" path)
- (expand-file-name "international" path)))))
+ (setq load-path (list dir
+ (expand-file-name "emacs-lisp" dir)
+ (expand-file-name "language" dir)
+ (expand-file-name "international" dir)
+ (expand-file-name "textmodes" dir)))))