diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2010-07-01 21:23:43 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2010-07-01 21:23:43 +0000 |
commit | 5984019c923c6b5d95ce6caa54e9f89b3c86b699 (patch) | |
tree | 89584c9eeb4b4cc3a8645b42829ebd0a7a0eb945 /lego | |
parent | a9357a6e1a255e1955d917d608378966815a89a6 (diff) |
lego-shell-adjust-line-width: save-excursion -> with-current-buffer to avoid
spurious warning in Emacs 23.2
Diffstat (limited to 'lego')
-rw-r--r-- | lego/lego.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lego/lego.el b/lego/lego.el index 2234bb12..46b2cb5c 100644 --- a/lego/lego.el +++ b/lego/lego.el @@ -272,10 +272,8 @@ Given is the first SPAN which needs to be undone." (defun lego-shell-adjust-line-width () "Use LEGO's pretty printing facilities to adjust output line width. Checks the width in the `proof-goals-buffer'" - (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 |