Mercurial > hg > xemacs-beta

comparison lisp/info.el @ 269:b2472a1930f2 r20-5b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b33
author cvs
date Mon, 13 Aug 2007 10:27:19 +0200
parents 727739f917cb
children c5d627a313b1
comparison
equal deleted inserted replaced
268:6ced69ccd85f 269:b2472a1930f2
257 257
258 258
259 ;; Modified 5/9/1993 by Dave Gillespie: 259 ;; Modified 5/9/1993 by Dave Gillespie:
260 ;; 260 ;;
261 ;; Merged in various things from FSF's latest Emacs 19 info.el. 261 ;; Merged in various things from FSF's latest Emacs 19 info.el.
262 ;; Notably: Added Info-default-directory-list.
263
264 262
265 ;; Modified 6/2/1993 by Dave Gillespie: 263 ;; Modified 6/2/1993 by Dave Gillespie:
266 ;; 264 ;;
267 ;; Changed to use new suffix ".gz" for gzip files. 265 ;; Changed to use new suffix ".gz" for gzip files.
268 266
373 "*Non-nil enables font features in XEmacs. 371 "*Non-nil enables font features in XEmacs.
374 This variable is ignored unless running under XEmacs." 372 This variable is ignored unless running under XEmacs."
375 :type 'boolean 373 :type 'boolean
376 :group 'info) 374 :group 'info)
377 375
378 (defvar Info-default-directory-list nil
379 "*List of directories to search for Info documents, and `dir' or `localdir' files.
380 The value of `Info-default-directory-list' will be initialized to a
381 reasonable default by the startup code, and usually doesn't need to be
382 changed in your personal configuration, though you may do so if you
383 like, and this is where to do that.
384
385 The first directory on this list must contain a `dir' file like the one
386 supplied with XEmacs, which will be used as the (dir)Top node.
387
388 For more information, see the documentation to the variables:
389 `Info-additional-search-directory-list' and `Info-directory-list'.")
390
391 (defcustom Info-additional-search-directory-list nil 376 (defcustom Info-additional-search-directory-list nil
392 "*List of additional directories to search for Info documentation 377 "*List of additional directories to search for Info documentation
393 files. These directories are not searched for merging the `dir' 378 files. These directories are not searched for merging the `dir'
394 file. An example might be something like: 379 file. An example might be something like:
395 \"/usr/local/lib/xemacs/packages/lisp/calc/\"" 380 \"/usr/local/lib/xemacs/packages/lisp/calc/\""
398 383
399 (defvar Info-emacs-info-file-name "xemacs.info" 384 (defvar Info-emacs-info-file-name "xemacs.info"
400 "The filename of the XEmacs info for 385 "The filename of the XEmacs info for
401 `Info-goto-emacs-command-node' (`\\<help-mode-map>\\[Info-goto-emacs-command-node]')") 386 `Info-goto-emacs-command-node' (`\\<help-mode-map>\\[Info-goto-emacs-command-node]')")
402 387
403 (defvar Info-directory-list 388 ;;;###autoload
404 (let ((path (getenv "INFOPATH"))) 389 (defvar Info-directory-list nil
405 (if path
406 (split-string path path-separator)
407 Info-default-directory-list))
408 "List of directories to search for Info documentation files. 390 "List of directories to search for Info documentation files.
409 391
410 The default is to use the environment variable INFOPATH if it exists, 392 The first directory in this list, the \"dir\" file there will become
411 else to use `Info-default-directory-list'. The first directory in 393 the (dir)Top node of the Info documentation tree. If you wish to
412 this list, the \"dir\" file there will become the (dir)Top node of the 394 modify the info search path, use `M-x customize-variable,
413 Info documentation tree. If you wish to modify the info search path, 395 Info-directory-list' to do so.")
414 use `M-x customize-variable, Info-default-directory-list' to do so.")
415 396
416 (defcustom Info-localdir-heading-regexp 397 (defcustom Info-localdir-heading-regexp
417 "^Locally installed XEmacs Packages:?" 398 "^Locally installed XEmacs Packages:?"
418 "The menu part of localdir files will be inserted below this topic 399 "The menu part of localdir files will be inserted below this topic
419 heading." 400 heading."
830 ;; Distinguish the dir file that comes with Emacs from all the 811 ;; Distinguish the dir file that comes with Emacs from all the
831 ;; others. Yes, that is really what this is supposed to do. 812 ;; others. Yes, that is really what this is supposed to do.
832 ;; If it doesn't work, fix it. 813 ;; If it doesn't work, fix it.
833 (setq buffer (car buffers) 814 (setq buffer (car buffers)
834 ;; reverse it since they are pushed down from the top. the 815 ;; reverse it since they are pushed down from the top. the
835 ;; `Info-default-directory-list'/INFOPATH can be specified 816 ;; `Info-directory-list can be specified in natural order
836 ;; in natural order this way. 817 ;; this way.
837 others (nreverse (cdr buffers))) 818 others (nreverse (cdr buffers)))
838 819
839 ;; Insert the entire original dir file as a start; note that we've 820 ;; Insert the entire original dir file as a start; note that we've
840 ;; already saved its default directory to use as the default 821 ;; already saved its default directory to use as the default
841 ;; directory for the whole concatenation. 822 ;; directory for the whole concatenation.