diff options
| author |  Stefan Monnier <monnier@iro.umontreal.ca> | 2018-12-13 22:57:15 -0500 |
|---|---|---|
| committer |  Clément Pit-Claudel <clement.pitclaudel@live.com> | 2018-12-14 17:11:19 -0500 |
| commit | 9a25320acf24020fc0e2b97589f9d996f3d1d4fb (patch) | |
| tree | 336e2a8dcc25f855ad93506b04c9d4e389457b6c /generic/pg-autotest.el | |
| parent | d45bad350834876a0b7e625039313bd1f643c50b (diff) | |
Fix remaining uses of CL; Make files more declarative
Emacs occasionally loads Elisp files just to get more info (e.g. for C-h f),
so loading a file should "no effect". Fix the most obvious such effects:
the splash screen and the autotests by moving those effects into a function.
* coq/coq-autotest.el: Make it declarative. Use lexical-binding.
(coq-autotest): New function holding the code that used to be at top-level.
* generic/proof.el: Use lexical-binding.
Don't call proof-splash-message just because we're being loaded.
* generic/proof-script.el: Use lexical-scoping; fix all warnings.
(pg-show-all-portions): Simplify the code with a closure.
(proof-activate-scripting): Declare activated-interactively as dyn-scoped.
(proof--splash-done): New var.
(proof-mode): Call proof-splash-message upon first use.
* generic/proof-splash.el (proof-splash-message): Don't check
byte-compile-current-file now that we're only called when the mode
is activated.
* acl2/acl2.el (auto-mode-alist): Use `add-to-list` and \'.
* coq/coq-db.el (coq-build-menu-from-db-internal): Avoid silly O(N²).
* coq/coq-seq-compile.el:
* coq/coq-par-test.el:
* coq/coq-par-compile.el: Fix leftover uses of CL's `assert`.
* generic/proof-utils.el:
* generic/pg-movie.el:
* etc/testsuite/pg-test.el:
* coq/coq-syntax.el: Fix leftover uses of CL's `incf`.
* generic/pg-autotest.el: Fix leftover uses of CL's `decf`.
* obsolete/plastic/plastic.el (plastic-preprocessing): Fix leftover use
of CL's `loop`.
* generic/pg-user.el (proof-add-completions): Do nothing if no
proof-assistant is set yet (i.e. during byte-compilation).
(byte-compile-current-file): No need to test this any more.
* generic/proof-syntax.el (proof-regexp-alt-list): Use mapconcat.
Remove unnecessary "\\(?:...\\)".
(proof-regexp-alt): Redefine in terms of proof-regexp-alt-list.
Diffstat (limited to 'generic/pg-autotest.el')
| -rw-r--r-- | generic/pg-autotest.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/generic/pg-autotest.el b/generic/pg-autotest.el index e7cb19a9..7a22c9f7 100644 --- a/generic/pg-autotest.el +++ b/generic/pg-autotest.el @@ -3,7 +3,7 @@ ;; 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 2003-2018 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 @@ -25,6 +25,7 @@ ;;; Code: +(eval-when-compile (require 'cl-lib)) (require 'proof-splash) (setq proof-splash-enable nil) ; prevent splash when testing @@ -215,7 +216,7 @@ completely processing the buffer as the last step." " random jump: processing whole buffer") (proof-process-buffer) (proof-shell-wait) - (decf jumps)) + (cl-decf jumps)) ((and (eq random-thing 1) (not (proof-locked-region-empty-p))) @@ -223,7 +224,7 @@ completely processing the buffer as the last step." " random jump: retracting whole buffer") (proof-retract-buffer) (proof-shell-wait) - (decf jumps)) + (cl-decf jumps)) (t (pg-autotest-message @@ -241,7 +242,7 @@ completely processing the buffer as the last step." " random jump: interrupting prover") (proof-interrupt-process))) (proof-shell-wait)) - (decf jumps))))) + (cl-decf jumps))))) (unless (proof-locked-region-full-p) (proof-process-buffer) (proof-shell-wait)) |