/[emacs]/emacs/lisp/calc/calc-prog.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-prog.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.22 by jpb, Wed Jan 19 17:20:34 2005 UTC revision 1.23 by jpb, Mon Jan 31 06:28:06 2005 UTC
# Line 477  Line 477 
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)))
# Line 519  Line 520 
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)
# Line 582  Line 583 
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 "#")

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26