comparison lisp/ps-print.el @ 32836:2d9f4fc56dba

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

32835:001414add3a5

;;; ps-print.el --- Print text from the buffer as PostScript

;; Copyright (C) 1993-2000 Free Software Foundation, Inc.

;; Author:	Jim Thompson (was <[e-mail]>)
;; Author:	Jacques Duthen (was <[e-mail]>)
;; Author:	Vinicius Jose Latorre <[e-mail]>
;; Author:	Kenichi Handa <[e-mail]> (multi-byte characters)

		(goto-char (point-min))
		(or (looking-at (regexp-quote ps-adobe-tag))
		    (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)
		  (ps-begin-page))
		(set-buffer ps-source-buffer)
		(funcall genfunc from to)
		(ps-end-page)

32836:2d9f4fc56dba

;;; ps-print.el --- Print text from the buffer as PostScript

;; Copyright (C) 1993, 2000 Free Software Foundation, Inc.

;; Author:	Jim Thompson (was <[e-mail]>)
;; Author:	Jacques Duthen (was <[e-mail]>)
;; Author:	Vinicius Jose Latorre <[e-mail]>
;; Author:	Kenichi Handa <[e-mail]> (multi-byte characters)

		(goto-char (point-min))
		(or (looking-at (regexp-quote ps-adobe-tag))
		    (setq needs-begin-file t))
		(save-excursion
		  (set-buffer ps-source-buffer)
		  (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)
		(ps-end-page)