From: Vinicius Jose Latorre <viniciusjl@ig.com.br>
Date: Thu, 6 May 2004 04:34:38 +0000 (+0000)
Subject: New fun.
X-Git-Tag: ttn-vms-21-2-B4~6398
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cfb7b9ce93bac045331df89a82702205f4c1d947;p=emacs.git

New fun.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b10a9405ae..235204831e3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/ps-print.el b/lisp/ps-print.el
index 99461ae8b6c..a7b32e8b264 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -3680,8 +3680,8 @@ 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\"."
-  (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)