Mercurial > hg > xemacs-beta
diff lisp/psgml/psgml-dtd.el @ 12:bcdc7deadc19 r19-15b7
Import from CVS: tag r19-15b7
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:48:16 +0200 |
| parents | ac2d302a0011 |
| children | 131b0175ea99 |
line wrap: on
line diff
--- a/lisp/psgml/psgml-dtd.el Mon Aug 13 08:47:56 2007 +0200 +++ b/lisp/psgml/psgml-dtd.el Mon Aug 13 08:48:16 2007 +0200 @@ -1,5 +1,5 @@ ;;;; psgml-dtd.el --- DTD parser for SGML-editing mode with parsing support -;; $Id: psgml-dtd.el,v 1.1.1.2 1996/12/18 03:47:13 steve Exp $ +;; $Id: psgml-dtd.el,v 1.2 1997/01/04 21:20:07 steve Exp $ ;; Copyright (C) 1994 Lennart Staflin @@ -310,7 +310,9 @@ (sgml-error "Parameter literal unterminated"))) ((sgml-parse-parameter-entity-ref)) ((setq temp (sgml-parse-character-reference dofunchar)) - (setq value (concat value (format "%c" temp)))) + (setq value (concat value (if (< temp 256) + (format "%c" temp) + (format "&#%d;" temp))))) (t (setq value (concat value