From 80253ae45271d491cf8ac5a179aab0ef647a491d Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Sun, 21 Aug 2005 16:53:23 +0000
Subject: [PATCH] Fix parsing problem with trailing whitespaces and no
 cursor-index.

---
 scheme/cmdline.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scheme/cmdline.scm b/scheme/cmdline.scm
index 1c04297..4eed9bd 100644
--- a/scheme/cmdline.scm
+++ b/scheme/cmdline.scm
@@ -139,7 +139,8 @@
 	  (cond
 	   ((eof-object? c)
 	    (lp c (if (or cursor?
-			  (= (current-column port) cursor-index))
+			  (and cursor-index
+			       (= (current-column port) cursor-index)))
 		      (cons (make-empty-to-complete cursor-index)
 			    tokens)
 		      tokens)))