From a7e3ee3fd99f3e64830b3d6ae1179ab48516f52a Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 30 Jun 2000 03:08:20 +0000 Subject: [PATCH] Fix bug: file completion wasn't working right if the pathname being completed ended in a directory separator. --- v7/src/imail/imail-file.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 ) (default-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 ) (default-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 -- 2.25.1