Mercurial > emacs
comparison lisp/startup.el @ 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 | 92107cc54a5f |
| children | 647b8cab9d9a |
comparison
equal
deleted
inserted
replaced
| 15646:6f12a8d1dad6 | 15647:f898a38206ab |
|---|---|
| 302 | 302 |
| 303 (defvar init-file-had-error nil) | 303 (defvar init-file-had-error nil) |
| 304 | 304 |
| 305 ;; This function is called from the subdirs.el file. | 305 ;; This function is called from the subdirs.el file. |
| 306 (defun normal-top-level-add-to-load-path (dirs) | 306 (defun normal-top-level-add-to-load-path (dirs) |
| 307 (let ((tail (member default-directory load-path))) | 307 (let ((tail (member (directory-file-name default-directory) load-path))) |
| 308 (setcdr tail (append (mapcar 'expand-file-name dirs) (cdr tail))))) | 308 (setcdr tail (append (mapcar 'expand-file-name dirs) (cdr tail))))) |
| 309 | 309 |
| 310 (defun normal-top-level () | 310 (defun normal-top-level () |
| 311 (if command-line-processed | 311 (if command-line-processed |
| 312 (message "Back to top level.") | 312 (message "Back to top level.") |