unofficial mirror of bug-guile@gnu.org 
 help / color / mirror / Atom feed
* [patch] maintain output column
@ 2007-11-13 14:17 Thien-Thi Nguyen
  0 siblings, 0 replies; only message in thread
From: Thien-Thi Nguyen @ 2007-11-13 14:17 UTC (permalink / raw)
  To: bug-guile

before, we see:
(guile-user) (port-column (current-output-port))
13

after, we see:
(guile-user) (port-column (current-output-port))
0

here is the ChangeLog entry for guile 1.4.x:

2007-11-13  Thien-Thi Nguyen  <ttn@gnuvola.org>

	* running-repls.scm (scm-style-repl consume-trailing-whitespace):
	On #\newline, zero the output port's column.

i'm sure you can figure out where this would fit for other versions.

thi


________________________________________________________________
--- running-repls.scm	12 Sep 2007 12:50:46 -0000	1.22
+++ running-repls.scm	13 Nov 2007 14:12:55 -0000	1.23
@@ -287,6 +287,9 @@
           (read-char)
           (consume-trailing-whitespace))
          ((char=? ch #\newline)
+          ;; Conspire w/ the typical user interface (ok, let's just be frank:
+          ;; Emacs' comint.el or derivative) to keep things straight.
+          (set-port-column! (current-output-port) 0)
           (read-char)))))
 
     (define (-read)



_______________________________________________
Bug-guile mailing list
Bug-guile@gnu.org
http://lists.gnu.org/mailman/listinfo/bug-guile


^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~2007-11-13 14:17 UTC | newest]

Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2007-11-13 14:17 [patch] maintain output column Thien-Thi Nguyen

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).