Steve Youngs <youngs(a)xemacs.org&gt; writes: No problems in installing or printing. "XEmacs 21.4 (patch 6) \"Common Lisp\" [Lucid] (i686-pc-linux) of Mon Dec 24 2001 on fermat.mts.jhu.edu" -- Nevin

Steve> Please report back any successes as well as failures and don't forget Steve> to tell me what version of XEmacs you're running (and is it Mule or Steve> not). No problems with installation or printing on my box: XEmacs 21.1.14 "Cuyahoga Valley" configured for `powerpc-unknown-linux', no MULE. I note, however, that it doesn't print images (presumably the original version didn't either; I've never tried, nor is it designed to do it). Would this be difficult to add? Malcolm

Malcolm> No problems with installation or printing on my box: Malcolm> XEmacs 21.1.14 "Cuyahoga Valley" configured for Malcolm> `powerpc-unknown-linux', no MULE. Correction. Looking more carefully this morning, I have noticed the following warning: (1) (warning/warning) Autoload error in: /usr/local/lib/xemacs/xemacs-packages/lisp/ps-print/auto-autoloads: Symbol's value as variable is void: lpr-windows-system It looks like lpr.el is being picked up from os-utils (version 1.25 in my case) instead of from ps-print. Should I remove the copy from os-utils to continue testing? Malcolm

Hi Adrian, I encountered the same problem as Malcolm and tested the shadowing as you suggested. However, the problem does not seem to be that lpr.el from os-utils shadows ps-print/lpr.el (it is the other way around). I verified this by doing M-x find-library RET lpr RET --- which gives me ps-print/lpr.el. The problem seems to be, that the variable lpr-windows-system is not defined as variable in ps-print/auto-autoloads.el. Volker --

...it seems to me that ps-print/lpr.el is intented to replace os-utils/lpr.el anyway: ;; Modified by: Vinicius Jose Latorre <vinicius(a)cpqd.com.br&gt; ;; (Tentative to have a `lpr' package that runs on GNU Emacs and ;; XEmacs). Just for convenience of discussion, I append a diff between the two lpr.el versions (you can also see from this that (defvar lpr-windows-system ...) is missing the ;;;###autoload) Volker --- os-utils/lpr.el Tue Oct 3 08:47:39 2000 +++ ps-print/lpr.el Thu Dec 27 01:38:43 2001 ＠＠ -1,37 +1,49 ＠＠ ;;; lpr.el --- print Emacs buffer on line printer. -;; Copyright (C) 1985, 1988, 1992, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1988, 1992, 1994, 2000 Free Software Foundation, Inc. -;; Maintainer: FSF -;; Keywords: unix +;; Maintainer: FSF +;; Keywords: unix -;; This file is part of XEmacs. +;; Modified by: Vinicius Jose Latorre <vinicius(a)cpqd.com.br&gt; +;; (Tentative to have a `lpr' package that runs on GNU Emacs and +;; XEmacs). +;; Time-stamp: <2000/11/17 11:48:35 vinicius> +;; Version: 1.2 +;; X-URL: http://www.cpqd.com.br/~vinicius/emacs/ -;; XEmacs is free software; you can redistribute it and/or modify it -;; under the terms of the GNU General Public License as published by +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. -;; XEmacs is distributed in the hope that it will be useful, but -;; WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; General Public License for more details. +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License -;; along with XEmacs; see the file COPYING. If not, write to the Free -;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA -;; 02111-1307, USA. - -;;; Synched up with: FSF 19.34. +;; along with GNU Emacs; see the file COPYING. If not, write to the +;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, +;; Boston, MA 02111-1307, USA. ;;; Commentary: ;; Commands to send the region or a buffer your printer. Entry points -;; are `lpr-buffer', `print-buffer', `lpr-region', and `print-region'; -;; option variables include `lpr-switches' and `lpr-command'. +;; are `lpr-buffer', `print-buffer', lpr-region', or `print-region'; option +;; variables include `printer-name', `lpr-switches' and `lpr-command'. ;;; Code: +(defvar lpr-windows-system + (memq system-type '(emx win32 w32 mswindows ms-dos windows-nt))) + +(defvar lpr-lp-system + (memq system-type '(usg-unix-v dgux hpux irix))) + + (defgroup lpr nil "Print Emacs buffer on line printer" :group 'wp) ＠＠ -38,8 +50,33 ＠＠ ;;;###autoload +(defcustom printer-name + (and lpr-windows-system "PRN") + "*The name of a local printer to which data is sent for printing. +\(Note that PostScript files are sent to `ps-printer-name', which see.\) + +On Unix-like systems, a string value should be a name understood by +lpr's -P option; otherwise the value should be nil. + +On MS-DOS and MS-Windows systems, a string value is taken as the name of +a printer device or port, provided `lpr-command' is set to \"\". +Typical non-default settings would be \"LPT1\" to \"LPT3\" for parallel +printers, or \"COM1\" to \"COM4\" or \"AUX\" for serial printers, or +\"//hostname/printer\" for a shared network printer. You can also set +it to the name of a file, in which case the output gets appended to that +file. If you want to discard the printed output, set this to \"NUL\"." +:type '(choice :menu-tag "Printer Name" + :tag "Printer Name" + (const :tag "Default" nil) + ;; could use string but then we lose completion for files. + (file :tag "Name")) +:group 'lpr) + +;;;###autoload (defcustom lpr-switches nil "*List of strings to pass as extra options for the printer program. +It is recommended to set `printer-name' instead of including an explicit +switch on this list. See `lpr-command'." :type '(repeat (string :tag "Argument")) :group 'lpr) ＠＠ -52,11 +89,36 ＠＠ :type 'boolean :group 'lpr) +(defcustom lpr-printer-switch + (if lpr-lp-system + "-d " + "-P") + "*Printer switch, that is, something like \"-P\", \"-d \", \"/D:\", etc. +This switch is used in conjunction with `printer-name'." +:type '(choice :menu-tag "Printer Name Switch" + :tag "Printer Name Switch" + (const :tag "None" nil) + (string :tag "Printer Switch")) +:group 'lpr) + ;;;###autoload (defcustom lpr-command - (if (memq system-type '(usg-unix-v dgux hpux irix)) - "lp" "lpr") - "*Name of program for printing a file." + (cond + (lpr-windows-system + "") + (lpr-lp-system + "lp") + (t + "lpr")) + "*Name of program for printing a file. + +On MS-DOS and MS-Windows systems, if the value is an empty string then +Emacs will write directly to the printer port named by `printer-name'. +The programs `print' and `nprint' (the standard print programs on +Windows NT and Novell Netware respectively) are handled specially, using +`printer-name' as the destination for output; any other program is +treated like `lpr' except that an explicit filename is given as the last +argument." :type 'string :group 'lpr) ＠＠ -80,7 +142,9 ＠＠ :type 'string :group 'lpr) -(defcustom lpr-page-header-switches '("-f") +;; Berkeley systems support -F, and GNU pr supports both -f and -F, +;; So it looks like -F is a better default. +(defcustom lpr-page-header-switches '("-h" "-F") "*List of strings to use as options for the page-header-generating program. The variable `lpr-page-header-program' specifies the program to use." :type '(repeat string) ＠＠ -88,90 +152,89 ＠＠ ;;;###autoload (defun lpr-buffer () - "Print buffer contents as with Unix command `lpr'. -`lpr-switches' is a list of extra switches (strings) to pass to lpr." + "Print buffer contents without pagination or page headers. +See the variables `lpr-switches' and `lpr-command' +for customization of the printer command." (interactive) (print-region-1 (point-min) (point-max) lpr-switches nil)) ;;;###autoload (defun print-buffer () - "Print buffer contents as with Unix command `lpr -p'. -`lpr-switches' is a list of extra switches (strings) to pass to lpr." + "Paginate and print buffer contents. + +The variable `lpr-headers-switches' controls how to paginate. +If it is nil (the default), we run the `pr' program (or whatever program +`lpr-page-header-program' specifies) to paginate. +`lpr-page-header-switches' specifies the switches for that program. + +Otherwise, the switches in `lpr-headers-switches' are used +in the print command itself; we expect them to request pagination. + +See the variables `lpr-switches' and `lpr-command' +for further customization of the printer command." (interactive) (print-region-1 (point-min) (point-max) lpr-switches t)) ;;;###autoload (defun lpr-region (start end) - "Print region contents as with Unix command `lpr'. -`lpr-switches' is a list of extra switches (strings) to pass to lpr." + "Print region contents without pagination or page headers. +See the variables `lpr-switches' and `lpr-command' +for customization of the printer command." (interactive "r") (print-region-1 start end lpr-switches nil)) ;;;###autoload (defun print-region (start end) - "Print region contents as with Unix command `lpr -p'. -`lpr-switches' is a list of extra switches (strings) to pass to lpr." + "Paginate and print the region contents. + +The variable `lpr-headers-switches' controls how to paginate. +If it is nil (the default), we run the `pr' program (or whatever program +`lpr-page-header-program' specifies) to paginate. +`lpr-page-header-switches' specifies the switches for that program. + +Otherwise, the switches in `lpr-headers-switches' are used +in the print command itself; we expect them to request pagination. + +See the variables `lpr-switches' and `lpr-command' +for further customization of the printer command." (interactive "r") (print-region-1 start end lpr-switches t)) -;; XEmacs change -;; (require 'message) ; Until We can get some sensible autoloads, or - ; message-flatten-list gets put somewhere decent. -;; Sigh ... -;; `ps-flatten-list' is defined here (copied from "message.el" and -;; enhanced to handle dotted pairs as well) until we can get some -;; sensible autoloads, or `flatten-list' gets put somewhere decent. - -;; (ps-flatten-list '((a . b) c (d . e) (f g h) i . j)) -;; => (a b c d e f g h i j) - -(defun lpr-flatten-list (&rest list) - (lpr-flatten-list-1 list)) - -(defun lpr-flatten-list-1 (list) - (cond - ((null list) (list)) - ((consp list) - (append (lpr-flatten-list-1 (car list)) - (lpr-flatten-list-1 (cdr list)))) - (t (list list)))) - (defun print-region-1 (start end switches page-headers) ;; On some MIPS system, having a space in the job name ;; crashes the printer demon. But using dashes looks ugly - ;; and it seems too annoying to do for that MIPS system. - (let ((name (concat (buffer-name) " Emacs buffer")) + ;; and it seems to annoying to do for that MIPS system. + (let ((name (concat (buffer-name) " Emacs buffer")) (title (concat (buffer-name) " Emacs buffer")) + ;; Make pipes use the same coding system as + ;; writing the buffer to a file would. + (coding-system-for-write (or coding-system-for-write + buffer-file-coding-system)) + (coding-system-for-read (or coding-system-for-read + buffer-file-coding-system)) (width tab-width) nswitches switch-string) (save-excursion - (if page-headers - (if lpr-headers-switches - ;; It is possible to use an lpr option - ;; to get page headers. - (setq switches (append (if (stringp lpr-headers-switches) - (list lpr-headers-switches) - lpr-headers-switches) - switches)))) - (setq nswitches (lpr-flatten-list ; XEmacs - (mapcar '(lambda (arg) ; Dynamic evaluation - (cond ((stringp arg) arg) - ((functionp arg) (apply arg nil)) - ((symbolp arg) (eval arg)) - ((consp arg) (apply (car arg) - (cdr arg))) - (t nil))) - switches))) - (setq switch-string - (if nswitches (concat " with options " - (mapconcat 'identity nswitches " ")) - "")) + (and page-headers lpr-headers-switches + ;; It's possible to use an lpr option to get page headers. + (setq switches (append (if (stringp lpr-headers-switches) + (list lpr-headers-switches) + lpr-headers-switches) + switches))) + (setq nswitches (lpr-flatten-list + (mapcar 'lpr-eval-switch ; Dynamic evaluation + switches)) + switch-string (if switches + (concat " with options " + (mapconcat 'identity switches " ")) + "")) (message "Spooling%s..." switch-string) (if (/= tab-width 8) (let ((new-coords (print-region-new-buffer start end))) - (setq start (car new-coords) end (cdr new-coords)) - (setq tab-width width) + (setq start (car new-coords) + end (cdr new-coords) + tab-width width) (save-excursion (goto-char end) (setq end (point-marker))) ＠＠ -182,22 +245,23 ＠＠ nil ;; Run a separate program to get page headers. (let ((new-coords (print-region-new-buffer start end))) - (setq start (car new-coords) end (cdr new-coords))) - (apply 'call-process-region start end lpr-page-header-program - t t nil - (nconc (and lpr-add-switches - (list "-h" title)) - lpr-page-header-switches)) - (setq start (point-min) end (point-max)))) + (apply 'call-process-region (car new-coords) (cdr new-coords) + lpr-page-header-program t t nil + lpr-page-header-switches)) + (setq start (point-min) + end (point-max)))) (apply (or print-region-function 'call-process-region) (nconc (list start end lpr-command nil nil nil) - (nconc (and lpr-add-switches - (list "-J" name)) - ;; These belong in pr if we are using that. - (and lpr-add-switches lpr-headers-switches - (list "-T" title)) - nswitches))) + (and lpr-add-switches + (list "-J" name)) + ;; These belong in pr if we are using that. + (and lpr-add-switches lpr-headers-switches + (list "-T" title)) + (and (stringp printer-name) + (list (concat lpr-printer-switch + printer-name))) + nswitches)) (if (markerp end) (set-marker end nil)) (message "Spooling%s...done" switch-string)))) ＠＠ -212,14 +276,15 ＠＠ (cons ostart oend) (let ((oldbuf (current-buffer))) (set-buffer (get-buffer-create " *spool temp*")) - (widen) (erase-buffer) + (widen) + (erase-buffer) (insert-buffer-substring oldbuf ostart oend) (cons (point-min) (point-max))))) (defun printify-region (begin end) - "Turn nonprinting characters (other than TAB, LF, SPC, RET, and FF) -in the current buffer into printable representations as control or -hexadecimal escapes." + "Replace nonprinting characters in region with printable representations. +The printable representations use ^ (for ASCII control characters) or hex. +The characters tab, linefeed, space, return and formfeed are not affected." (interactive "r") (save-excursion (goto-char begin) ＠＠ -227,10 +292,38 ＠＠ (while (re-search-forward "[\^＠-\^h\^k\^n-\^_\177-\377]" end t) (setq c (preceding-char)) (delete-backward-char 1) - (insert - (if (< c ?\ ) - (format "\\^%c" (+ c ?＠)) - (format "\\%02x" c))))))) + (insert (if (< c ?\ ) + (format "\\^%c" (+ c ?＠)) + (format "\\%02x" c))))))) + +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Functions hacked from `ps-print' package. + +;; Dynamic evaluation +(defun lpr-eval-switch (arg) + (cond ((stringp arg) arg) + ((functionp arg) (apply arg nil)) + ((symbolp arg) (symbol-value arg)) + ((consp arg) (apply (car arg) (cdr arg))) + (t nil))) + +;; `lpr-flatten-list' is defined here (copied from "message.el" and +;; enhanced to handle dotted pairs as well) until we can get some +;; sensible autoloads, or `flatten-list' gets put somewhere decent. + +;; (lpr-flatten-list '((a . b) c (d . e) (f g h) i . j)) +;; => (a b c d e f g h i j) + +(defun lpr-flatten-list (&rest list) + (lpr-flatten-list-1 list)) + +(defun lpr-flatten-list-1 (list) + (cond + ((null list) (list)) + ((consp list) + (append (lpr-flatten-list-1 (car list)) + (lpr-flatten-list-1 (cdr list)))) + (t (list list)))) (provide 'lpr) --

|--==> "MP" == Malcolm Purvis <malcolmpurvis(a)optushome.com.au&gt; writes: MP> No problems with installation or printing on my box: MP> XEmacs 21.1.14 "Cuyahoga Valley" configured for MP> `powerpc-unknown-linux', no MULE. Great, thanks. MP> I note, however, that it doesn't print images (presumably the MP> original version didn't either; I've never tried, nor is it MP> designed to do it). Would this be difficult to add? Not sure. -- |---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---| | XEmacs - It's not just an editor. | | It's a way of life. | |------------------------------------&lt;youngs(a)xemacs.org&gt;---|

MP> Would [image printing] be difficult to add? Volker> AFAIK this has never been part of ps-print. The person to Volker> ask would be Vinicius Jose Latorre ( Volker> http://www.cpqd.com.br/~vinicius/emacs/ ) --- but I guess Volker> it would be quite difficult to add ... I don't see why, at least not for systems with Ghostscript and netpbm. The mule-ps-print does something a lot more complicated (it generates whole fonts on the fly from X11 BDFs). The main issues would have to do with getting the scaling right, and that should be more cut-and-try than anything else. At least for draft-quality, which is all you'd get from most XEmacs buffers anyway (since you can't easily flow text around an image). -- Institute of Policy and Planning Sciences http://turnbull.sk.tsukuba.ac.jp University of Tsukuba Tennodai 1-1-1 Tsukuba 305-8573 JAPAN Don't ask how you can "do" free software business; ask what your business can "do for" free software.

Volker> printing on an old Linux (SuSE 6.0) with a standard inkjet (non Volker> postscript printer) did NOT work (despite I had no problems with the Volker> old ps-print 3.05x). [...] However, I can not print this file on the Volker> inkjet --- even when using the system's lpr command, and not lpr.el. Unless lpr has been configured to pass the file through ghostscript on the way to the printer, I can't see any postscript working in this case, so there isn't much ps-print can do. Does printing a random postscript file work in this case? Malcolm

|--==> "VF" == Volker Franz <volker.franz(a)tuebingen.mpg.de&gt; writes: VF> Hi Steve, VF> I tested the new ps-print package on XEmacs 21.1.14 NonMule and found: VF> - Installing worked well, however I got the same warning as Malcolm VF> malcolmpurvis(a)optushome.com.au (See discussion in that thread): VF> (1) (warning/warning) Autoload error in: /home/vf/.xemacs/packages/lisp/ps-print/auto-autoloads: VF> Symbol's value as variable is void: lpr-windows-system Yep, I just need to add a couple of autoload cookies. I'll do up a new package and upload it to the experimental directory shortly. VF> - printing on IRIX 6.5 with a laser printer (postscript printer) VF> worked fine. Great! VF> - printing on an old Linux (SuSE 6.0) with a standard inkjet (non VF> postscript printer) did NOT work Not great. :-( VF> old ps-print 3.05x). The generated postscript seems to be ok, because VF> I can view it in ghostview and print on the (above) IRIX 6.5 VF> laser printer (postscript printer). However, I can not print this VF> file on the inkjet --- even when using the system's lpr command, and not VF> lpr.el. Just for clarity's sake, are you telling me that you can't print _anything_ using this ps-print with your inkjet, or are you saying that you just can't print one particular file? Can you send me the offending file, so I can try to print it here. Oh, and thanks very much for taking the time to test this for me. I really appreciate it. -- |---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---| | XEmacs - It's not just an editor. | | It's a way of life. | |------------------------------------&lt;youngs(a)xemacs.org&gt;---|

Okay, there's a new ps-print-0.52-pkg.tar.gz in: /ftp.xemacs.org:/pub/xemacs/beta/experimental/ It fixes the problem with 'lpr-windows-system' and also one you may not have found yet, 'lpr-lp-system'. Could you please confirm for me that the problem has gone away. Thanks. -- |---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---| | XEmacs - It's not just an editor. | | It's a way of life. | |------------------------------------&lt;youngs(a)xemacs.org&gt;---|

|--==> "MP" == Malcolm Purvis <malcolmpurvis(a)optushome.com.au&gt; writes: Steve> Okay, there's a new ps-print-0.52-pkg.tar.gz in [...] MP> No problems with this version. Thanks! Great. Thanks for testing. -- |---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---| | XEmacs - It's not just an editor. | | It's a way of life. | |------------------------------------&lt;youngs(a)xemacs.org&gt;---|

|--==> "VF" == Volker Franz <volker.franz(a)tuebingen.mpg.de&gt; writes: VF> everything works nicely now --- COOL!!! Woohoo! That's great, thanks dude! -- |---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---| | XEmacs - It's not just an editor. | | It's a way of life. | |------------------------------------&lt;youngs(a)xemacs.org&gt;---|

|--==> "VF" == Volker Franz <volker.franz(a)tuebingen.mpg.de&gt; writes: VF> Hi Steve, VF> I played with the printer installation (apsfilter) of the LinuxBox --- VF> and now it works for both the new and the old ps-print versions!!! Cool! VF> So, it seems that the settings were simply wrong --- and maybe we don't VF> need to worry about it. I hope so. I'll check those files you sent anyway. -- |---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---| | XEmacs - It's not just an editor. | | It's a way of life. | |------------------------------------&lt;youngs(a)xemacs.org&gt;---|