From 5984019c923c6b5d95ce6caa54e9f89b3c86b699 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Thu, 1 Jul 2010 21:23:43 +0000 Subject: lego-shell-adjust-line-width: save-excursion -> with-current-buffer to avoid spurious warning in Emacs 23.2 --- lego/lego.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'lego') 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 -- cgit v1.2.3