[Gd-chatter] r11561 - trunk/fundev/sources/deuce

[andreas at gwydiondylan.org]

Author: andreas
Date: Wed Dec 19 00:42:45 2007
New Revision: 11561

Modified:
   trunk/fundev/sources/deuce/shell-mode.dylan
Log:
job: fd

Always add newline in shell mode when activating the command.


Modified: trunk/fundev/sources/deuce/shell-mode.dylan
==============================================================================
--- trunk/fundev/sources/deuce/shell-mode.dylan	(original)
+++ trunk/fundev/sources/deuce/shell-mode.dylan	Wed Dec 19 00:42:45 2007
@@ -207,9 +207,7 @@
   let start-bp   = line-start(start-line);
   let end-line   = section-end-line(section);
   let end-bp     = line-end(end-line);
-  unless (line-empty?(end-line))
-    insert-moving!(end-bp, '\n')
-  end;
+  insert-moving!(end-bp, '\n');
   section-output-line(section) := bp-line(end-bp);	// first line of output
   let interval = make-interval(start-bp, line-end(line-previous(bp-line(end-bp))),
 			       in-order?: #t);