Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml-parse.el @ 163:0132846995bd r20-3b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents 28f395d8dc7a
children a2f645c6b9f8
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
1 ;;;; psgml-parse.el --- Parser for SGML-editing mode with parsing support 1 ;;;; psgml-parse.el --- Parser for SGML-editing mode with parsing support
2 ;; $Id: psgml-parse.el,v 1.6 1997/06/14 20:31:36 steve Exp $ 2 ;; $Id: psgml-parse.el,v 1.7 1997/06/21 20:03:09 steve Exp $
3 3
4 ;; Copyright (C) 1994, 1995 Lennart Staflin 4 ;; Copyright (C) 1994, 1995 Lennart Staflin
5 5
6 ;; Author: Lennart Staflin <lenst@lysator.liu.se> 6 ;; Author: Lennart Staflin <lenst@lysator.liu.se>
7 ;; Acknowledgment: 7 ;; Acknowledgment:
1003 (forward-char 2)) 1003 (forward-char 2))
1004 sgml-max-single-octet-number) 1004 sgml-max-single-octet-number)
1005 (sgml-read-octet))) 1005 (sgml-read-octet)))
1006 1006
1007 (defsubst sgml-read-peek () 1007 (defsubst sgml-read-peek ()
1008 (following-char)) 1008 (char-after (point)))
1009 1009
1010 (defun sgml-read-sexp () 1010 (defun sgml-read-sexp ()
1011 (prog1 1011 (prog1
1012 (let ((standard-input (current-buffer))) 1012 (let ((standard-input (current-buffer)))
1013 (read)) 1013 (read))
1461 t)))) 1461 t))))
1462 1462
1463 (defmacro sgml-parse-chars (char1 char2 &optional char3) 1463 (defmacro sgml-parse-chars (char1 char2 &optional char3)
1464 "Parse two or three chars; return nil if can't" 1464 "Parse two or three chars; return nil if can't"
1465 (if (null char3) 1465 (if (null char3)
1466 (` (cond ((and (eq (, char1) (following-char)) 1466 (` (cond ((and (eq (, char1) (char-after (point)))
1467 (eq (, char2) (char-after (1+ (point))))) 1467 (eq (, char2) (char-after (1+ (point)))))
1468 (forward-char 2) 1468 (forward-char 2)
1469 t))) 1469 t)))
1470 (` (cond ((and (eq (, char1) (following-char)) 1470 (` (cond ((and (eq (, char1) (char-after (point)))
1471 (eq (, char2) (char-after (1+ (point)))) 1471 (eq (, char2) (char-after (1+ (point))))
1472 (eq (, char3) (char-after (1+ (1+ (point)))))) 1472 (eq (, char3) (char-after (1+ (1+ (point))))))
1473 (forward-char 3) 1473 (forward-char 3)
1474 t))))) 1474 t)))))
1475 1475