From 8b31363957453c57c0b316fe41846f02d5855bac Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 15 Aug 2001 08:06:08 +0000 Subject: [PATCH] Doc fix. (ps-mule-encode-header-string): If STRING is not a string, replace STRING by empty string. --- lisp/ChangeLog | 14 ++++++++++++++ lisp/ps-mule.el | 17 ++++++++++------- 2 files changed, 24 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 76408f2a526..2755d066b32 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,17 @@ +2001-08-14 Vinicius Jose Latorre + + * ps-print.el: Change error function arguments to follow Emacs + message convention. Doc fix. + (ps-print-version): New version number (6.5.4). + (coding-system-for-write): Change declaration position to avoid + XEmacs compilation gripes. + (coding-system-for-read, buffer-file-coding-system): Declarations + to avoid XEmacs compilation gripes. + + * ps-mule.el: Doc fix. + (ps-mule-encode-header-string): If STRING is not a string, replace + STRING by empty string. + 2001-08-14 Eli Zaretskii * frame.el (show-trailing-whitespace): Doc fix. diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el index e0c48db79f5..91997c9610c 100644 --- a/lisp/ps-mule.el +++ b/lisp/ps-mule.el @@ -3,11 +3,11 @@ ;; Copyright (C) 1998,99,00,2001 Free Software Foundation, Inc. ;; Author: Vinicius Jose Latorre -;; Kenichi Handa (multi-byte characters) -;; Maintainer: Kenichi Handa (multi-byte characters) -;; Vinicius Jose Latorre +;; Kenichi Handa (multi-byte characters) +;; Maintainer: Kenichi Handa (multi-byte characters) +;; Vinicius Jose Latorre ;; Keywords: wp, print, PostScript, multibyte, mule -;; Time-stamp: <2001/03/16 18:50:59 Handa> +;; Time-stamp: <2001/08/07 13:50:53 vinicius> ;; This file is part of GNU Emacs. @@ -1362,9 +1362,12 @@ NewBitmapDict (defun ps-mule-encode-header-string (string fonttag) "Generate PostScript code for ploting STRING by font FONTTAG. FONTTAG should be a string \"/h0\" or \"/h1\"." - (setq string (if (multibyte-string-p string) - (copy-sequence string) - (string-make-multibyte string))) + (setq string (cond ((not (stringp string)) + "") + ((multibyte-string-p string) + (copy-sequence string)) + (t + (string-make-multibyte string)))) (when ps-mule-header-charsets (if (eq (car ps-mule-header-charsets) 'latin-iso8859-1) ;; Latin1 characters can be printed by the standard PostScript -- 2.39.2