Mercurial > hg > xemacs-beta
diff lisp/psgml/psgml.el @ 84:ac0620f6398e r20-0b92
Import from CVS: tag r20-0b92
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:08:29 +0200 |
parents | 6a378aca36af |
children | 364816949b59 |
line wrap: on
line diff
--- a/lisp/psgml/psgml.el Mon Aug 13 09:07:39 2007 +0200 +++ b/lisp/psgml/psgml.el Mon Aug 13 09:08:29 2007 +0200 @@ -1,5 +1,5 @@ ;;; psgml.el --- SGML-editing mode with parsing support -;; $Id: psgml.el,v 1.3 1997/01/23 05:29:40 steve Exp $ +;; $Id: psgml.el,v 1.4 1997/01/26 00:21:43 steve Exp $ ;; Copyright (C) 1993, 1994, 1995, 1996 Lennart Staflin ;; Copyright (C) 1992 Free Software Foundation, Inc. @@ -72,19 +72,6 @@ "Abbrev table in use in sgml-mode.") (define-abbrev-table 'sgml-mode-abbrev-table ()) -;;; Wing addition -(defvar sgml-mode-syntax-table nil - "Syntax table used in sgml mode.") - -(if sgml-mode-syntax-table - () - (setq sgml-mode-syntax-table (make-syntax-table)) - (modify-syntax-entry ?< "(>" sgml-mode-syntax-table) - (modify-syntax-entry ?> ")<" sgml-mode-syntax-table) - (modify-syntax-entry ?\" ". " sgml-mode-syntax-table) - (modify-syntax-entry ?\\ ". " sgml-mode-syntax-table) - (modify-syntax-entry ?' "w " sgml-mode-syntax-table)) - (defvar sgml-running-xemacs (not (not (string-match "Lucid\\|XEmacs" emacs-version))))