New fun.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3f1a467b0d26e1c516fbedb78207c357907c9b1c..3b10a9405ae829b53df0263b16a07122191900e0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/ps-print.el b/lisp/ps-print.el
index d6042a9763cb9152a6c7930e77a34ac70c1f67a4..093dce5edeb91013c469487d61bed91a167dd9ff 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -3677,7 +3677,7 @@ If `ps-prefix-quote' is nil, it's set to t after generating string."
 
 (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)