blob: 57fafa986b00934fa5ef442bc0724e66a8486022 (
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
|
;;; proof-maths-menu.el --- Support for maths menu mode package
;;
;; Copyright (C) 2007, 2009 LFCS Edinburgh / David Aspinall
;; Author: David Aspinall <David.Aspinall@ed.ac.uk>
;; License: GPL (GNU GENERAL PUBLIC LICENSE)
;;
;;
;; With thanks to Dave Love for the original maths menu code,
;; provided at http://www.loveshack.ukfsn.org/emacs/
;;
;; $Id$
;;
;;; Commentary:
;;
;; Note: maths menu is bundled with Proof General in lib/, and PG will select
;; it's own version before any other version on the Emacs load path.
;; If you want to override this, simply load your version before
;; starting Emacs, with (require 'maths-menu).
;;
;;; Code:
(eval-when-compile
(require 'cl))
(eval-when-compile
(require 'proof-auxmodes) ; loaded by proof.el
(require 'maths-menu)) ; loaded dynamically in proof-auxmodes
;;;###autoload
(defun proof-maths-menu-set-global (flag)
"Set global status of maths-menu mode for PG buffers to be FLAG.
Turn on/off menu in all script buffers and ensure new buffers follow suit."
(let ((hook (proof-ass-sym mode-hook)))
(if flag
(add-hook hook 'maths-menu-mode)
(remove-hook hook 'maths-menu-mode))
(proof-map-buffers
(proof-buffers-in-mode proof-mode-for-script)
(maths-menu-mode (if flag 1 0)))))
;;;###autoload
(defun proof-maths-menu-enable ()
"Turn on or off maths-menu mode in Proof General script buffer.
This invokes `maths-menu-mode' to toggle the setting for the current
buffer, and then sets PG's option for default to match.
Also we arrange to have maths menu mode turn itself on automatically
in future if we have just activated it for this buffer."
(interactive)
(require 'maths-menu)
(if (proof-maths-menu-support-available)
(proof-maths-menu-set-global (not maths-menu-mode))))
(provide 'proof-maths-menu)
;;; proof-maths-menu.el ends here
|
