Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml.el @ 86:364816949b59 r20-0b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b93
author cvs
date Mon, 13 Aug 2007 09:09:02 +0200
parents ac0620f6398e
children 360340f9fd5f
comparison
equal deleted inserted replaced
85:c661705957e0 86:364816949b59
1 ;;; psgml.el --- SGML-editing mode with parsing support 1 ;;; psgml.el --- SGML-editing mode with parsing support
2 ;; $Id: psgml.el,v 1.4 1997/01/26 00:21:43 steve Exp $ 2 ;; $Id: psgml.el,v 1.5 1997/01/30 02:22:44 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>
441 ;;; ftp.uu.net:pub/text-processing/sgml 441 ;;; ftp.uu.net:pub/text-processing/sgml
442 ;;; Its error messages can be parsed by next-error. 442 ;;; Its error messages can be parsed by next-error.
443 ;;; The -s option suppresses output. 443 ;;; The -s option suppresses output.
444 444
445 (defvar sgml-validate-command (concat "nsgmls -s -m " 445 (defvar sgml-validate-command (concat "nsgmls -s -m "
446 data-directory 446 sgml-data-directory
447 "CATALOG %s %s") 447 "/CATALOG %s %s")
448 "*The shell command to validate an SGML document. 448 "*The shell command to validate an SGML document.
449 449
450 This is a `format' control string that by default should contain two 450 This is a `format' control string that by default should contain two
451 `%s' conversion specifications: the first will be replaced by the 451 `%s' conversion specifications: the first will be replaced by the
452 value of `sgml-declaration' \(or the empty string, if nil\); the 452 value of `sgml-declaration' \(or the empty string, if nil\); the