477 |
(format "Editing %s-Mode Syntax Table. " |
(format "Editing %s-Mode Syntax Table. " |
478 |
(cond ((null lang) "Normal") |
(cond ((null lang) "Normal") |
479 |
((eq lang 'tex) "TeX") |
((eq lang 'tex) "TeX") |
480 |
|
((eq lang 'latex) "LaTeX") |
481 |
(t (capitalize (symbol-name lang)))))) |
(t (capitalize (symbol-name lang)))))) |
482 |
(calc-write-parse-table (cdr (assq lang calc-user-parse-tables)) |
(calc-write-parse-table (cdr (assq lang calc-user-parse-tables)) |
483 |
lang))) |
lang))) |
520 |
(cond ((stringp (car p)) |
(cond ((stringp (car p)) |
521 |
(let ((s (car p))) |
(let ((s (car p))) |
522 |
(if (and (string-match "\\`\\\\dots\\>" s) |
(if (and (string-match "\\`\\\\dots\\>" s) |
523 |
(not (eq calc-lang 'tex))) |
(not (eq calc-lang '(tex latex)))) |
524 |
(setq s (concat ".." (substring s 5)))) |
(setq s (concat ".." (substring s 5)))) |
525 |
(if (or (and (string-match |
(if (or (and (string-match |
526 |
"[a-zA-Z0-9\"{}]\\|\\`:=\\'\\|\\`#\\|\\`%%" s) |
"[a-zA-Z0-9\"{}]\\|\\`:=\\'\\|\\`#\\|\\`%%" s) |
583 |
(defun calc-fix-token-name (name &optional unquoted) |
(defun calc-fix-token-name (name &optional unquoted) |
584 |
(cond ((string-match "\\`\\.\\." name) |
(cond ((string-match "\\`\\.\\." name) |
585 |
(concat "\\dots" (substring name 2))) |
(concat "\\dots" (substring name 2))) |
586 |
((and (equal name "{") (memq calc-lang '(tex eqn))) |
((and (equal name "{") (memq calc-lang '(tex latex eqn))) |
587 |
"(") |
"(") |
588 |
((and (equal name "}") (memq calc-lang '(tex eqn))) |
((and (equal name "}") (memq calc-lang '(tex latex eqn))) |
589 |
")") |
")") |
590 |
((and (equal name "&") (eq calc-lang 'tex)) |
((and (equal name "&") (eq calc-lang '(tex latex))) |
591 |
",") |
",") |
592 |
((equal name "#") |
((equal name "#") |
593 |
(search-backward "#") |
(search-backward "#") |