Mercurial > emacs
changeset 32836:2d9f4fc56dba
(ps-generate): Fix odd/even pages printing bug.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 24 Oct 2000 21:17:40 +0000 |
| parents | 001414add3a5 |
| children | fdcf13c6716d |
| files | lisp/ps-print.el |
| diffstat | 1 files changed, 8 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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)