1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 19:31:02 -08:00

calc-prog.el (calc-read-parse-table-part): Don't "fix" the empty

string when it follows a repeated or optional pattern.
This commit is contained in:
Jay Belanger 2010-09-18 12:23:12 -05:00
parent f5632fb6c2
commit c2a845b504
2 changed files with 7 additions and 1 deletions

View file

@ -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)