Mercurial > emacs

changeset 55384:4be40784bad4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New fun.
author Vinicius Jose Latorre <viniciusjl@ig.com.br>
date Thu, 06 May 2004 03:47:19 +0000
parents ba1da01a183d
children 854d5cc2365b
files lisp/ps-print.el
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ps-print.el	Thu May 06 03:21:04 2004 +0000
+++ b/lisp/ps-print.el	Thu May 06 03:47:19 2004 +0000
@@ -3501,6 +3501,7 @@
      #'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 @@
 	 (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))))