Mercurial > hg > xemacs-beta
comparison lisp/psgml/psgml.el @ 50:ee648375d8d6 r19-16b91
Import from CVS: tag r19-16b91
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:56:41 +0200 |
parents | ec9a17fef872 |
children | 131b0175ea99 |
comparison
equal
deleted
inserted
replaced
49:b46643e427ac | 50:ee648375d8d6 |
---|---|
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/03/09 02:37:46 steve Exp $ | 2 ;; $Id: psgml.el,v 1.5 1997/08/30 02:40:00 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> |
315 (defvar sgml-public-map (sgml-parse-colon-path | 315 (defvar sgml-public-map (sgml-parse-colon-path |
316 (or (getenv "SGML_PATH") | 316 (or (getenv "SGML_PATH") |
317 ;; Wing change | 317 ;; Wing change |
318 (concat "%S:" (directory-file-name | 318 (concat "%S:" (directory-file-name |
319 sgml-data-directory) | 319 sgml-data-directory) |
320 "%o/%c/%d"))) | 320 "/%o/%c/%d"))) |
321 | 321 |
322 "*Mapping from public identifiers to file names. | 322 "*Mapping from public identifiers to file names. |
323 This is a list of possible file names. To find the file for a public | 323 This is a list of possible file names. To find the file for a public |
324 identifier the elements of the list are used one at the time from the | 324 identifier the elements of the list are used one at the time from the |
325 beginning. If the element is a string a file name is constructed from | 325 beginning. If the element is a string a file name is constructed from |