blob: 45822b4db96985fe9ebbc17f5417024ce5607503 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
;; doc/docstring-magic.el -- hack for using texi-docstring-magic.
;;
;; Copyright (C) 1998 LFCS Edinburgh.
;; Author: David Aspinall
;; Maintainer: Proof General maintainer <proofgen@dcs.ed.ac.uk>
;;
;; Ensure that non-compiled versions of everything are loaded.
;;
;; $Id$
;;
(setq load-path
(append '("../generic/") load-path))
(load "proof-site.el")
(require 'proof-autoloads)
(require 'proof-compat)
(require 'proof-utils)
; need these?
;(require 'pg-user)
;(require 'pg-goals)
;(require 'pg-response)
;; FIXME: Loading several prover files at once is a bit of a problem
;; with new config mechanism.
;; Could abstract more code in proof-site.el to avoid duplication here.
(let ((assistants (mapcar (function car) proof-assistant-table)))
; assume not customized
(while assistants
(let*
((assistant (car assistants)) ; compiler bogus warning here
(nameregexp
(or
(cdr-safe
(assoc assistant
proof-assistant-table))
(error "proof-site: symbol " (symbol-name assistant)
"is not in proof-assistant-table")))
(assistant-name (car nameregexp))
(sname (symbol-name assistant))
(elisp-file sname))
(proof-ready-for-assistant assistant-name assistant)
;; Must load proof-config each time to define proof assistant
;; specific variables
(setq features (delete 'proof-config features))
(load "proof-config.el")
(load-library elisp-file)
(setq assistants (cdr assistants)))))
;; Now a fake proof assistant to document the automatically
;; specific variables
(proof-ready-for-assistant "PROOF ASSISTANT" 'PA)
(setq features (delete 'proof-config features))
(load "proof-config.el")
;; These next few are autoloaded usually
(load "thy-mode.el")
(load "proof-menu.el")
(load "proof-toolbar.el")
(load "proof-script.el")
(load "proof-shell.el")
;; A couple of comint symbols are mentioned in the docs
(require 'comint)
;; Also completion
(require 'completion)
;; Set some symbols to make markup happen
(setq sml-mode 'markup-hack)
(setq func-menu 'markup-hack)
(load "texi-docstring-magic.el")
|