From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 30 Jun 2000 03:08:20 +0000 (+0000)
Subject: Fix bug: file completion wasn't working right if the pathname being
X-Git-Tag: 20090517-FFI~3420
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a7e3ee3fd99f3e64830b3d6ae1179ab48516f52a;p=mit-scheme.git

Fix bug: file completion wasn't working right if the pathname being
completed ended in a directory separator.
---

diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index d13d36306..a0f778e1e 100644
--- a/v7/src/imail/imail-file.scm
+++ b/v7/src/imail/imail-file.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-file.scm,v 1.50 2000/06/30 02:59:54 cph Exp $
+;;; $Id: imail-file.scm,v 1.51 2000/06/30 03:08:20 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -46,7 +46,8 @@
     ((string <string>) (default-url <file-url>)
 		       if-unique if-not-unique if-not-found)
   (pathname-complete-string
-   (merge-pathnames string (file-url-pathname default-url))
+   (merge-pathnames string
+		    (directory-pathname (file-url-pathname default-url)))
    (lambda (pathname) pathname #t)
    (lambda (string)
      (if-unique (->namestring string)))
@@ -59,7 +60,8 @@
     ((string <string>) (default-url <file-url>))
   (map ->namestring
        (pathname-completions-list
-	(merge-pathnames string (file-url-pathname default-url))
+	(merge-pathnames string
+			 (directory-pathname (file-url-pathname default-url)))
 	(lambda (pathname) pathname #t))))
 
 ;;;; Server operations