From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 24 Oct 2000 21:17:40 +0000 (+0000)
Subject: (ps-generate): Fix odd/even pages printing bug.
X-Git-Tag: emacs-pretest-21.0.90~612
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=70f57a7251f3a7926ae17dabadcff74f88b42a9a;p=emacs.git

(ps-generate): Fix odd/even pages printing bug.
---

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 834ad7d2855..b6c3275c350 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -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 @@ If FACE is not a valid face name, it is used default face."
 		    (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)