Mercurial > emacs
changeset 58408:6b5846d74ff0
pr-setup & lpr-setup
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
|---|---|
| date | Sun, 21 Nov 2004 23:05:20 +0000 |
| parents | 8bdaf013a219 |
| children | 924fa48ab4bf 2a3f27a45698 |
| files | lisp/ChangeLog lisp/printing.el |
| diffstat | 2 files changed, 17 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- 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)
--- 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")))