From 686296b512cb43d031c8c48196a3d110492fcf08 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Thu, 11 Aug 2022 15:21:08 +0200 Subject: [PATCH] Make pr-version variable obsolete * lisp/printing.el (pr-version): Make obsolete. (pr-help-message, pr-interface-help-message, pr-setup) (pr-create-interface): Don't use above obsolete variable. --- lisp/printing.el | 25 ++++++++++--------------- 1 file changed, 10 insertions(+), 15 deletions(-) diff --git a/lisp/printing.el b/lisp/printing.el index 83c9ffc9cbd..4006c9c8f02 100644 --- a/lisp/printing.el +++ b/lisp/printing.el @@ -4,16 +4,9 @@ ;; Author: Vinicius Jose Latorre ;; Keywords: wp, print, PostScript -;; Version: 6.9.3 +;; Old-Version: 6.9.3 ;; URL: https://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre -(defconst pr-version "6.9.3" - "printing.el, v 6.9.3 <2007/12/09 vinicius> - -Please send all bug fixes and enhancements to - bug-gnu-emacs@gnu.org and Vinicius Jose Latorre -") - ;; This file is part of GNU Emacs. ;; GNU Emacs is free software: you can redistribute it and/or modify @@ -3007,8 +3000,7 @@ Calls `pr-update-menus' to adjust menus." (defconst pr-help-message - (concat "printing.el version " pr-version - " ps-print.el version " ps-print-version + (concat "ps-print.el version " ps-print-version "\n\n Menu Layout ----------- @@ -3220,8 +3212,7 @@ VI. Customization: (defconst pr-interface-help-message - (concat "printing.el version " pr-version - " ps-print.el version " ps-print-version + (concat " ps-print.el version " ps-print-version "\n\n The printing interface buffer has the same functionality as the printing menu. The major difference is that the states (like sending PostScript generated to a @@ -4402,7 +4393,6 @@ Or choose the menu option Printing/Show Settings/printing." (mapconcat #'ps-print-quote (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) @@ -5597,8 +5587,7 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order." (switch-to-buffer (get-buffer-create pr-buffer-name)) ;; header - (let ((versions (concat "printing v" pr-version - " ps-print v" ps-print-version))) + (let ((versions (concat "ps-print v" ps-print-version))) (widget-insert (make-string (- 79 (length versions)) ?\ ) versions)) (pr-insert-italic "\nCurrent Directory : " 1) (pr-insert-italic default-directory) @@ -6213,6 +6202,12 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(defconst pr-version "6.9.3" + "printing.el, v 6.9.3 <2007/12/09 vinicius> + +Please send all bug fixes and enhancements to + bug-gnu-emacs@gnu.org and Vinicius Jose Latorre ") +(make-obsolete-variable 'pr-version 'emacs-version "29.1") (provide 'printing) -- 2.39.5