← Back to branch summary

~ubuntu-branches/ubuntu/karmic/maxima/karmic

« back to all changes in this revision

Viewing changes to share/contrib/lurkmathml/mathml.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Barry deFreese
  • Date: 2006-07-06 17:04:52 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20060706170452-j9ypoqc1kjfnz221
Tags: 5.9.3-1ubuntu1
* Re-sync with Debian
* Comment out backward-delete-char-untabify in maxima.el (Closes Malone #5273)
* debian/control: build-dep automake -> automake1.9 (Closes BTS: #374663)

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/contrib/lurkmathml/mathml.lisp
1
 
(in-package "MAXIMA")
 
1
(in-package :maxima)
2
2
;; MathML-printing
3
3
;; Created by David Drysdale (DMD), December 2002/January 2003
4
4
;;
415
415
                        (mathml x (list "</mrow> <mfenced separators=\"\" open=\"<\" close=\">\">")(cons "</mfenced></msup>" r) 'mparen 'mparen)
416
416
                        (if (and (numberp x) (< x 10))
417
417
                            (mathml x (list "</mrow> ")(cons "</msup> " r) 'mparen 'mparen)
418
 
                            (mathml x (list "</mrow> <mrow>")(cons "</mrow><mrow> " r) 'mparen 'mparen))
 
418
                            (mathml x (list "</mrow> <mrow>")(cons "</mrow></msup> " r) 'mparen 'mparen))
419
419
                        )))))
420
420
      (append l r)))
421
421