# HG changeset patch
# User Vinicius Jose Latorre <viniciusjl@ig.com.br>
# Date 1101078320 0
# Node ID 6b5846d74ff0986dba42f846a2fa06bcdb672471
# Parent  8bdaf013a219858d58f27a13ab500b4d4186ed8b
pr-setup & lpr-setup

diff -r 8bdaf013a219 -r 6b5846d74ff0 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Nov 21 22:52:46 2004 +0000
+++ b/lisp/ChangeLog	Sun Nov 21 23:05:20 2004 +0000
@@ -6,6 +6,8 @@
 	(ps-insert-file): Use insert-file-contents instead of insert-file.
 	(ps-setup): Code fix.
 
+	* printing.el (pr-setup, lpr-setup): Code fix.
+
 2004-11-21  Jay Belanger  <belanger@truman.edu>
 
 	* calc/calc-prog.el (math-integral-cache-state, calc-lang)
diff -r 8bdaf013a219 -r 6b5846d74ff0 lisp/printing.el
--- a/lisp/printing.el	Sun Nov 21 22:52:46 2004 +0000
+++ b/lisp/printing.el	Sun Nov 21 23:05:20 2004 +0000
@@ -5,7 +5,7 @@
 
 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
-;; Time-stamp: <2004/11/17 19:27:57 vinicius>
+;; Time-stamp: <2004/11/21 20:56:53 vinicius>
 ;; Keywords: wp, print, PostScript
 ;; Version: 6.8.3
 ;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
@@ -4280,6 +4280,7 @@
      (list
       (concat "\n;;; printing.el version " pr-version "\n")
       ";; internal vars"
+      (ps-comment-string "emacs-version       " emacs-version)
       (ps-comment-string "pr-txt-command      " pr-txt-command)
       (ps-comment-string "pr-txt-switches     "
 			 (pr-switches-string pr-txt-switches "pr-txt-switches"))
@@ -4355,16 +4356,19 @@
   (let (ps-prefix-quote)
     (mapconcat
      #'ps-print-quote
-     '("\n;;; lpr.el settings\n"
-       (25 . printer-name)
-       (25 . lpr-switches)
-       (25 . lpr-add-switches)
-       (25 . lpr-command)
-       (25 . lpr-headers-switches)
-       (25 . print-region-function)
-       (25 . lpr-page-header-program)
-       (25 . lpr-page-header-switches)
-       ")\n\n;;; lpr.el - end of settings\n")
+     (list
+      "\n;;; lpr.el settings\n"
+      (ps-comment-string "emacs-version" emacs-version)
+      nil
+      '(25 . printer-name)
+      '(25 . lpr-switches)
+      '(25 . lpr-add-switches)
+      '(25 . lpr-command)
+      '(25 . lpr-headers-switches)
+      '(25 . print-region-function)
+      '(25 . lpr-page-header-program)
+      '(25 . lpr-page-header-switches)
+      ")\n\n;;; lpr.el - end of settings\n")
      "\n")))