From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Thu, 19 Sep 1991 22:12:17 +0000 (+0000)
Subject: Fix bug that makes completion on an empty filename break.
X-Git-Tag: 20090517-FFI~10197
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a6ed3ea33fb92c2f0ef375eb4369e0a567181c74;p=mit-scheme.git

Fix bug that makes completion on an empty filename break.
---

diff --git a/v7/src/edwin/comint.scm b/v7/src/edwin/comint.scm
index 063ff1bff..d6416a61c 100644
--- a/v7/src/edwin/comint.scm
+++ b/v7/src/edwin/comint.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comint.scm,v 1.8 1991/08/28 14:47:04 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/comint.scm,v 1.9 1991/09/19 22:12:17 arthur Exp $
 
 Copyright (c) 1991 Massachusetts Institute of Technology
 
@@ -486,10 +486,13 @@ it just adds completion characters to the end of the filename."
 (define (comint-current-filename-region)
   (let ((point (current-point))
 	(chars "~/A-Za-z0-9---_.$#,"))
-    (let ((start (skip-chars-backward chars point (comint-line-start point))))
-      (let ((end (skip-chars-forward chars start (line-end start 0))))
-	(and (mark< start end)
-	     (make-region start end))))))
+    (let ((line-start (comint-line-start point)))
+      (let ((start
+	     (if (mark< point line-start)
+		 point
+		 (skip-chars-backward chars point (comint-line-start point)))))
+	(let ((end (skip-chars-forward chars start (line-end start 0))))
+	  (make-region start end))))))
 
 (define (comint-filename-complete pathname filename insert-completion)
   (standard-completion filename