diff options
| author | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2004-11-21 23:05:20 +0000 |
|---|---|---|
| committer | Vinicius Jose Latorre <viniciusjl@ig.com.br> | 2004-11-21 23:05:20 +0000 |
| commit | 83aebfe62204109f19ef7dcca5429c1ddad21c57 (patch) | |
| tree | 1a19e67160b028e72f3f2b50d8fa2607a417568f /lisp/printing.el | |
| parent | c033ddefa5a871421bccbf210ffedf3375a80f9f (diff) | |
| download | emacs-83aebfe62204109f19ef7dcca5429c1ddad21c57.tar.gz | |
pr-setup & lpr-setup
Diffstat (limited to 'lisp/printing.el')
| -rw-r--r-- | lisp/printing.el | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/lisp/printing.el b/lisp/printing.el index 639ecbbbdf2..b70c55b3f98 100644 --- a/lisp/printing.el +++ b/lisp/printing.el @@ -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 @@ Or choose the menu option Printing/Show Settings/printing." (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 @@ Or choose the menu option Printing/Show Settings/lpr." (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"))) |