# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1284830592 18000
# Node ID a141021cb63fa6532f95959fba97366d119708aa
# Parent  8a3552ec79341a29dfa6163f8ccfb77594e16e18
calc-prog.el (calc-read-parse-table-part): Don't "fix" the empty
string when it follows a repeated or optional pattern.

diff -r 8a3552ec7934 -r a141021cb63f lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Sep 18 18:21:16 2010 +0200
+++ b/lisp/ChangeLog	Sat Sep 18 12:23:12 2010 -0500
@@ -1,3 +1,8 @@
+2010-09-18  Jay Belanger  <jay.p.belanger@gmail.com>
+
+	* calc/calc-prog.el (calc-read-parse-table-part): Don't "fix" the
+	empty string when it follows a repeated or optional pattern.
+
 2010-09-18  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* indent.el (indent-according-to-mode): Apply syntax-propertize.
diff -r 8a3552ec7934 -r a141021cb63f lisp/calc/calc-prog.el
--- a/lisp/calc/calc-prog.el	Sat Sep 18 18:21:16 2010 +0200
+++ b/lisp/calc/calc-prog.el	Sat Sep 18 12:23:12 2010 -0500
@@ -627,7 +627,8 @@
 			(error "Separator not allowed with { ... }?"))
 		   (if (string-match "\\`\"" sep)
 		       (setq sep (read-from-string sep)))
-		   (setq sep (calc-fix-token-name sep))
+                   (if (> (length sep) 0)
+                       (setq sep (calc-fix-token-name sep)))
 		   (setq part (nconc part
 				     (list (list sym p
 						 (and (> (length sep) 0)