diff options
Diffstat (limited to 'generic/proof-useropts.el')
-rw-r--r-- | generic/proof-useropts.el | 28 |
1 files changed, 18 insertions, 10 deletions
diff --git a/generic/proof-useropts.el b/generic/proof-useropts.el index b2cbb97a..9a60e0ac 100644 --- a/generic/proof-useropts.el +++ b/generic/proof-useropts.el @@ -1,11 +1,18 @@ ;;; proof-useropts.el --- Global user options for Proof General -;; -;; Copyright (C) 2009, 2010, 2011 LFCS Edinburgh. + +;; This file is part of Proof General. + +;; Portions © Copyright 1994-2012 David Aspinall and University of Edinburgh +;; Portions © Copyright 2003, 2012, 2014 Free Software Foundation, Inc. +;; Portions © Copyright 2001-2017 Pierre Courtieu +;; Portions © Copyright 2010, 2016 Erik Martin-Dorel +;; Portions © Copyright 2011-2013, 2016-2017 Hendrik Tews +;; Portions © Copyright 2015-2017 Clément Pit-Claudel + ;; Author: David Aspinall <David.Aspinall@ed.ac.uk> and others + ;; License: GPL (GNU GENERAL PUBLIC LICENSE) -;; -;; $Id$ -;; + ;;; Commentary: ;; ;; User options for Proof General. @@ -43,6 +50,7 @@ approximation we test whether proof-config is fully-loaded yet." (set-default sym value) (when (and (not noninteractive) + (not (bound-and-true-p byte-compile-current-file)) (featurep 'pg-custom) (featurep 'proof-config)) (if (fboundp sym) @@ -184,7 +192,7 @@ and displayed lazily. See `proof-layout-windows'." and goal and response buffers on the left (one above the other). - If 'smart or anything else: 'horizontal when the window - is wide enough and 'vertical otherwise. The width threshold + is wide enough and 'vertical otherwise. The width threshold is given by `split-width-threshold'. See `proof-layout-windows'." @@ -354,8 +362,8 @@ locked (coloured blue); a buffer is completely unprocessed when there is no locked region. For some proof assistants (such as Coq) fully processed buffers make -no sense. Setting this option to 'process has then the same effect -as leaving it unset (nil). (This behaviour is controlled by +no sense. Setting this option to 'process has then the same effect +as leaving it unset (nil). (This behaviour is controlled by `proof-no-fully-processed-buffer'.)" :type '(choice (const :tag "No automatic action; query user" nil) @@ -400,7 +408,7 @@ Hovers will be added when this option is non-nil. Prover outputs can be displayed when the mouse hovers over the region that produced it and output is available (see `proof-full-annotation'). If output is not available, the type of the output region is displayed. -Changes of this option will not be reflected in already-processed +Changes of this option will not be reflected in already-processed regions of the script." :type 'boolean :group 'proof-user-options) @@ -430,7 +438,7 @@ are distracting or too frequent." :type 'boolean :group 'proof-user-options) -(defcustom proof-fast-process-buffer +(defcustom proof-fast-process-buffer (or (featurep 'ns) ; Mac OS X ; or Windows (speed up TBC, see Trac #308) (memq system-type '(windows-nt ms-dos cygwin))) |