← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/mit-scheme/intrepid-updates

« back to all changes in this revision

Viewing changes to src/edwin/bufcom.scm

  • Committer: Bazaar Package Importer
  • Author(s): Chris Hanson
  • Date: 2005-01-18 00:33:57 UTC
  • mfrom: (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20050118003357-pv3i8iqlm5m80tl5
Tags: 7.7.90-5
http://bugs.debian.org/290845
* Add "libx11-dev" to build-depends.  (closes: Bug#290845)
* Fix debian/control and debian/menu to eliminate some lintian errors
  and warnings.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/edwin/bufcom.scm
1
 
;;; -*-Scheme-*-
2
 
;;;
3
 
;;; $Id: bufcom.scm,v 1.107 2000/03/23 03:18:47 cph Exp $
4
 
;;;
5
 
;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
6
 
;;;
7
 
;;; This program is free software; you can redistribute it and/or
8
 
;;; modify it under the terms of the GNU General Public License as
9
 
;;; published by the Free Software Foundation; either version 2 of the
10
 
;;; License, or (at your option) any later version.
11
 
;;;
12
 
;;; This program is distributed in the hope that it will be useful,
13
 
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14
 
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15
 
;;; General Public License for more details.
16
 
;;;
17
 
;;; You should have received a copy of the GNU General Public License
18
 
;;; along with this program; if not, write to the Free Software
19
 
;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
1
#| -*-Scheme-*-
 
2
 
 
3
$Id: bufcom.scm,v 1.110 2003/02/14 18:28:11 cph Exp $
 
4
 
 
5
Copyright 1986,1989,1990,1992,1994,1996 Massachusetts Institute of Technology
 
6
Copyright 1997,1998,1999,2000,2003 Massachusetts Institute of Technology
 
7
 
 
8
This file is part of MIT/GNU Scheme.
 
9
 
 
10
MIT/GNU Scheme is free software; you can redistribute it and/or modify
 
11
it under the terms of the GNU General Public License as published by
 
12
the Free Software Foundation; either version 2 of the License, or (at
 
13
your option) any later version.
 
14
 
 
15
MIT/GNU Scheme is distributed in the hope that it will be useful, but
 
16
WITHOUT ANY WARRANTY; without even the implied warranty of
 
17
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
18
General Public License for more details.
 
19
 
 
20
You should have received a copy of the GNU General Public License
 
21
along with MIT/GNU Scheme; if not, write to the Free Software
 
22
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
 
23
USA.
 
24
 
 
25
|#
20
26
 
21
27
;;;; Buffer Commands
22
28
 
272
278
 
273
279
(define (call-with-temporary-buffer name procedure)
274
280
  (let ((buffer))
275
 
    (unwind-protect (lambda ()
276
 
                      (set! buffer (temporary-buffer name)))
277
 
                    (lambda ()
278
 
                      (procedure buffer))
279
 
                    (lambda ()
280
 
                      (kill-buffer buffer)
281
 
                      (set! buffer)
282
 
                      unspecific))))
 
281
    (dynamic-wind (lambda ()
 
282
                    (set! buffer (temporary-buffer name)))
 
283
                  (lambda ()
 
284
                    (procedure buffer))
 
285
                  (lambda ()
 
286
                    (kill-buffer buffer)
 
287
                    (set! buffer)
 
288
                    unspecific))))
283
289
 
284
290
(define (temporary-buffer name)
285
291
  (let ((buffer (find-or-create-buffer name)))