diff options
| -rw-r--r-- | plastic/plastic.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/plastic/plastic.el b/plastic/plastic.el index 047e20fb..3461dbb8 100644 --- a/plastic/plastic.el +++ b/plastic/plastic.el @@ -321,10 +321,8 @@ Given is the first SPAN which needs to be undone." "Use Plastic's pretty printing facilities to adjust output line width. Checks the width in the `proof-goals-buffer' ACTUALLY - still need to work with this. (pcc, may99)" - (and (buffer-live-p proof-goals-buffer) - (proof-shell-live-buffer) - (save-excursion - (set-buffer proof-goals-buffer) + (and (proof-shell-live-buffer) + (proof-with-current-buffer-if-exists proof-goals-buffer (let ((current-width ;; Actually, one might sometimes ;; want to get the width of the proof-response-buffer |