Mercurial > hg > xemacs-beta

comparison lisp/oobr/br-info.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
4 ;; SUMMARY: Support routines for Info file hierarchy browsing. 4 ;; SUMMARY: Support routines for Info file hierarchy browsing.
5 ;; USAGE: GNU Emacs Lisp Library 5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: docs, help, hypermedia 6 ;; KEYWORDS: docs, help, hypermedia
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: Motorola Inc. 9 ;; ORG: InfoDock Associates
10 ;; 10 ;;
11 ;; ORIG-DATE: 7-Dec-89 11 ;; ORIG-DATE: 7-Dec-89
12 ;; LAST-MOD: 21-Sep-95 at 12:29:58 by Bob Weiner 12 ;; LAST-MOD: 20-Feb-97 at 07:01:43 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1989-1995 Free Software Foundation, Inc. 14 ;; Copyright (C) 1989-1995, 1997 Free Software Foundation, Inc.
15 ;; See the file BR-COPY for license information. 15 ;; See the file BR-COPY for license information.
16 ;; 16 ;;
17 ;; This file is part of the OO-Browser. 17 ;; This file is part of the OO-Browser.
18 ;; 18 ;;
19 ;; DESCRIPTION: 19 ;; DESCRIPTION:
20 ;; 20 ;;
21 ;; See 'info-class-def-regexp' for regular expression that matches class 21 ;; See `info-class-def-regexp' for regular expression that matches class
22 ;; definitions. 22 ;; definitions.
23 ;; 23 ;;
24 ;; DESCRIP-END. 24 ;; DESCRIP-END.
25 25
26 ;;; ************************************************************************ 26 ;;; ************************************************************************
153 (defconst info-src-file-regexp ".$" 153 (defconst info-src-file-regexp ".$"
154 "Regular expression matching a unique part of Info source.") 154 "Regular expression matching a unique part of Info source.")
155 155
156 (defvar info-children-htable nil 156 (defvar info-children-htable nil
157 "Htable whose elements are of the form: (LIST-OF-CHILD-CLASSES . CLASS-NAME). 157 "Htable whose elements are of the form: (LIST-OF-CHILD-CLASSES . CLASS-NAME).
158 Used to traverse Info inheritance graph. 'br-build-children-htable' builds 158 Used to traverse Info inheritance graph. `br-build-children-htable' builds
159 this list.") 159 this list.")
160 (defvar info-parents-htable nil 160 (defvar info-parents-htable nil
161 "Htable whose elements are of the form: (LIST-OF-PARENT-CLASSES . CLASS-NAME). 161 "Htable whose elements are of the form: (LIST-OF-PARENT-CLASSES . CLASS-NAME).
162 Used to traverse Info inheritance graph. 'br-build-parents-htable' builds 162 Used to traverse Info inheritance graph. `br-build-parents-htable' builds
163 this list.") 163 this list.")
164 (defvar info-paths-htable nil 164 (defvar info-paths-htable nil
165 "Htable whose elements are of the form: (LIST-OF-CLASS-NAMES . FILE-PATH). 165 "Htable whose elements are of the form: (LIST-OF-CLASS-NAMES . FILE-PATH).
166 FILE-PATH gives the location of classes found in LIST-OF-CLASS-NAMES. 166 FILE-PATH gives the location of classes found in LIST-OF-CLASS-NAMES.
167 'br-build-paths-htable' builds this list.") 167 `br-build-paths-htable' builds this list.")
168 168
169 169
170 (defvar info-lib-parents-htable nil 170 (defvar info-lib-parents-htable nil
171 "Htable whose elements are of the form: (LIST-OF-PARENT-CLASSES . CLASS-NAME). 171 "Htable whose elements are of the form: (LIST-OF-PARENT-CLASSES . CLASS-NAME).
172 Only classes from stable software libraries are used to build the list.") 172 Only classes from stable software libraries are used to build the list.")
183 FILE-PATH gives the location of classes found in LIST-OF-CLASS-NAMES. 183 FILE-PATH gives the location of classes found in LIST-OF-CLASS-NAMES.
184 Only classes from systems that are likely to change are used to build the 184 Only classes from systems that are likely to change are used to build the
185 list.") 185 list.")
186 186
187 (defvar info-lib-prev-search-dirs nil 187 (defvar info-lib-prev-search-dirs nil
188 "Used to check if 'info-lib-classes-htable' must be regenerated.") 188 "Used to check if `info-lib-classes-htable' must be regenerated.")
189 (defvar info-sys-prev-search-dirs nil 189 (defvar info-sys-prev-search-dirs nil
190 "Used to check if 'info-sys-classes-htable' must be regenerated.") 190 "Used to check if `info-sys-classes-htable' must be regenerated.")
191 191
192 (defvar info-env-spec nil 192 (defvar info-env-spec nil
193 "Non-nil value means Environment specification has been given but not yet built. 193 "Non-nil value means Environment specification has been given but not yet built.
194 Nil means current Environment has been built, though it may still require updating.") 194 Nil means current Environment has been built, though it may still require updating.")
195 195