# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 837130089 0
# Node ID f898a38206ab449367ea4fa7d6b45917b62b072d
# Parent  6f12a8d1dad6ef3d2e20bffee161feeb2aba72ec
(normal-top-level-add-to-load-path):
Use directory-file-name since load-path elements don't end in /.

diff -r 6f12a8d1dad6 -r f898a38206ab lisp/startup.el
--- 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 ()