Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml.el @ 82:6a378aca36af r20-0b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b91
author cvs
date Mon, 13 Aug 2007 09:07:36 +0200
parents c7528f8e288d
children ac0620f6398e
comparison
equal deleted inserted replaced
81:ebca3d831cea 82:6a378aca36af
1 ;;; psgml.el --- SGML-editing mode with parsing support 1 ;;; psgml.el --- SGML-editing mode with parsing support
2 ;; $Id: psgml.el,v 1.2 1997/01/03 03:10:28 steve Exp $ 2 ;; $Id: psgml.el,v 1.3 1997/01/23 05:29:40 steve Exp $
3 3
4 ;; Copyright (C) 1993, 1994, 1995, 1996 Lennart Staflin 4 ;; Copyright (C) 1993, 1994, 1995, 1996 Lennart Staflin
5 ;; Copyright (C) 1992 Free Software Foundation, Inc. 5 ;; Copyright (C) 1992 Free Software Foundation, Inc.
6 6
7 ;; Author: Lennart Staflin <lenst@lysator.liu.se> 7 ;; Author: Lennart Staflin <lenst@lysator.liu.se>
453 ;;; sgmls is a free SGML parser available from 453 ;;; sgmls is a free SGML parser available from
454 ;;; ftp.uu.net:pub/text-processing/sgml 454 ;;; ftp.uu.net:pub/text-processing/sgml
455 ;;; Its error messages can be parsed by next-error. 455 ;;; Its error messages can be parsed by next-error.
456 ;;; The -s option suppresses output. 456 ;;; The -s option suppresses output.
457 457
458 (defvar sgml-validate-command "nsgmls -s %s %s" 458 (defvar sgml-validate-command (concat "nsgmls -s -m "
459 data-directory
460 "CATALOG %s %s")
459 "*The shell command to validate an SGML document. 461 "*The shell command to validate an SGML document.
460 462
461 This is a `format' control string that by default should contain two 463 This is a `format' control string that by default should contain two
462 `%s' conversion specifications: the first will be replaced by the 464 `%s' conversion specifications: the first will be replaced by the
463 value of `sgml-declaration' \(or the empty string, if nil\); the 465 value of `sgml-declaration' \(or the empty string, if nil\); the