# HG changeset patch
# User Vinicius Jose Latorre <viniciusjl@ig.com.br>
# Date 1083818078 0
# Node ID 028ab89f265f74064e2f397d83e67218792a9303
# Parent  a6ef0cb75c5574437fde27aad849e7b0694dc4fd
New fun.

diff -r a6ef0cb75c55 -r 028ab89f265f lisp/ChangeLog
--- a/lisp/ChangeLog	Thu May 06 04:29:32 2004 +0000
+++ b/lisp/ChangeLog	Thu May 06 04:34:38 2004 +0000
@@ -1,7 +1,8 @@
 2004-05-06  Vinicius Jose Latorre  <viniciusjl@ig.com.br>
 
 	* ps-print.el (ps-print-quote): Call ps-value-string.
-	(ps-value-string): New fun.
+	(ps-setup): Call ps-comment-string.
+	(ps-value-string, ps-comment-string): New funs.
 
 2004-05-06  Juanma Barranquero  <lektu@terra.es>
 
diff -r a6ef0cb75c55 -r 028ab89f265f lisp/ps-print.el
--- a/lisp/ps-print.el	Thu May 06 04:29:32 2004 +0000
+++ b/lisp/ps-print.el	Thu May 06 04:34:38 2004 +0000
@@ -3680,8 +3680,8 @@
 
 
 (defun ps-comment-string (str value)
-  "Return a comment string like \";; STR = VALUE\\n\"."
-  (format ";; %s = %s\n" str (ps-value-string value)))
+  "Return a comment string like \";; STR = VALUE\"."
+  (format ";; %s = %s" str (ps-value-string value)))
 
 
 (defun ps-value (alist-sym key)