[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/printing.el
|
From: |
Vinicius Jose Latorre |
|
Subject: |
[Emacs-diffs] Changes to emacs/lisp/printing.el |
|
Date: |
Sat, 11 Jun 2005 19:18:58 -0400 |
Index: emacs/lisp/printing.el
diff -c emacs/lisp/printing.el:1.28 emacs/lisp/printing.el:1.29
*** emacs/lisp/printing.el:1.28 Mon Jun 6 12:30:35 2005
--- emacs/lisp/printing.el Sat Jun 11 23:18:58 2005
***************
*** 1,17 ****
;;; printing.el --- printing utilities
! ;; Copyright (C) 2000, 2001, 2002, 2003, 2004
;; Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <address@hidden>
;; Maintainer: Vinicius Jose Latorre <address@hidden>
! ;; 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/
! (defconst pr-version "6.8.3"
! "printing.el, v 6.8.3 <2004/11/17 vinicius>
Please send all bug fixes and enhancements to
Vinicius Jose Latorre <address@hidden>
--- 1,17 ----
;;; printing.el --- printing utilities
! ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005
;; Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <address@hidden>
;; Maintainer: Vinicius Jose Latorre <address@hidden>
! ;; Time-stamp: <2005/06/11 19:51:32 vinicius>
;; Keywords: wp, print, PostScript
! ;; Version: 6.8.4
;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/
! (defconst pr-version "6.8.4"
! "printing.el, v 6.8.4 <2005/06/11 vinicius>
Please send all bug fixes and enhancements to
Vinicius Jose Latorre <address@hidden>
***************
*** 143,149 ****
;; One way to set variables is by calling `pr-customize', customize all
;; variables and save the customization by future sessions (see Options
;; section). Other way is by coding your settings on Emacs init file (that
is,
! ;; .emacs file), see below for a first setting template that it should be
;; inserted on your ~/.emacs file (or c:/_emacs, if you're using Windows 9x/NT
;; or MS-DOS):
;;
--- 143,149 ----
;; One way to set variables is by calling `pr-customize', customize all
;; variables and save the customization by future sessions (see Options
;; section). Other way is by coding your settings on Emacs init file (that
is,
! ;; ~/.emacs file), see below for a first setting template that it should be
;; inserted on your ~/.emacs file (or c:/_emacs, if you're using Windows 9x/NT
;; or MS-DOS):
;;
***************
*** 259,267 ****
;; PostScript printer. So, please, don't include this printer in
;; `pr-txt-printer-alist' (which see).
;;
! ;; 5. Use gsprint instead of ghostscript to print monochrome PostScript files
! ;; in Windows. The gsprint utility is faster than ghostscript to print
! ;; monochrome PostScript.
;;
;; To print non-monochrome PostScript file, the efficiency of ghostscript
;; is similar to gsprint.
--- 259,267 ----
;; PostScript printer. So, please, don't include this printer in
;; `pr-txt-printer-alist' (which see).
;;
! ;; 5. You can use gsprint instead of ghostscript to print monochrome
PostScript
! ;; files in Windows. The gsprint utility documentation says that it is
more
! ;; efficient than ghostscript to print monochrome PostScript.
;;
;; To print non-monochrome PostScript file, the efficiency of ghostscript
;; is similar to gsprint.
***************
*** 271,276 ****
--- 271,301 ----
;; For more information about gsprint see
;; `http://www.cs.wisc.edu/~ghost/gsview/gsprint.htm'.
;;
+ ;; As an example of gsprint declaration:
+ ;;
+ ;; (setq pr-ps-printer-alist
+ ;; '((A "gsprint" ("-all" "-twoup") "-printer "
"my-b/w-printer-name")
+ ;; (B "gsprint" ("-all" "-twoup") nil "-printer
my-b/w-printer-name")
+ ;; ;; some other printer declaration
+ ;; ))
+ ;;
+ ;; The example above declares that printer A prints all pages (-all) and
two
+ ;; pages per sheet (-twoup). The printer B declaration does the same as
the
+ ;; printer A declaration, the only difference is the printer name
selection.
+ ;;
+ ;; There are other command line options like:
+ ;;
+ ;; -mono Render in monochrome as 1bit/pixel (only black and white).
+ ;; -grey Render in greyscale as 8bits/pixel.
+ ;; -color Render in color as 24bits/pixel.
+ ;;
+ ;; The default is `-mono'. So, printer A and B in the example above are
+ ;; using implicitly the `-mono' option. Note that in `-mono' no gray tone
+ ;; or color is printed, this includes the zebra stripes, that is, in
`-mono'
+ ;; the zebra stripes are not printed.
+ ;;
+ ;; See also documentation for `pr-ps-printer-alist'.
+ ;;
;;
;; Using `printing'
;; ----------------
***************
*** 279,286 ****
;; using Windows 9x/NT or MS-DOS):
;;
;; (require 'printing)
;;
! ;; When `printing' is loaded:
;; * On Emacs 20:
;; it replaces the Tools/Print menu by Tools/Printing menu.
;; * On Emacs 21:
--- 304,313 ----
;; using Windows 9x/NT or MS-DOS):
;;
;; (require 'printing)
+ ;; ;; ...some user settings...
+ ;; (pr-update-menus t)
;;
! ;; During `pr-update-menus' evaluation:
;; * On Emacs 20:
;; it replaces the Tools/Print menu by Tools/Printing menu.
;; * On Emacs 21:
***************
*** 885,890 ****
--- 912,918 ----
;; (lps_06b "print" nil nil "\\\\printers\\lps_06b")
;; (lps_07c "print" nil "" "/D:\\\\printers\\lps_07c")
;; (lps_08c nil nil nil "\\\\printers\\lps_08c")
+ ;; (b/w "gsprint" ("-all" "-twoup") "-printer " "b/w-pr-name")
;; (LPT1 "" nil "" "LPT1:")
;; (PRN "" nil "" "PRN")
;; (standard "redpr.exe" nil "" "")
***************
*** 923,928 ****
--- 951,959 ----
;;
;; `pr-update-menus' Update utility, PostScript and text printer
menus.
;;
+ ;; `pr-menu-bind' Install `printing' menu in the menubar.
+ ;;
+ ;;
;; Below are some URL where you can find good utilities.
;;
;; * For `printing' package:
***************
*** 934,940 ****
;;
;; gs, gv
`http://www.gnu.org/software/ghostscript/ghostscript.html'
;; enscript `http://people.ssh.fi/mtr/genscript/'
! ;; psnup `http://www.dcs.ed.ac.uk/home/ajcd/psutils/index.html'
;; mpage `http://www.mesa.nl/pub/mpage/'
;;
;; * For Windows system:
--- 965,971 ----
;;
;; gs, gv
`http://www.gnu.org/software/ghostscript/ghostscript.html'
;; enscript `http://people.ssh.fi/mtr/genscript/'
! ;; psnup `http://www.knackered.org/angus/psutils/'
;; mpage `http://www.mesa.nl/pub/mpage/'
;;
;; * For Windows system:
***************
*** 943,949 ****
;;
`http://www.gnu.org/software/ghostscript/ghostscript.html'
;; gsprint `http://www.cs.wisc.edu/~ghost/gsview/gsprint.htm'.
;; enscript `http://people.ssh.fi/mtr/genscript/'
! ;; psnup `http://www.dcs.ed.ac.uk/home/ajcd/psutils/index.html'
;; redmon `http://www.cs.wisc.edu/~ghost/redmon/'
;;
;;
--- 974,980 ----
;;
`http://www.gnu.org/software/ghostscript/ghostscript.html'
;; gsprint `http://www.cs.wisc.edu/~ghost/gsview/gsprint.htm'.
;; enscript `http://people.ssh.fi/mtr/genscript/'
! ;; psnup `http://gnuwin32.sourceforge.net/packages/psutils.htm'
;; redmon `http://www.cs.wisc.edu/~ghost/redmon/'
;;
;;
***************
*** 1400,1406 ****
(prt_07c nil nil \"/D:\\\\\\\\printers\\\\prt_07c\")
(PRN \"\" nil \"PRN\")
(standard \"redpr.exe\" nil \"\")
! )"
:type '(repeat
(list :tag "Text Printer"
(symbol :tag "Printer Symbol Name")
--- 1431,1457 ----
(prt_07c nil nil \"/D:\\\\\\\\printers\\\\prt_07c\")
(PRN \"\" nil \"PRN\")
(standard \"redpr.exe\" nil \"\")
! )
!
! Useful links:
!
! * Information about the print command (print.exe)
! `http://www.computerhope.com/printhlp.htm'
!
! * RedMon - Redirection Port Monitor (redpr.exe)
! `http://www.cs.wisc.edu/~ghost/redmon/index.htm'
!
! * Redirection Port Monitor (redpr.exe on-line help)
! `http://www.cs.wisc.edu/~ghost/redmon/en/redmon.htm'
!
! * UNIX man pages: lpr (or type `man lpr')
! `http://bama.ua.edu/cgi-bin/man-cgi?lpr'
! `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lpr'
!
! * UNIX man pages: lp (or type `man lp')
! `http://bama.ua.edu/cgi-bin/man-cgi?lp'
! `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lp'
! "
:type '(repeat
(list :tag "Text Printer"
(symbol :tag "Printer Symbol Name")
***************
*** 1448,1453 ****
--- 1499,1505 ----
;; (lps_06b "print" nil nil "\\\\printers\\lps_06b")
;; (lps_07c "print" nil "" "/D:\\\\printers\\lps_07c")
;; (lps_08c nil nil nil "\\\\printers\\lps_08c")
+ ;; (b/w "gsprint" ("-all" "-twoup") "-printer " "b/w-pr-name")
;; (LPT1 "" nil "" "LPT1:")
;; (PRN "" nil "" "PRN")
;; (standard "redpr.exe" nil "" "")
***************
*** 1486,1491 ****
--- 1538,1544 ----
\"lpr\"
\"lp\"
\"cp\"
+ \"gsprint\"
SWITCHES List of sexp's to pass as extra options for PostScript printer
program. It is recommended to set NAME (see text below)
***************
*** 1495,1500 ****
--- 1548,1556 ----
'(\"-#3\" \"-l\")
nil
+ . for gsprint.exe
+ '(\"-all\" \"-twoup\")
+
PRINTER-SWITCH A string that specifies PostScript printer name switch.
If
it's necessary to have a space between PRINTER-SWITCH and NAME,
it should be inserted at the end of PRINTER-SWITCH string.
***************
*** 1511,1516 ****
--- 1567,1575 ----
. for print.exe
\"/D:\"
+ . for gsprint.exe
+ \"-printer \"
+
NAME A string that specifies a PostScript printer name.
On Unix-like systems, a string value should be a name
understood by lpr's -P option (or lp's -d option).
***************
*** 1526,1532 ****
. for cp.exe
\"\\\\\\\\host\\\\share-name\"
! . for print.exe
\"/D:\\\\\\\\host\\\\share-name\"
\"\\\\\\\\host\\\\share-name\"
\"LPT1:\"
--- 1585,1591 ----
. for cp.exe
\"\\\\\\\\host\\\\share-name\"
! . for print.exe or gsprint.exe
\"/D:\\\\\\\\host\\\\share-name\"
\"\\\\\\\\host\\\\share-name\"
\"LPT1:\"
***************
*** 1575,1584 ****
(lps_06b \"print\" nil nil \"\\\\\\\\printers\\\\lps_06b\")
(lps_07c \"print\" nil \"\" \"/D:\\\\\\\\printers\\\\lps_07c\")
(lps_08c nil nil nil \"\\\\\\\\printers\\\\lps_08c\")
(LPT1 \"\" nil \"\" \"LPT1:\")
(PRN \"\" nil \"\" \"PRN\")
(standard \"redpr.exe\" nil \"\" \"\")
! )"
:type '(repeat
(list
:tag "PostScript Printer"
--- 1634,1713 ----
(lps_06b \"print\" nil nil \"\\\\\\\\printers\\\\lps_06b\")
(lps_07c \"print\" nil \"\" \"/D:\\\\\\\\printers\\\\lps_07c\")
(lps_08c nil nil nil \"\\\\\\\\printers\\\\lps_08c\")
+ (b/w1 \"gsprint\" (\"-all\" \"-twoup\") \"-printer \" \"b/w-pr-name\")
+ (b/w2 \"gsprint\" (\"-all\" \"-twoup\") nil \"-printer
\\\\\\\\printers\\\\lps_06a\")
(LPT1 \"\" nil \"\" \"LPT1:\")
(PRN \"\" nil \"\" \"PRN\")
(standard \"redpr.exe\" nil \"\" \"\")
! )
!
!
! gsprint:
!
! You can use gsprint instead of ghostscript to print monochrome PostScript
files
! in Windows. The gsprint utility documentation says that it is more efficient
! than ghostscript to print monochrome PostScript.
!
! To print non-monochrome PostScript file, the efficiency of ghostscript is
! similar to gsprint.
!
! Also the gsprint utility comes together with gsview distribution.
!
! As an example of gsprint declaration:
!
! (setq pr-ps-printer-alist
! '((A \"gsprint\" (\"-all\" \"-twoup\") \"-printer \" \"lps_015\")
! (B \"gsprint\" (\"-all\" \"-twoup\") nil \"-printer lps_015\")
! ;; some other printer declaration
! ))
!
! The example above declares that printer A prints all pages (-all) and two
pages
! per sheet (-twoup). The printer B declaration does the same as the printer A
! declaration, the only difference is the printer name selection.
!
! There are other command line options like:
!
! -mono Render in monochrome as 1bit/pixel (only black and white).
! -grey Render in greyscale as 8bits/pixel.
! -color Render in color as 24bits/pixel.
!
! The default is `-mono'. So, printer A and B in the example above are using
! implicitly the `-mono' option. Note that in `-mono' no gray tone or color is
! printed, this includes the zebra stripes, that is, in `-mono' the zebra
stripes
! are not printed.
!
!
! Useful links:
!
! * GSPRINT - Ghostscript print to Windows printer
! `http://www.cs.wisc.edu/~ghost/gsview/gsprint.htm'
!
! * Introduction to Ghostscript
! `http://www.cs.wisc.edu/~ghost/doc/intro.htm'
!
! * How to use Ghostscript
! `http://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm'
!
! * Information about the print command (print.exe)
! `http://www.computerhope.com/printhlp.htm'
!
! * RedMon - Redirection Port Monitor (redpr.exe)
! `http://www.cs.wisc.edu/~ghost/redmon/index.htm'
!
! * Redirection Port Monitor (redpr.exe on-line help)
! `http://www.cs.wisc.edu/~ghost/redmon/en/redmon.htm'
!
! * UNIX man pages: lpr (or type `man lpr')
! `http://bama.ua.edu/cgi-bin/man-cgi?lpr'
! `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lpr'
!
! * UNIX man pages: lp (or type `man lp')
! `http://bama.ua.edu/cgi-bin/man-cgi?lp'
! `http://www.mediacollege.com/cgi-bin/man/page.cgi?section=all&topic=lp'
!
! * GNU utilities for Win32 (cp.exe)
! `http://unxutils.sourceforge.net/'
! "
:type '(repeat
(list
:tag "PostScript Printer"
***************
*** 1674,1680 ****
"gv")
"*Specify path and name of the gsview/gv utility.
! See also `pr-path-alist'."
:type '(string :tag "Ghostview Utility")
:version "20"
:group 'printing)
--- 1803,1839 ----
"gv")
"*Specify path and name of the gsview/gv utility.
! See also `pr-path-alist'.
!
! Useful links:
!
! * GNU gv manual
! `http://www.gnu.org/software/gv/manual/gv.html'
!
! * GSview Help
! `http://www.cs.wisc.edu/~ghost/gsview/gsviewen.htm'
!
! * GSview Help - Common Problems
! `http://www.cs.wisc.edu/~ghost/gsview/gsviewen.htm#Common_Problems'
!
! * GSview Readme (compilation & installation)
! `http://www.cs.wisc.edu/~ghost/gsview/Readme.htm'
!
! * GSview (main site)
! `http://www.cs.wisc.edu/~ghost/gsview/index.htm'
!
! * Ghostscript, Ghostview and GSview
! `http://www.cs.wisc.edu/~ghost/'
!
! * Ghostview
! `http://www.cs.wisc.edu/~ghost/gv/index.htm'
!
! * gv 3.5, June 1997
! `http://www.cs.wisc.edu/~ghost/gv/gv_doc/gv.html'
!
! * MacGSView (MacOS)
! `http://www.cs.wisc.edu/~ghost/macos/index.htm'
! "
:type '(string :tag "Ghostview Utility")
:version "20"
:group 'printing)
***************
*** 1686,1692 ****
"gs")
"*Specify path and name of the ghostscript utility.
! See also `pr-path-alist'."
:type '(string :tag "Ghostscript Utility")
:version "20"
:group 'printing)
--- 1845,1866 ----
"gs")
"*Specify path and name of the ghostscript utility.
! See also `pr-path-alist'.
!
! Useful links:
!
! * Ghostscript, Ghostview and GSview
! `http://www.cs.wisc.edu/~ghost/'
!
! * Introduction to Ghostscript
! `http://www.cs.wisc.edu/~ghost/doc/intro.htm'
!
! * How to use Ghostscript
! `http://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm'
!
! * Printer compatibility
! `http://www.cs.wisc.edu/~ghost/doc/printer.htm'
! "
:type '(string :tag "Ghostscript Utility")
:version "20"
:group 'printing)
***************
*** 1717,1723 ****
- for full documentation, see in a browser the file
c:/gstools/gs5.50/index.html, that is, the file index.html which is
located in the same directory as gswin32.exe.
! - for brief documentation, type: gswin32.exe -h"
:type '(repeat (string :tag "Ghostscript Switch"))
:version "20"
:group 'printing)
--- 1891,1909 ----
- for full documentation, see in a browser the file
c:/gstools/gs5.50/index.html, that is, the file index.html which is
located in the same directory as gswin32.exe.
! - for brief documentation, type: gswin32.exe -h
!
! Useful links:
!
! * Introduction to Ghostscript
! `http://www.cs.wisc.edu/~ghost/doc/intro.htm'
!
! * How to use Ghostscript
! `http://www.cs.wisc.edu/~ghost/doc/cvs/Use.htm'
!
! * Printer compatibility
! `http://www.cs.wisc.edu/~ghost/doc/printer.htm'
! "
:type '(repeat (string :tag "Ghostscript Switch"))
:version "20"
:group 'printing)
***************
*** 2184,2190 ****
'((psnup \"c:/psutils/psnup\" (\"-q\") \"-P%s\" \"-%d\" \"-l\" nil nil \"
\"
nil (pr-file-duplex . nil) (pr-file-tumble . nil))
! )"
:type '(repeat
(list :tag "PS File Utility"
(symbol :tag "Utility Symbol")
--- 2370,2404 ----
'((psnup \"c:/psutils/psnup\" (\"-q\") \"-P%s\" \"-%d\" \"-l\" nil nil \"
\"
nil (pr-file-duplex . nil) (pr-file-tumble . nil))
! )
!
! Useful links:
!
! * mpage download (GNU or Unix)
! `http://www.mesa.nl/pub/mpage/'
!
! * mpage documentation (GNU or Unix - or type `man mpage')
! `http://www.cs.umd.edu/faq/guides/manual_unix/node48.html'
! `http://www.rt.com/man/mpage.1.html'
!
! * psnup (Windows, GNU or Unix)
! `http://www.knackered.org/angus/psutils/'
! `http://gershwin.ens.fr/vdaniel/Doc-Locale/Outils-Gnu-Linux/PsUtils/'
!
! * psnup (PsUtils for Windows)
! `http://gnuwin32.sourceforge.net/packages/psutils.htm'
!
! * psnup documentation (GNU or Unix - or type `man psnup')
! `http://linux.about.com/library/cmd/blcmdl1_psnup.htm'
! `http://amath.colorado.edu/computing/software/man/psnup.html'
!
! * GNU Enscript (Windows, GNU or Unix)
! `http://people.ssh.com/mtr/genscript/'
!
! * GNU Enscript documentation (Windows, GNU or Unix)
! `http://people.ssh.com/mtr/genscript/enscript.man.html'
! (on GNU or Unix, type `man enscript')
! "
:type '(repeat
(list :tag "PS File Utility"
(symbol :tag "Utility Symbol")
***************
*** 2845,2887 ****
)))
! (cond
! ((featurep 'xemacs) ; XEmacs
! ;; Menu binding
! (pr-xemacs-global-menubar
! (pr-x-add-submenu nil (cons "Printing" pr-menu-spec) "Apps")))
! (t ; GNU Emacs
! ;; Menu binding
! (require 'easymenu)
! ;; Replace existing "print" item by "Printing" item.
! ;; If you're changing this file, you'll load it a second,
! ;; third... time, but "print" item exists only in the first load.
! (defvar pr-menu-print-item "print")
(cond
! ;; Emacs 20
! ((string< emacs-version "21.")
! (easy-menu-change '("tools") "Printing" pr-menu-spec pr-menu-print-item)
! (when pr-menu-print-item
! (easy-menu-remove-item nil '("tools") pr-menu-print-item)
! (setq pr-menu-print-item nil
! pr-menu-bar (vector 'menu-bar 'tools
! (pr-get-symbol "Printing")))))
! ;; Emacs 21
! (pr-menu-print-item
! (easy-menu-change '("file") "Print" pr-menu-spec "print-buffer")
! (let ((items '("print-buffer" "print-region"
! "ps-print-buffer-faces" "ps-print-region-faces"
! "ps-print-buffer" "ps-print-region")))
! (while items
! (easy-menu-remove-item nil '("file") (car items))
! (setq items (cdr items)))
! (setq pr-menu-print-item nil
! pr-menu-bar (vector 'menu-bar 'file
! (pr-get-symbol "Print")))))
! (t
! (easy-menu-change '("file") "Print" pr-menu-spec)))))
;; Key binding
--- 3059,3123 ----
)))
! (defvar pr-menu-print-item "print"
! "Non-nil means that menu binding was not done.
+ Used by `pr-menu-bind' and `pr-update-menus'.")
!
! (defun pr-menu-bind ()
! "Install `printing' menu in the menubar.
!
! On Emacs 20, it replaces the Tools/Print menu by Tools/Printing menu.
!
! On Emacs 21 and 22, it replaces the File/Print* menu entries by File/Print
! menu.
!
! Calls `pr-update-menus' to adjust menus."
! (interactive)
(cond
! ((featurep 'xemacs) ; XEmacs
! ;; Menu binding
! (pr-xemacs-global-menubar
! (pr-x-add-submenu nil (cons "Printing" pr-menu-spec) "Apps"))
! (setq pr-menu-print-item nil))
!
!
! (t ; GNU Emacs
! ;; Menu binding
! (require 'easymenu)
! ;; Replace existing "print" item by "Printing" item.
! ;; If you're changing this file, you'll load it a second,
! ;; third... time, but "print" item exists only in the first load.
! (cond
! ;; Emacs 20
! ((string< emacs-version "21.")
! (easy-menu-change '("tools") "Printing" pr-menu-spec pr-menu-print-item)
! (when pr-menu-print-item
! (easy-menu-remove-item nil '("tools") pr-menu-print-item)
! (setq pr-menu-print-item nil
! pr-menu-bar (vector 'menu-bar 'tools
! (pr-get-symbol "Printing")))))
! ;; Emacs 21 & 22
! (t
! (let* ((has-file (lookup-key global-map (vector 'menu-bar 'file)))
! (item-file (if has-file '("file") '("files"))))
! (cond
! (pr-menu-print-item
! (easy-menu-change item-file "Print" pr-menu-spec "print-buffer")
! (let ((items '("print-buffer" "print-region"
! "ps-print-buffer-faces" "ps-print-region-faces"
! "ps-print-buffer" "ps-print-region")))
! (while items
! (easy-menu-remove-item nil item-file (car items))
! (setq items (cdr items)))
! (setq pr-menu-print-item nil
! pr-menu-bar (vector 'menu-bar
! (if has-file 'file 'files)
! (pr-get-symbol "Print")))))
! (t
! (easy-menu-change item-file "Print" pr-menu-spec))))))))
! (pr-update-menus t))
;; Key binding
***************
*** 4712,4723 ****
otherwise, update PostScript printer menu iff `pr-ps-printer-menu-modified' is
non-nil, update text printer menu iff `pr-txt-printer-menu-modified' is
non-nil, and update PostScript File menus iff `pr-ps-utility-menu-modified' is
! non-nil."
(interactive "P")
! (pr-update-var 'pr-ps-name pr-ps-printer-alist)
! (pr-update-var 'pr-txt-name pr-txt-printer-alist)
! (pr-update-var 'pr-ps-utility pr-ps-utility-alist)
! (pr-do-update-menus force))
(defvar pr-ps-printer-menu-modified t
--- 4948,4967 ----
otherwise, update PostScript printer menu iff `pr-ps-printer-menu-modified' is
non-nil, update text printer menu iff `pr-txt-printer-menu-modified' is
non-nil, and update PostScript File menus iff `pr-ps-utility-menu-modified' is
! non-nil.
!
! If menu binding was not done, calls `pr-menu-bind'."
(interactive "P")
! (if pr-menu-print-item ; since v6.8.4
! ;; There was no menu binding yet, so do it now!
! ;; This is a hack to be compatible with old versions of printing.
! ;; So, user does not need to change printing calling in init files.
! (pr-menu-bind)
! ;; Here menu binding is ok.
! (pr-update-var 'pr-ps-name pr-ps-printer-alist)
! (pr-update-var 'pr-txt-name pr-txt-printer-alist)
! (pr-update-var 'pr-ps-utility pr-ps-utility-alist)
! (pr-do-update-menus force)))
(defvar pr-ps-printer-menu-modified t
***************
*** 6434,6443 ****
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;; Files are not supposed to change Emacs behavior when you merely load them.
- ;;; (pr-update-menus t)
-
-
(provide 'printing)
--- 6678,6683 ----