Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml-dtd.el @ 12:bcdc7deadc19 r19-15b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b7
author cvs
date Mon, 13 Aug 2007 08:48:16 +0200
parents ac2d302a0011
children 131b0175ea99
comparison
equal deleted inserted replaced
11:91ffe8bd52e4 12:bcdc7deadc19
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.2 1996/12/18 03:47:13 steve Exp $ 2 ;; $Id: psgml-dtd.el,v 1.2 1997/01/04 21:20:07 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)