# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 972422260 0
# Node ID 2d9f4fc56dbafae5e10441162d6f8f9ad6b7ccd7
# Parent  001414add3a59d83e26b44f8c25faa5259f702a4
(ps-generate): Fix odd/even pages printing bug.

diff -r 001414add3a5 -r 2d9f4fc56dba lisp/ps-print.el
--- a/lisp/ps-print.el	Tue Oct 24 21:17:06 2000 +0000
+++ b/lisp/ps-print.el	Tue Oct 24 21:17:40 2000 +0000
@@ -1,6 +1,6 @@
 ;;; ps-print.el --- Print text from the buffer as PostScript
 
-;; Copyright (C) 1993-2000 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 2000 Free Software Foundation, Inc.
 
 ;; Author:	Jim Thompson (was <thompson@wg2.waii.com>)
 ;; Author:	Jacques Duthen (was <duthen@cegelec-red.fr>)
@@ -5372,12 +5372,13 @@
 		    (setq needs-begin-file t))
 		(save-excursion
 		  (set-buffer ps-source-buffer)
-		  (ps-begin-job)
-		  (when needs-begin-file
-		    (ps-begin-file)
-		    (ps-mule-initialize))
-		  (ps-mule-begin-job from to)
-		  (ps-selected-pages)
+		  (let (ps-even-or-odd-pages)
+		    (ps-begin-job)
+		    (when needs-begin-file
+		      (ps-begin-file)
+		      (ps-mule-initialize))
+		    (ps-mule-begin-job from to)
+		    (ps-selected-pages))
 		  (ps-begin-page))
 		(set-buffer ps-source-buffer)
 		(funcall genfunc from to)