From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 23 Apr 1996 23:25:03 +0000 (+0000)
Subject: Fix typo.
X-Git-Tag: 20090517-FFI~5590
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4f474d705e3fc01d44aa4d481159983f2386def9;p=mit-scheme.git

Fix typo.
---

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 62ae29635..1dab8a622 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.186 1996/04/23 23:08:15 cph Exp $
+$Id: edwin.pkg,v 1.187 1996/04/23 23:23:56 cph Exp $
 
 Copyright (c) 1989-96 Massachusetts Institute of Technology
 
@@ -1030,7 +1030,6 @@ MIT in each case. |#
 	    edwin-command$set-internal-border-width
 	    edwin-command$set-mouse-color
 	    edwin-command$set-mouse-shape
-	    edwin-command$set-mouse-shape
 	    edwin-command$x-auto-raise-mode
 	    edwin-command$x-lower-screen
 	    edwin-command$x-mouse-ignore
diff --git a/v7/src/edwin/syntax.scm b/v7/src/edwin/syntax.scm
index ea9e18bae..b51526519 100644
--- a/v7/src/edwin/syntax.scm
+++ b/v7/src/edwin/syntax.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: syntax.scm,v 1.77 1996/04/23 22:36:02 cph Exp $
+;;;	$Id: syntax.scm,v 1.78 1996/04/23 23:25:03 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
 ;;;
@@ -212,8 +212,7 @@ which is selected so you can see it."
 		(begin
 		  (write-string ", matches ")
 		  (write-string (emacs-key-name (ascii->char match) false)))))
-	  (let ((cbits (fix:and #xFF (fix:lsh entry -12)))
-		(decode-comment-bit
+	  (let ((decode-comment-bit
 		 (lambda (code pos se style)
 		   (if (not (fix:= 0 (fix:and code entry)))
 		       (begin