Mercurial > hg > xemacs-beta

comparison lisp/psgml/psgml.el @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents 131b0175ea99
children 6a378aca36af
comparison
equal deleted inserted replaced
77:6cb4f478e7bc 78:c7528f8e288d
1 ;;; psgml.el --- SGML-editing mode with parsing support 1 ;;; psgml.el --- SGML-editing mode with parsing support
2 ;; $Id: psgml.el,v 1.1.1.1 1996/12/18 22:43:37 steve Exp $ 2 ;; $Id: psgml.el,v 1.2 1997/01/03 03:10:28 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>
8 ;; James Clark <jjc@clark.com> 8 ;; James Clark <jjc@clark.com>
9 ;; Maintainer: Lennart Staflin <lenst@lysator.liu.se>
10 ;; Keywords: languages
9 11
10 ;; 12 ;;
11 ;; This program is free software; you can redistribute it and/or 13 ;; This program is free software; you can redistribute it and/or
12 ;; modify it under the terms of the GNU General Public License 14 ;; modify it under the terms of the GNU General Public License
13 ;; as published by the Free Software Foundation; either version 2 15 ;; as published by the Free Software Foundation; either version 2
48 ;; unlimited lengths on names 50 ;; unlimited lengths on names
49 51
50 52
51 ;;; Code: 53 ;;; Code:
52 54
53 (defconst psgml-version "1.0a12" 55 (defconst psgml-version "1.0.1"
54 "Version of psgml package.") 56 "Version of psgml package.")
55 57
56 (defconst psgml-maintainer-address "lenst@lysator.liu.se") 58 (defconst psgml-maintainer-address "lenst@lysator.liu.se")
57 59
58 (require 'cl) 60 (require 'cl)
1084 (setq comment-start-skip "<!--[ \t]*") 1086 (setq comment-start-skip "<!--[ \t]*")
1085 ;; Added for psgml: 1087 ;; Added for psgml:
1086 (make-local-variable 'indent-line-function) 1088 (make-local-variable 'indent-line-function)
1087 (setq indent-line-function 'sgml-indent-line) 1089 (setq indent-line-function 'sgml-indent-line)
1088 (make-local-variable 'mode-line-format) 1090 (make-local-variable 'mode-line-format)
1089 ;; wing change: use `subst' rather than duplicating the whole 1091 ;; Modify mode-line-format with susbt (sugested by wing)
1090 ;; mode-line-format. XEmacs 19.14 changes the default mode-line-format.
1091 (setq mode-line-format 1092 (setq mode-line-format
1092 (subst '("" mode-name sgml-active-dtd-indicator) 'mode-name 1093 (subst '("" mode-name sgml-active-dtd-indicator) 'mode-name
1093 mode-line-format)) 1094 mode-line-format))
1094 (make-local-variable 'sgml-default-dtd-file) 1095 (make-local-variable 'sgml-default-dtd-file)
1095 (when (setq sgml-default-dtd-file (sgml-default-dtd-file)) 1096 (when (setq sgml-default-dtd-file (sgml-default-dtd-file))
1447 (sgml-running-xemacs 1448 (sgml-running-xemacs
1448 (require 'psgml-xemacs)) 1449 (require 'psgml-xemacs))
1449 (t 1450 (t
1450 (require 'psgml-other))) 1451 (require 'psgml-other)))
1451 1452
1452 ;;; psgml.el ends HERE 1453 ;;; psgml.el ends here