diff options
| author | Dmitry Gutov | 2022-08-15 02:22:59 +0300 |
|---|---|---|
| committer | Dmitry Gutov | 2022-08-15 02:22:59 +0300 |
| commit | ee3a674c7c9e39fe7ff296ce1f9830fc45520de8 (patch) | |
| tree | e8ba1e7be54314f208454e80e3d31044c913f3eb /lisp/printing.el | |
| parent | fe0e53d963899a16e0dd1bbc1ba10a6b59f7989e (diff) | |
| parent | 0a8e88fd83db5398d36064a7f87cff5b57da7284 (diff) | |
| download | emacs-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.el | 44 |
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 | |||
| 13 | Please 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 | ||
| 3013 | Menu Layout | 2991 | Menu 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 | ||
| 3226 | The printing interface buffer has the same functionality as the printing menu. | 3202 | The printing interface buffer has the same functionality as the printing menu. |
| 3227 | The major difference is that the states (like sending PostScript generated to a | 3203 | The major difference is that the states (like sending PostScript generated to a |
| 3228 | file, n-up printing, etc.) are set and saved between printing buffer | 3204 | file, 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 | |||
| 6191 | Please 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 | ||