# HG changeset patch
# User haftmann
# Date 1262957658 -3600
# Node ID 9074aa7d06e0f9c02b2dc31f5258e6ec4ba18b03
# Parent  e8b8ee60c1e2519dcc8554517c9be24061d6c071
single quote is not a valid letter any more

diff -r e8b8ee60c1e2 -r 9074aa7d06e0 src/Pure/name.ML
--- a/src/Pure/name.ML	Fri Jan 08 14:34:18 2010 +0100
+++ b/src/Pure/name.ML	Fri Jan 08 14:34:18 2010 +0100
@@ -156,7 +156,7 @@
           if Symbol.is_ascii_letter x orelse Symbol.is_symbolic x then xs
           else "x" :: xs;
         fun is_valid x =
-          Symbol.is_ascii_letter x orelse Symbol.is_ascii_digit x orelse x = "'";
+          Symbol.is_ascii_letter x orelse Symbol.is_ascii_digit x;
         fun sep [] = []
           | sep (xs as "_" :: _) = xs
           | sep xs = "_" :: xs;