diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2010-08-26 23:39:20 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2010-08-26 23:39:20 +0000 |
| commit | e7bc18ab416f45c3daf31f3c202e33792a106797 (patch) | |
| tree | 8f557aad5185ac5529b86bf241665cbbe3be5a03 /generic/proof-shell.el | |
| parent | 7e1dfbf210078ff84197e39830ce6c49041b5cd3 (diff) | |
Move erase-buffer from associate buffer mode functions, allowing clone-buffer to work, at least superficially.
Diffstat (limited to 'generic/proof-shell.el')
| -rw-r--r-- | generic/proof-shell.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/generic/proof-shell.el b/generic/proof-shell.el index d3e4e28d..acca04ed 100644 --- a/generic/proof-shell.el +++ b/generic/proof-shell.el @@ -339,18 +339,22 @@ process command." ;; Initialise associated buffers - (set-buffer proof-response-buffer) - (proof-shell-set-text-representation) - (funcall proof-mode-for-response) + (with-current-buffer proof-response-buffer + (erase-buffer) + (proof-shell-set-text-representation) + (funcall proof-mode-for-response)) + + (with-current-buffer proof-goals-buffer + (erase-buffer) + (proof-shell-set-text-representation) + (funcall proof-mode-for-goals)) (proof-with-current-buffer-if-exists proof-trace-buffer + (erase-buffer) (proof-shell-set-text-representation) (funcall proof-mode-for-response) (setq pg-response-eagerly-raise nil)) - (set-buffer proof-goals-buffer) - (proof-shell-set-text-representation) - (funcall proof-mode-for-goals) ;; Setting modes initialises local variables which ;; may affect frame/buffer appearance: so we fire up frames |