blob: 55cb7aa46c867ae80ebbcd1e002ccb5008f50485 (
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
73
74
75
|
;; 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)
;; Prevent loading some files normally loaded in compilation
;; NB: 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))
(setq proof-assistant-symbol nil)
(proof-ready-for-assistant assistant assistant-name)
;; Must load proof-config each time to define proof assistant
;; specific variables
(setq features (delete 'pg-custom features))
(load "pg-custom.el")
(load-library elisp-file)
(setq assistants (cdr assistants)))))
;; Now a fake proof assistant to document the automatically
;; specific variables
(setq proof-assistant-symbol nil)
(proof-ready-for-assistant 'PA "PROOF ASSISTANT")
(setq features (delete 'pg-custom features))
(load "pg-custom.el")
;; These next few are autoloaded usually
(load "proof-menu.el")
(load "proof-toolbar.el")
(load "proof-script.el")
(load "proof-shell.el")
(load "pg-user.el")
(load "pg-goals.el")
(load "pg-response.el")
(load "unicode-tokens.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")
|
