diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2010-09-18 12:23:12 -0500 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2010-09-18 12:23:12 -0500 |
| commit | c2a845b50432e9d6b5fdfb53dab420193056ceb9 (patch) | |
| tree | baf1dbc59f645da8045ae168943d16804e634ad0 /lisp/calc/calc-prog.el | |
| parent | f5632fb6c2392305e3a6f5231d219d5a72363734 (diff) | |
| download | emacs-c2a845b50432e9d6b5fdfb53dab420193056ceb9.tar.gz emacs-c2a845b50432e9d6b5fdfb53dab420193056ceb9.tar.bz2 emacs-c2a845b50432e9d6b5fdfb53dab420193056ceb9.zip | |
calc-prog.el (calc-read-parse-table-part): Don't "fix" the empty
string when it follows a repeated or optional pattern.
Diffstat (limited to 'lisp/calc/calc-prog.el')
| -rw-r--r-- | lisp/calc/calc-prog.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el index 5e4adace91e..91017627699 100644 --- a/lisp/calc/calc-prog.el +++ b/lisp/calc/calc-prog.el @@ -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) |