Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml-dtd.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents bcdc7deadc19
children c7528f8e288d
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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.2 1997/01/04 21:20:07 steve Exp $ 2 ;; $Id: psgml-dtd.el,v 1.1.1.1 1996/12/18 22:43:36 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 (if (< temp 256) 313 (setq value (concat value (format "%c" temp))))
314 (format "%c" temp)
315 (format "&#%d;" temp)))))
316 (t 314 (t
317 (setq value 315 (setq value
318 (concat value 316 (concat value
319 (buffer-substring 317 (buffer-substring
320 (point) 318 (point)