Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents bcdc7deadc19
children ec9a17fef872
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
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/04 21:20:08 steve Exp $ 2 ;; $Id: psgml.el,v 1.3 1997/02/02 05:06:12 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>
69 ;;;; Variables 69 ;;;; Variables
70 70
71 (defvar sgml-mode-abbrev-table nil 71 (defvar sgml-mode-abbrev-table nil
72 "Abbrev table in use in sgml-mode.") 72 "Abbrev table in use in sgml-mode.")
73 (define-abbrev-table 'sgml-mode-abbrev-table ()) 73 (define-abbrev-table 'sgml-mode-abbrev-table ())
74
75 ;;; Wing addition
76 (defvar sgml-mode-syntax-table nil
77 "Syntax table used in sgml mode.")
78
79 (if sgml-mode-syntax-table
80 ()
81 (setq sgml-mode-syntax-table (make-syntax-table))
82 (modify-syntax-entry ?< "(>" sgml-mode-syntax-table)
83 (modify-syntax-entry ?> ")<" sgml-mode-syntax-table)
84 (modify-syntax-entry ?\" ". " sgml-mode-syntax-table)
85 (modify-syntax-entry ?\\ ". " sgml-mode-syntax-table)
86 (modify-syntax-entry ?' "w " sgml-mode-syntax-table))
87 74
88 (defvar sgml-running-xemacs 75 (defvar sgml-running-xemacs
89 (not (not (string-match "Lucid\\|XEmacs" emacs-version)))) 76 (not (not (string-match "Lucid\\|XEmacs" emacs-version))))
90 77
91 ;;; User settable options: 78 ;;; User settable options:
453 ;;; sgmls is a free SGML parser available from 440 ;;; sgmls is a free SGML parser available from
454 ;;; ftp.uu.net:pub/text-processing/sgml 441 ;;; ftp.uu.net:pub/text-processing/sgml
455 ;;; Its error messages can be parsed by next-error. 442 ;;; Its error messages can be parsed by next-error.
456 ;;; The -s option suppresses output. 443 ;;; The -s option suppresses output.
457 444
458 (defvar sgml-validate-command "nsgmls -s %s %s" 445 (defvar sgml-validate-command (concat "nsgmls -s -m "
446 sgml-data-directory
447 "/CATALOG %s %s")
459 "*The shell command to validate an SGML document. 448 "*The shell command to validate an SGML document.
460 449
461 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
462 `%s' conversion specifications: the first will be replaced by the 451 `%s' conversion specifications: the first will be replaced by the
463 value of `sgml-declaration' \(or the empty string, if nil\); the 452 value of `sgml-declaration' \(or the empty string, if nil\); the