[Lisppaste-cvs] CVS update: lisppaste2/encode-for-pre.lisp

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/tmp/cvs-serv22707

Modified Files:
	encode-for-pre.lisp 
Log Message:
Fix for multiple spaces.

Date: Wed Nov 12 23:30:55 2003
Author: bmastenbrook

Index: lisppaste2/encode-for-pre.lisp
diff -u lisppaste2/encode-for-pre.lisp:1.2 lisppaste2/encode-for-pre.lisp:1.3
--- lisppaste2/encode-for-pre.lisp:1.2	Wed Nov 12 00:58:56 2003
+++ lisppaste2/encode-for-pre.lisp	Wed Nov 12 23:30:54 2003
@@ -1,4 +1,4 @@
-;;;; $Id: encode-for-pre.lisp,v 1.2 2003/11/12 05:58:56 bmastenbrook Exp $
+;;;; $Id: encode-for-pre.lisp,v 1.3 2003/11/13 04:30:54 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/encode-for-pre.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -26,4 +26,7 @@
 (defun encode-for-tt (str)
   (replace-in-string
    (replace-in-string
-    (replace-in-string str #\newline "") #\return "<br>") #\linefeed ""))
\ No newline at end of file
+    (replace-in-string
+     (replace-in-string
+      (replace-in-string str #\newline "") #\return "<br>") #\linefeed "")
+    #\space " ") #\tab "    "))
\ No newline at end of file