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

New fun.
---

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 620398ac3b9..d6042a9763c 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -3501,6 +3501,7 @@ The table depends on the current ps-print setup."
      #'ps-print-quote
      (list
       (concat "\n;;; ps-print version " ps-print-version "\n")
+      (ps-comment-string "ps-print-emacs-type" ps-print-emacs-type)
       '(25 . ps-print-color-p)
       '(25 . ps-lpr-command)
       '(25 . ps-lpr-switches)
@@ -3674,6 +3675,11 @@ If `ps-prefix-quote' is nil, it's set to t after generating string."
 	 (format "%S" val))))
 
 
+(defun ps-comment-string (str value)
+  "Return a comment string like \";; STR = VALUE\\n\"."
+  (concat ";; " str " = " (ps-value-string value) "\n"))
+
+
 (defun ps-value (alist-sym key)
   "Return value from association list ALIST-SYM which car is `eq' to KEY."
   (cdr (assq key (symbol-value alist-sym))))