aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/printing.el
diff options
context:
space:
mode:
authorDmitry Gutov2022-08-15 02:22:59 +0300
committerDmitry Gutov2022-08-15 02:22:59 +0300
commitee3a674c7c9e39fe7ff296ce1f9830fc45520de8 (patch)
treee8ba1e7be54314f208454e80e3d31044c913f3eb /lisp/printing.el
parentfe0e53d963899a16e0dd1bbc1ba10a6b59f7989e (diff)
parent0a8e88fd83db5398d36064a7f87cff5b57da7284 (diff)
downloademacs-scratch/font_lock_large_files.tar.gz
emacs-scratch/font_lock_large_files.zip
Merge branch 'master' into scratch/font_lock_large_filesscratch/font_lock_large_files
Diffstat (limited to 'lisp/printing.el')
-rw-r--r--lisp/printing.el44
1 files changed, 11 insertions, 33 deletions
diff --git a/lisp/printing.el b/lisp/printing.el
index 83c9ffc9cbd..534b45c772b 100644
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -4,16 +4,9 @@
4 4
5;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com> 5;; Author: Vinicius Jose Latorre <viniciusjl.gnu@gmail.com>
6;; Keywords: wp, print, PostScript 6;; Keywords: wp, print, PostScript
7;; Version: 6.9.3 7;; Old-Version: 6.9.3
8;; URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre 8;; URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre
9 9
10(defconst pr-version "6.9.3"
11 "printing.el, v 6.9.3 <2007/12/09 vinicius>
12
13Please send all bug fixes and enhancements to
14 bug-gnu-emacs@gnu.org and Vinicius Jose Latorre <viniciusjl.gnu@gmail.com>
15")
16
17;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
18 11
19;; GNU Emacs is free software: you can redistribute it and/or modify 12;; GNU Emacs is free software: you can redistribute it and/or modify
@@ -63,10 +56,6 @@ Please send all bug fixes and enhancements to
63;; spool and to despool PostScript buffer. So, `printing' provides an 56;; spool and to despool PostScript buffer. So, `printing' provides an
64;; interface to ps-print package and it also provides some extra stuff. 57;; interface to ps-print package and it also provides some extra stuff.
65;; 58;;
66;; To download the latest ps-print package see
67;; `https://www.emacswiki.org/cgi-bin/wiki/PsPrintPackage'.
68;; Please, see README file for ps-print installation instructions.
69;;
70;; `printing' was inspired by: 59;; `printing' was inspired by:
71;; 60;;
72;; print-nt.el Frederic Corne <frederic.corne@erli.fr> 61;; print-nt.el Frederic Corne <frederic.corne@erli.fr>
@@ -942,11 +931,6 @@ Please send all bug fixes and enhancements to
942;; 931;;
943;; Below are some URL where you can find good utilities. 932;; Below are some URL where you can find good utilities.
944;; 933;;
945;; * For `printing' package:
946;;
947;; printing `https://www.emacswiki.org/cgi-bin/emacs/download/printing.el'
948;; ps-print `https://www.emacswiki.org/cgi-bin/wiki/PsPrintPackage'
949;;
950;; * For GNU or Unix system: 934;; * For GNU or Unix system:
951;; 935;;
952;; gs, gv `https://www.gnu.org/software/ghostscript/ghostscript.html' 936;; gs, gv `https://www.gnu.org/software/ghostscript/ghostscript.html'
@@ -1015,10 +999,6 @@ Please send all bug fixes and enhancements to
1015(require 'lpr) 999(require 'lpr)
1016(require 'ps-print) 1000(require 'ps-print)
1017 1001
1018(and (string< ps-print-version "6.6.4")
1019 (error "`printing' requires `ps-print' package version 6.6.4 or later"))
1020
1021
1022(defconst pr-cygwin-system 1002(defconst pr-cygwin-system
1023 (and lpr-windows-system (getenv "OSTYPE") 1003 (and lpr-windows-system (getenv "OSTYPE")
1024 (string-match "cygwin" (getenv "OSTYPE")))) 1004 (string-match "cygwin" (getenv "OSTYPE"))))
@@ -3007,9 +2987,7 @@ Calls `pr-update-menus' to adjust menus."
3007 2987
3008 2988
3009(defconst pr-help-message 2989(defconst pr-help-message
3010 (concat "printing.el version " pr-version 2990 "\
3011 " ps-print.el version " ps-print-version
3012 "\n\n
3013Menu Layout 2991Menu Layout
3014----------- 2992-----------
3015 2993
@@ -3215,14 +3193,12 @@ VI. Customization:
3215 23. Show current settings for `printing', `ps-print' or `lpr'. 3193 23. Show current settings for `printing', `ps-print' or `lpr'.
3216 3194
3217 24. Quick help for printing menu layout. 3195 24. Quick help for printing menu layout.
3218") 3196"
3219 "Printing help message.") 3197 "Printing help message.")
3220 3198
3221 3199
3222(defconst pr-interface-help-message 3200(defconst pr-interface-help-message
3223 (concat "printing.el version " pr-version 3201 "\
3224 " ps-print.el version " ps-print-version
3225 "\n\n
3226The printing interface buffer has the same functionality as the printing menu. 3202The printing interface buffer has the same functionality as the printing menu.
3227The major difference is that the states (like sending PostScript generated to a 3203The major difference is that the states (like sending PostScript generated to a
3228file, n-up printing, etc.) are set and saved between printing buffer 3204file, n-up printing, etc.) are set and saved between printing buffer
@@ -3449,7 +3425,7 @@ The printing interface buffer has the following sections:
3449 3425
3450 Quick help for printing interface buffer and printing menu layout. You can 3426 Quick help for printing interface buffer and printing menu layout. You can
3451 also quit the printing interface buffer or kill all printing help buffer. 3427 also quit the printing interface buffer or kill all printing help buffer.
3452") 3428"
3453 "Printing buffer interface help message.") 3429 "Printing buffer interface help message.")
3454 3430
3455 3431
@@ -4402,7 +4378,6 @@ Or choose the menu option Printing/Show Settings/printing."
4402 (mapconcat 4378 (mapconcat
4403 #'ps-print-quote 4379 #'ps-print-quote
4404 (list 4380 (list
4405 (concat "\n;;; printing.el version " pr-version "\n")
4406 ";; internal vars" 4381 ";; internal vars"
4407 (ps-comment-string "emacs-version " emacs-version) 4382 (ps-comment-string "emacs-version " emacs-version)
4408 (ps-comment-string "pr-txt-command " pr-txt-command) 4383 (ps-comment-string "pr-txt-command " pr-txt-command)
@@ -5597,9 +5572,6 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
5597 (switch-to-buffer (get-buffer-create pr-buffer-name)) 5572 (switch-to-buffer (get-buffer-create pr-buffer-name))
5598 5573
5599 ;; header 5574 ;; header
5600 (let ((versions (concat "printing v" pr-version
5601 " ps-print v" ps-print-version)))
5602 (widget-insert (make-string (- 79 (length versions)) ?\ ) versions))
5603 (pr-insert-italic "\nCurrent Directory : " 1) 5575 (pr-insert-italic "\nCurrent Directory : " 1)
5604 (pr-insert-italic default-directory) 5576 (pr-insert-italic default-directory)
5605 5577
@@ -6213,6 +6185,12 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
6213 6185
6214;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 6186;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
6215 6187
6188(defconst pr-version "6.9.3"
6189 "printing.el, v 6.9.3 <2007/12/09 vinicius>
6190
6191Please send all bug fixes and enhancements to
6192 bug-gnu-emacs@gnu.org and Vinicius Jose Latorre <viniciusjl.gnu@gmail.com>")
6193(make-obsolete-variable 'pr-version 'emacs-version "29.1")
6216 6194
6217(provide 'printing) 6195(provide 'printing)
6218 6196