From f12100d783d57ed11817d4dbc7f4cdbe5b7dc3f5 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Mon, 25 Feb 2002 15:23:02 +0000
Subject: Added clarification comment.

---
 generic/tclScan.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/generic/tclScan.c b/generic/tclScan.c
index 9eb60e7..7d5b093 100644
--- a/generic/tclScan.c
+++ b/generic/tclScan.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclScan.c,v 1.11 2002/02/15 14:28:49 dkf Exp $
+ * RCS: @(#) $Id: tclScan.c,v 1.12 2002/02/25 15:23:02 dkf Exp $
  */
 
 #include "tclInt.h"
@@ -707,6 +707,9 @@ Tcl_ScanObjCmd(dummy, interp, objc, objv)
 #ifndef TCL_WIDE_INT_IS_LONG
 	    flags |= SCAN_LONGER;
 #endif
+	    /*
+	     * Fall through so we skip to the next character.
+	     */
 	case 'h':
 	    format += Tcl_UtfToUniChar(format, &ch);
 	}
-- 
cgit v0.12