From 70f57a7251f3a7926ae17dabadcff74f88b42a9a Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 24 Oct 2000 21:17:40 +0000 Subject: [PATCH] (ps-generate): Fix odd/even pages printing bug. --- lisp/ps-print.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) 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 ) ;; Author: Jacques Duthen (was ) @@ -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) -- 2.39.2