From ee9e3a93f7c67f94d8cc7a748861cb7880fdaab2 Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Mon, 14 Apr 2008 21:25:17 +0100 Subject: A few elisp fixes and enhancements --- lang/elisp/internals/load.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'lang/elisp/internals') diff --git a/lang/elisp/internals/load.scm b/lang/elisp/internals/load.scm index e55c8b50f..2b6cac36f 100644 --- a/lang/elisp/internals/load.scm +++ b/lang/elisp/internals/load.scm @@ -15,9 +15,8 @@ '("") load-path))) (cond ((null? dirs) #f) - ((file-exists? (string-append (car dirs) - filename)) - (string-append (car dirs) filename)) + ((file-exists? (in-vicinity (car dirs) filename)) + (in-vicinity (car dirs) filename)) (else (loop (cdr dirs))))))) (if pathname (begin -- cgit v1.2.3