[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/ps-mule.el
From: |
Vinicius Jose Latorre |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/ps-mule.el |
Date: |
Wed, 14 May 2003 22:32:04 -0400 |
Index: emacs/lisp/ps-mule.el
diff -c emacs/lisp/ps-mule.el:1.31 emacs/lisp/ps-mule.el:1.32
*** emacs/lisp/ps-mule.el:1.31 Tue Jun 18 10:36:19 2002
--- emacs/lisp/ps-mule.el Wed May 14 22:32:03 2003
***************
*** 1,13 ****
;;; ps-mule.el --- provide multi-byte character facility to ps-print
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <address@hidden>
;; Kenichi Handa <address@hidden> (multi-byte characters)
;; Maintainer: Kenichi Handa <address@hidden> (multi-byte characters)
;; Vinicius Jose Latorre <address@hidden>
;; Keywords: wp, print, PostScript, multibyte, mule
! ;; Time-stamp: <2001/08/15 15:34:11 vinicius>
;; This file is part of GNU Emacs.
--- 1,14 ----
;;; ps-mule.el --- provide multi-byte character facility to ps-print
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003
! ;; Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <address@hidden>
;; Kenichi Handa <address@hidden> (multi-byte characters)
;; Maintainer: Kenichi Handa <address@hidden> (multi-byte characters)
;; Vinicius Jose Latorre <address@hidden>
;; Keywords: wp, print, PostScript, multibyte, mule
! ;; Time-stamp: <2003/05/14 22:19:41 vinicius>
;; This file is part of GNU Emacs.
***************
*** 1439,1474 ****
;;;###autoload
(defun ps-mule-header-string-charsets ()
"Return a list of character sets that appears in header strings."
! (let ((str ""))
! (when ps-print-header
! (let ((tail (list ps-left-header ps-right-header)))
! (while tail
! ;; Simulate what is done by ps-generate-header-line to get a
! ;; string to plot.
! (let ((count 0)
! (tmp (car tail)))
! (setq tail (cdr tail))
! (while (and tmp (< count ps-header-lines))
! (let ((elt (car tmp)))
! (setq tmp (cdr tmp)
! count (1+ count)
! str (concat str
! (cond ((stringp elt) elt)
! ((and (symbolp elt) (fboundp elt))
! (funcall elt))
! ((and (symbolp elt) (boundp elt))
! (symbol-value elt))
! (t ""))))))))))
! (let ((len (length str))
! (i 0)
! charset-list)
! (while (< i len)
! (let ((charset (char-charset (aref str i))))
! (setq i (1+ i))
! (or (eq charset 'ascii)
! (memq charset charset-list)
! (setq charset-list (cons charset charset-list)))))
! charset-list)))
;;;###autoload
(defun ps-mule-begin-job (from to)
--- 1440,1456 ----
;;;###autoload
(defun ps-mule-header-string-charsets ()
"Return a list of character sets that appears in header strings."
! (let* ((str (ps-header-footer-string))
! (len (length str))
! (i 0)
! charset-list)
! (while (< i len)
! (let ((charset (char-charset (aref str i))))
! (setq i (1+ i))
! (or (eq charset 'ascii)
! (memq charset charset-list)
! (setq charset-list (cons charset charset-list)))))
! charset-list))
;;;###autoload
(defun ps-mule-begin-job (from to)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/ps-mule.el,
Vinicius Jose Latorre <=