Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml-parse.el @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents c7528f8e288d
children 360340f9fd5f
comparison
equal deleted inserted replaced
79:5b0a5bbffab6 80:1ce6082ce73f
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.2 1997/01/03 03:10:27 steve Exp $ 2 ;; $Id: psgml-parse.el,v 1.3 1997/01/11 20:14: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:
1204 (sgml-push-to-entity dtd-file) 1204 (sgml-push-to-entity dtd-file)
1205 (sgml-check-dtd-subset) 1205 (sgml-check-dtd-subset)
1206 (sgml-pop-entity) 1206 (sgml-pop-entity)
1207 (erase-buffer) 1207 (erase-buffer)
1208 ;; For XEmacs-20.0/Mule 1208 ;; For XEmacs-20.0/Mule
1209 (setq file-coding-system 'noconv) 1209 (setq file-coding-system 'no-conversion)
1210 (sgml-write-dtd sgml-dtd-info to-file) 1210 (sgml-write-dtd sgml-dtd-info to-file)
1211 t)) 1211 t))
1212 1212
1213 (defun sgml-check-entities (params1 params2) 1213 (defun sgml-check-entities (params1 params2)
1214 "Check that PARAMS1 is compatible with PARAMS2." 1214 "Check that PARAMS1 is compatible with PARAMS2."
1232 1232
1233 (defun sgml-bdtd-merge () 1233 (defun sgml-bdtd-merge ()
1234 "Merge the binary coded dtd in the current buffer with the current dtd. 1234 "Merge the binary coded dtd in the current buffer with the current dtd.
1235 The current dtd is the variable sgml-dtd-info. Return t if mereged 1235 The current dtd is the variable sgml-dtd-info. Return t if mereged
1236 was successfull or nil if failed." 1236 was successfull or nil if failed."
1237 (setq file-coding-system 'noconv) 1237 (setq file-coding-system 'no-conversion)
1238 (goto-char (point-min)) 1238 (goto-char (point-min))
1239 (sgml-read-sexp) ; skip filev 1239 (sgml-read-sexp) ; skip filev
1240 (let ((dependencies (sgml-read-sexp)) 1240 (let ((dependencies (sgml-read-sexp))
1241 (parameters (sgml-read-sexp)) 1241 (parameters (sgml-read-sexp))
1242 (gc-cons-threshold (max gc-cons-threshold 500000)) 1242 (gc-cons-threshold (max gc-cons-threshold 500000))
2366 (set-buffer sgml-scratch-buffer) 2366 (set-buffer sgml-scratch-buffer)
2367 ;; For MULE to not misinterpret binary data set the mc-flag 2367 ;; For MULE to not misinterpret binary data set the mc-flag
2368 ;; (reported by Jeffrey Friedl <jfriedl@nff.ncl.omron.co.jp>) 2368 ;; (reported by Jeffrey Friedl <jfriedl@nff.ncl.omron.co.jp>)
2369 (setq mc-flag nil) 2369 (setq mc-flag nil)
2370 ;; For XEmacs 20.0/Mule 2370 ;; For XEmacs 20.0/Mule
2371 (setq file-coding-system 'noconv) 2371 (setq file-coding-system 'no-conversion)
2372 (when (eq sgml-scratch-buffer (default-value 'sgml-scratch-buffer)) 2372 (when (eq sgml-scratch-buffer (default-value 'sgml-scratch-buffer))
2373 (make-local-variable 'sgml-scratch-buffer) 2373 (make-local-variable 'sgml-scratch-buffer)
2374 (setq sgml-scratch-buffer nil)) 2374 (setq sgml-scratch-buffer nil))
2375 (when after-change-function ;*** 2375 (when after-change-function ;***
2376 (message "OOPS: after-change-function not NIL in scratch buffer %s: %s" 2376 (message "OOPS: after-change-function not NIL in scratch buffer %s: %s"