Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml-dtd.el @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
77:6cb4f478e7bc 78:c7528f8e288d
1 ;;;; psgml-dtd.el --- DTD parser for SGML-editing mode with parsing support 1 ;;;; psgml-dtd.el --- DTD parser for SGML-editing mode with parsing support
2 ;; $Id: psgml-dtd.el,v 1.1.1.1 1996/12/18 22:43:36 steve Exp $ 2 ;; $Id: psgml-dtd.el,v 1.2 1997/01/03 03:10:27 steve Exp $
3 3
4 ;; Copyright (C) 1994 Lennart Staflin 4 ;; Copyright (C) 1994 Lennart Staflin
5 5
6 ;; Author: Lennart Staflin <lenst@lysator.liu.se> 6 ;; Author: Lennart Staflin <lenst@lysator.liu.se>
7 7
308 (cond ((eobp) 308 (cond ((eobp)
309 (or (sgml-pop-entity) 309 (or (sgml-pop-entity)
310 (sgml-error "Parameter literal unterminated"))) 310 (sgml-error "Parameter literal unterminated")))
311 ((sgml-parse-parameter-entity-ref)) 311 ((sgml-parse-parameter-entity-ref))
312 ((setq temp (sgml-parse-character-reference dofunchar)) 312 ((setq temp (sgml-parse-character-reference dofunchar))
313 (setq value (concat value (format "%c" temp)))) 313 (setq value (concat value (if (< temp 256)
314 (format "%c" temp)
315 (format "&#%d;" temp)))))
314 (t 316 (t
315 (setq value 317 (setq value
316 (concat value 318 (concat value
317 (buffer-substring 319 (buffer-substring
318 (point) 320 (point)