Re: lpr.el sync
From: Jan Vroonhof <vroonhof(a)math.ethz.ch>
buffer-file-truename is a symbol not a string. It is probably meant
to
pass the value of buffer-file-truename somewhere.
My bad. I still had untested customizations set as advised by
http://www.xemacs.org/list-archives/xemacs-nt/9906/msg00122.html
Getting rid of these results in more normal breakage. According to the
new documentation for lpr-command: "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'." but that doesn't seem to be what
happens.
Signaling: (file-error "Searching for program" "No such file or
directory" "")
call-process-internal("" "C:\\TEMP\\emOEA6PF" nil nil
"-PPRN")
apply(call-process-internal "" "C:\\TEMP\\emOEA6PF" nil nil
"-PPRN")
call-process("" "C:\\TEMP\\emOEA6PF" nil nil "-PPRN")
apply(call-process "" "C:\\TEMP\\emOEA6PF" nil nil
"-PPRN")
call-process-region(1 8974 "" nil nil nil "-PPRN")
apply(call-process-region (1 8974 "" nil nil nil "-PPRN"))
(save-excursion (if page-headers (if lpr-headers-switches ...)) (setq
switch-string (if switches ... "")) (message "Spooling%s..."
switch-string) (if (/= tab-width 8) (let ... ... ... ... ...)) (if
page-headers (if lpr-headers-switches nil ... ... ...)) (apply (or
print-region-function ...) (nconc ... ...)) (if (markerp end)
(set-marker end nil)) (message "Spooling%s...done" switch-string))
)
(let ((name ...) (title ...) (coding-system-for-write ...)
(coding-system-for-read ...) (width tab-width) switch-string)
(save-excursion (if page-headers ...) (setq switch-string ...) (message
"Spooling%s..." switch-string) (if ... ...) (if page-headers ...) (apply
... ...) (if ... ...) (message "Spooling%s...done" switch-string)))
)
print-region-1(1 8974 nil nil)
(lambda nil "Print buffer contents as with Unix command
`lpr'.\n`lpr-switches' is a list of extra switches (strings) to pass to
lpr." (interactive) (print-region-1 (point-min) (point-max) lpr-switches
nil))()
call-interactively(lpr-buffer)
command-execute(lpr-buffer t)
execute-extended-command(nil)
call-interactively(execute-extended-command)
(emacs-version)
"XEmacs 21.2 (beta19) \"Shinjuku\" [Lucid] (i586-pc-win32) of Mon Aug
23 1999 on NEVERYON"