From 0993eecf440dedda389f697c9b1a68b89df2dda7 Mon Sep 17 00:00:00 2001 From: Arthur Gleckler Date: Fri, 20 Sep 1991 20:56:08 +0000 Subject: [PATCH] Get rid of unreferenced variable NAME left over from translation from Emacs Lisp lpr.el package. --- v7/src/edwin/print.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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) -- 2.25.1