From a1af3d5c982fd05401ece3aad10ce11b7b86d295 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 10 Aug 1993 09:39:53 +0000
Subject: [PATCH] Eliminate spurious compiler warning.

---
 v7/src/edwin/tagutl.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/tagutl.scm b/v7/src/edwin/tagutl.scm
index 67a8f1962..cf1228e85 100644
--- a/v7/src/edwin/tagutl.scm
+++ b/v7/src/edwin/tagutl.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: tagutl.scm,v 1.50 1993/04/20 18:26:25 jawilson Exp $
+;;;	$Id: tagutl.scm,v 1.51 1993/08/10 09:39:53 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -267,7 +267,8 @@ To continue searching for next match, use command
 See documentation of variable tags-table-pathnames."
   (re-search-prompt "Tags search")
   (lambda (arg regexp)
-    ; arg controls case-sensitivity, just ignore for right now
+    ;; arg controls case-sensitivity, just ignore for right now
+    arg
     (set! tags-loop-continuation
 	  (lambda ()
 	    (let ((mark
-- 
2.25.1