From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Fri, 20 Sep 1991 20:56:08 +0000 (+0000)
Subject: Get rid of unreferenced variable NAME left over from translation from
X-Git-Tag: 20090517-FFI~10190
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0993eecf440dedda389f697c9b1a68b89df2dda7;p=mit-scheme.git

Get rid of unreferenced variable NAME left over from translation from
Emacs Lisp lpr.el package.
---

diff --git a/v7/src/edwin/print.scm b/v7/src/edwin/print.scm
index f653873bb..0ad05af91 100644
--- a/v7/src/edwin/print.scm
+++ b/v7/src/edwin/print.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/print.scm,v 1.1 1991/09/20 20:46:48 arthur Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/print.scm,v 1.2 1991/09/20 20:56:08 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -99,9 +99,7 @@ Variable LPR-SWITCHES is a list of extra switches (strings) to pass to lpr."
 				     (loop (cdr remaining))))))))))
 
 (define (print-region/internal region switches)
-  (let ((name (string-append (buffer-name (current-buffer))
-			     " Emacs buffer"))
-	(width (ref-variable tab-width)))
+  (let ((width (ref-variable tab-width)))
     (let ((buffer (temporary-buffer " *spool temp*")))
       (message "Spooling...")
       (region-insert-string! (buffer-point buffer)