Mercurial > hg > xemacs-beta
diff lisp/psgml/psgml-dtd.el @ 78:c7528f8e288d r20-0b34
Import from CVS: tag r20-0b34
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:05:42 +0200 |
| parents | 131b0175ea99 |
| children |
line wrap: on
line diff
--- a/lisp/psgml/psgml-dtd.el Mon Aug 13 09:05:11 2007 +0200 +++ b/lisp/psgml/psgml-dtd.el Mon Aug 13 09:05:42 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.1 1996/12/18 22:43:36 steve Exp $ +;; $Id: psgml-dtd.el,v 1.2 1997/01/03 03:10:27 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