Mercurial > emacs
changeset 15647:f898a38206ab
(normal-top-level-add-to-load-path):
Use directory-file-name since load-path elements don't end in /.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 12 Jul 1996 00:08:09 +0000 |
| parents | 6f12a8d1dad6 |
| children | 2feeabc94834 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Fri Jul 12 00:05:23 1996 +0000 +++ b/lisp/startup.el Fri Jul 12 00:08:09 1996 +0000 @@ -304,7 +304,7 @@ ;; This function is called from the subdirs.el file. (defun normal-top-level-add-to-load-path (dirs) - (let ((tail (member default-directory load-path))) + (let ((tail (member (directory-file-name default-directory) load-path))) (setcdr tail (append (mapcar 'expand-file-name dirs) (cdr tail))))) (defun normal-top-level ()