Fix typo.

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 62ae296358b5e60a553fc2187d4e635f07f9efd8..1dab8a62256047acf79d7b83cf991e0c4dbb0701 100644 (file)
--- 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 ea9e18baefbc20be0576b5c70cf5e667d1a806af..b515265191abf4c955b616ba34f74abe497fdd4b 100644 (file)
--- 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