mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-25 19:11:56 +00:00
Code Issues Releases Activity

Replace gs_languagelevel by languagelevel.

Browse Source 
(DefOp): New proc.
This commit is contained in:
Gerd Moellmann 2000-03-30 13:26:37 +00:00
parent 6e1b1da607
commit 392a704f2b
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
etc/ps-prin0.ps
View File

@ -100,7 +100,7 @@
}ifelse
%%EndProcSet
gs_languagelevel 1 eq{ % operators for language level 2 only
languagelevel 1 eq{ % operators for language level 2 only
/<<{mark}bind def
/>>{counttomark 2 idiv dup dict begin{def}repeat pop currentdict end}bind def
/setpagedevice{pop}bind def
@ -109,10 +109,11 @@ gs_languagelevel 1 eq{ % operators for language level 2 only
% device dependent operators
/setduplexmode where{pop}
{/setduplexmode /duplexmode where{pop/duplexmode}{/pop}ifelse load def}ifelse
/DefOp{
dup where{pop pop pop}
{exch dup where{pop}{pop/pop}ifelse load def}ifelse}def
/settumble where{pop}
{/settumble /tumble where{pop/tumble}{/pop}ifelse load def}ifelse
/duplexmode /setduplexmode DefOp
/tumble /settumble DefOp
% === END ps-print prologue 0