From xemacs-m  Mon Jan  6 10:14:35 1997
Received: from andy.bu.edu (ANDY.BU.EDU [128.197.41.152])
          by xemacs.cs.uiuc.edu (8.8.4/8.8.4) with ESMTP
	  id KAA27842 for <xemacs-beta@xemacs.org>; Mon, 6 Jan 1997 10:14:32 -0600 (CST)
Received: from andy.bu.edu (localhost [127.0.0.1])
          by andy.bu.edu (8.8.4/8.8.4) with ESMTP
	  id LAA07596; Mon, 6 Jan 1997 11:13:51 -0500 (EST)
Message-Id: <199701061613.LAA07596@andy.bu.edu>
X-Mailer: exmh version 2.0beta 12/23/96
To: xemacs-beta@xemacs.org
cc: Raymond Toy <toy@rtp.ericsson.se>
Subject: Re: 20.0-b34 bug in psgml
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Date: Mon, 06 Jan 1997 11:13:50 -0500
From: Andrew Cohen 617-353-6051 <cohen@andy.bu.edu>

psgml-parse.el has an old form of the encoding system. Here is a patch:

*** psgml-parse.el.~1~	Thu Jan  2 22:10:27 1997
--- psgml-parse.el	Sun Jan  5 10:55:36 1997
***************
*** 1206,1212 ****
      (sgml-pop-entity)
      (erase-buffer)
      ;; For XEmacs-20.0/Mule
!     (setq file-coding-system 'noconv)
      (sgml-write-dtd sgml-dtd-info to-file)
      t))
  
--- 1206,1212 ----
      (sgml-pop-entity)
      (erase-buffer)
      ;; For XEmacs-20.0/Mule
!     (setq file-coding-system 'no-conversion)
      (sgml-write-dtd sgml-dtd-info to-file)
      t))
  
***************
*** 1234,1240 ****
    "Merge the binary coded dtd in the current buffer with the current dtd.
  The current dtd is the variable sgml-dtd-info.  Return t if mereged
  was successfull or nil if failed."
!   (setq file-coding-system 'noconv)
    (goto-char (point-min))
    (sgml-read-sexp)			; skip filev
    (let ((dependencies (sgml-read-sexp))
--- 1234,1240 ----
    "Merge the binary coded dtd in the current buffer with the current dtd.
  The current dtd is the variable sgml-dtd-info.  Return t if mereged
  was successfull or nil if failed."
!   (setq file-coding-system 'no-conversion)
    (goto-char (point-min))
    (sgml-read-sexp)			; skip filev
    (let ((dependencies (sgml-read-sexp))
***************
*** 2368,2374 ****
      ;; (reported by Jeffrey Friedl <jfriedl@nff.ncl.omron.co.jp>)
      (setq mc-flag nil)
      ;; For XEmacs 20.0/Mule
!     (setq file-coding-system 'noconv)
      (when (eq sgml-scratch-buffer (default-value 'sgml-scratch-buffer))
        (make-local-variable 'sgml-scratch-buffer)
        (setq sgml-scratch-buffer nil))
--- 2368,2374 ----
      ;; (reported by Jeffrey Friedl <jfriedl@nff.ncl.omron.co.jp>)
      (setq mc-flag nil)
      ;; For XEmacs 20.0/Mule
!     (setq file-coding-system 'no-conversion)
      (when (eq sgml-scratch-buffer (default-value 'sgml-scratch-buffer))
        (make-local-variable 'sgml-scratch-buffer)
        (setq sgml-scratch-buffer nil))


