# HG changeset patch
# User Vinicius Jose Latorre <viniciusjl@ig.com.br>
# Date 1083816005 0
# Node ID 854d5cc2365b9c47c9a267feb4cfe652d5b57468
# Parent  4be40784bad497cbef02e57e6fa86fe2c2c24957
New fun.

diff -r 4be40784bad4 -r 854d5cc2365b lisp/ChangeLog
--- a/lisp/ChangeLog	Thu May 06 03:47:19 2004 +0000
+++ b/lisp/ChangeLog	Thu May 06 04:00:05 2004 +0000
@@ -1,3 +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.
+
 2004-05-06  Juanma Barranquero  <lektu@terra.es>
 
 	* help-fns.el (help-argument-name): Default to bold; don't inherit
diff -r 4be40784bad4 -r 854d5cc2365b lisp/ps-print.el
--- a/lisp/ps-print.el	Thu May 06 03:47:19 2004 +0000
+++ b/lisp/ps-print.el	Thu May 06 04:00:05 2004 +0000
@@ -3677,7 +3677,7 @@
 
 (defun ps-comment-string (str value)
   "Return a comment string like \";; STR = VALUE\\n\"."
-  (concat ";; " str " = " (ps-value-string value) "\n"))
+  (format ";; %s = %s\n" str (ps-value-string value)))
 
 
 (defun ps-value (alist-sym key)