Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml.el @ 84:ac0620f6398e r20-0b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b92
author cvs
date Mon, 13 Aug 2007 09:08:29 +0200
parents 6a378aca36af
children 364816949b59
comparison
equal deleted inserted replaced
83:ba3ba6e17456 84:ac0620f6398e
1 ;;; psgml.el --- SGML-editing mode with parsing support 1 ;;; psgml.el --- SGML-editing mode with parsing support
2 ;; $Id: psgml.el,v 1.3 1997/01/23 05:29:40 steve Exp $ 2 ;; $Id: psgml.el,v 1.4 1997/01/26 00:21:43 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: