Changes from arch/CVS synchronization

[gnu-emacs] / lisp / ps-print.el

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 093dce5edeb91013c469487d61bed91a167dd9ff..a7b32e8b264ac0a1e1c115bc89258c6146e5bf6d 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -3501,7 +3501,11 @@ The table depends on the current ps-print setup."
      #'ps-print-quote
      (list
       (concat "\n;;; ps-print version " ps-print-version "\n")
+      ";; internal vars"
       (ps-comment-string "ps-print-emacs-type" ps-print-emacs-type)
+      (ps-comment-string "ps-windows-system  " ps-windows-system)
+      (ps-comment-string "ps-lp-system       " ps-lp-system)
+      nil
       '(25 . ps-print-color-p)
       '(25 . ps-lpr-command)
       '(25 . ps-lpr-switches)
@@ -3676,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)