diff options
| author | David Aspinall | 1998-10-27 14:53:52 +0000 |
|---|---|---|
| committer | David Aspinall | 1998-10-27 14:53:52 +0000 |
| commit | 4129f10b63aa56d4670092a2b84bba548bfd5056 (patch) | |
| tree | 7a4bb2b0405c5d236fc636143644416db30bcfb5 /generic/proof-script.el | |
| parent | 273bdd977fc4f23c0c01f841c240ac3e6d9ada38 (diff) | |
Removed bug introduced by da trying to do clever optimizations
Diffstat (limited to 'generic/proof-script.el')
| -rw-r--r-- | generic/proof-script.el | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/generic/proof-script.el b/generic/proof-script.el index a28b513b..f7b6628b 100644 --- a/generic/proof-script.el +++ b/generic/proof-script.el @@ -352,11 +352,13 @@ the hooks `proof-activate-scripting-hook' are run." ;; We only allow switching of the Scripting buffer if the ;; locked region is either empty or full for all buffers. + ;; FIXME: ponder alternative of trying to complete rest + ;; of current scripting buffer? + ;; FIXME: this test isn't necessary if the current + ;; buffer was already in proof-script-buffer-list. (or (proof-locked-region-empty-p) - (proof-locked-region-full-p) + (proof-locked-region-full-p) ;; should be always t (error - ;; FIXME da: ponder alternative of trying to complete rest - ;; of current scripting buffer? "Cannot deal with two unfinished script buffers!")) (if (proof-locked-region-full-p) @@ -371,11 +373,12 @@ the hooks `proof-activate-scripting-hook' are run." (setq proof-active-buffer-fake-minor-mode nil))) ;; is this a fresh script mode buffer, with no locked region? - (if (not (member (current-buffer) proof-script-buffer-list)) - (progn - (proof-init-segmentation) - (setq proof-script-buffer-list - (cons (current-buffer) proof-script-buffer-list)))) + (if (member (current-buffer) proof-script-buffer-list) + (setq proof-script-buffer-list + (remove (current-buffer) proof-script-buffer-list)) + (proof-init-segmentation)) + (setq proof-script-buffer-list + (cons (current-buffer) proof-script-buffer-list)) ;; Turn on the minor mode, run hooks. (setq proof-active-buffer-fake-minor-mode t) |