diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2009-09-07 09:43:51 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2009-09-07 09:43:51 +0000 |
commit | 761e0293dacf9ada82ca90196bbdb8790b133352 (patch) | |
tree | 75af11e52d4b0b2d27bf31bd40716578e69ed99a /isar/isar.el | |
parent | e7876648dfaf463fe4a59830e6243a1fb9118fad (diff) |
Revert change in 10.26 to use defpacustom after all, this gives
the prover-specific menu entry automatically. Fix compiler warning
with a defvar.
Diffstat (limited to 'isar/isar.el')
-rw-r--r-- | isar/isar.el | 23 |
1 files changed, 9 insertions, 14 deletions
diff --git a/isar/isar.el b/isar/isar.el index e2ddf4c2..c69d855f 100644 --- a/isar/isar.el +++ b/isar/isar.el @@ -24,6 +24,7 @@ (require 'pg-vars) (defvar outline-heading-end-regexp nil) (defvar comment-quote-nested nil) + (defvar isar-use-find-theorems-form nil) (proof-ready-for-assistant 'isar)) ; compile for isar (require 'isabelle-system) ; system code @@ -240,25 +241,19 @@ See -k option for Isabelle interface script." ;;; -(defun isar-use-find-theorems-form-set (sym val) - (set-default sym val) - (when (featurep 'isar) ; not during loading - (isar-set-proof-find-theorems-command))) +(defun isar-configure-from-settings () + (isar-set-proof-find-theorems-command)) -(defcustom isar-use-find-theorems-form nil +(defpacustom use-find-theorems-form nil "Use a form-style input for the find theorems operation." :type 'boolean - :group 'isabelle - :set 'isar-use-find-theorems-form-set) + :eval (isar-set-proof-find-theorems-command)) (defun isar-set-proof-find-theorems-command () - (setq proof-find-theorems-command - (if isar-use-find-theorems-form - 'isar-find-theorems-form - 'isar-find-theorems-minibuffer))) - -(defun isar-configure-from-settings () - (isar-set-proof-find-theorems-command)) + (setq proof-find-theorems-command + (if isar-use-find-theorems-form + 'isar-find-theorems-form + 'isar-find-theorems-minibuffer))) ;;; ;;; Theory loader operations |