Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
62901aee
Commit
62901aee
authored
Jan 15, 1996
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(ps-do-despool): On MS-DOS, allow both the usual and
the alternative printing methods.
parent
868c7abd
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
5 deletions
+8
-5
lisp/ps-print.el
lisp/ps-print.el
+8
-5
No files found.
lisp/ps-print.el
View file @
62901aee
...
...
@@ -1869,11 +1869,14 @@ EndDSCPage\n"))
(
message
"Printing..."
))
(
save-excursion
(
set-buffer
ps-spool-buffer
)
(
if
(
eq
system-type
'ms-dos
)
(
write-region
(
point-min
)
(
point-max
)
"PRN"
)
(
apply
'call-process-region
(
point-min
)
(
point-max
)
ps-lpr-command
nil
0
nil
ps-lpr-switches
)))
(
if
(
and
(
eq
system-type
'ms-dos
)
(
stringp
dos-ps-printer
))
(
write-region
(
point-min
)
(
point-max
)
dos-ps-printer
t
0
)
(
let
((
binary-process-input
t
))
; for MS-DOS
(
apply
'call-process-region
(
point-min
)
(
point-max
)
ps-lpr-command
nil
(
if
(
fboundp
'start-process
)
0
nil
)
nil
ps-lpr-switches
))))
(
if
ps-razzle-dazzle
(
message
"Printing...done"
)))
(
kill-buffer
ps-spool-buffer
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment