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

|--==> "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;---|

Hi Steve, I tested the new ps-print package on XEmacs 21.1.14 NonMule and found: - Installing worked well, however I got the same warning as Malcolm malcolmpurvis(a)optushome.com.au (See discussion in that thread): (1) (warning/warning) Autoload error in: /home/vf/.xemacs/packages/lisp/ps-print/auto-autoloads: Symbol's value as variable is void: lpr-windows-system - printing on IRIX 6.5 with a laser printer (postscript printer) worked fine. - printing on an old Linux (SuSE 6.0) with a standard inkjet (non postscript printer) did NOT work (despite I had no problems with the old ps-print 3.05x). The generated postscript seems to be ok, because I can view it in ghostview and print on the (above) IRIX 6.5 laser printer (postscript printer). However, I can not print this file on the inkjet --- even when using the system's lpr command, and not lpr.el. Cheers Volker --

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? AFAIK this has never been part of ps-print. The person to ask would be Vinicius Jose Latorre ( http://www.cpqd.com.br/~vinicius/emacs/ ) --- but I guess it would be quite difficult to add ... -- Cheers Volker

Volker> However, the problem does not seem to be that lpr.el from os-utils Volker> shadows ps-print/lpr.el (it is the other way around). At least in my case, os-utils does shadow ps-print. M-x list-load-path-shadows generates the following: /usr/local/lib/xemacs/xemacs-packages/lisp/os-utils/lpr hides /usr/local/lib/xemacs/xemacs-packages/lisp/ps-print/lpr However, moving os-utils/lpr does not make the error go away. Volker> The problem seems to be, that the variable lpr-windows-system is not Volker> defined as variable in ps-print/auto-autoloads.el. Thanks. That's a much better explanation than my initial one. Malcolm

...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) --

I can't print anything using the new ps-print: $lpr sends the file to the printer, $lpq shows it being in the printer queue, and then it disappears out of the cue without anything being printed. Yes, I append two files (together less than 100k), each containing the output of: (hyper-describe-variable 'ps-print-version nil) One generated with ps-print 3.05x1 (which works) and one generated with the new version of ps-print (which does not work). Maybe it is just some strange setting of this LinuxBox --- and we don't need to worry too much about it. But maybe other people also will encounter this problem ... Volker

Hi Steve, I played with the printer installation (apsfilter) of the LinuxBox --- and now it works for both the new and the old ps-print versions!!! So, it seems that the settings were simply wrong --- and maybe we don't need to worry about it. Volker

|--==> "SY" == Steve Youngs <youngs(a)xemacs.org&gt; writes: |--==> "VF" == Volker Franz <volker.franz(a)tuebingen.mpg.de&gt; writes: VF> So, it seems that the settings were simply wrong --- and maybe we don't VF> need to worry about it. SY> I hope so. I'll check those files you sent anyway. They were fine. -- |---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---| | XEmacs - It's not just an editor. | | It's a way of life. | |------------------------------------&lt;youngs(a)xemacs.org&gt;---|

Steve> Okay, there's a new ps-print-0.52-pkg.tar.gz in [...] No problems with this version. Thanks! Malcolm

Hi Steve, SY> Okay, there's a new ps-print-0.52-pkg.tar.gz in: SY> /ftp.xemacs.org:/pub/xemacs/beta/experimental/ SY> It fixes the problem with 'lpr-windows-system' and also one SY> you may not have found yet, 'lpr-lp-system'. everything works nicely now --- COOL!!! -- Volker