home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / packages / LaTeXinfo.shar.2 / macsyma-fmt.el < prev    next >
Encoding:
Text File  |  1990-07-22  |  1.7 KB  |  54 lines
  1. (defun latexinfo-format-dots ()
  2.   (latexinfo-discard-command)
  3.   (insert "..."))
  4.  
  5. (put 'Macsyma 'latexinfo-format 'latexinfo-format-Macsyma)
  6. (defun latexinfo-format-Macsyma ()
  7.   (latexinfo-parse-noarg)
  8.   (insert "Macsyma"))
  9.  
  10. (put 'ExampleInFile 'latexinfo-format 'latexinfo-ExampleInFile)
  11. (defun latexinfo-ExampleInFile ()
  12.   (let ((arg (latexinfo-parse-arg-discard)))
  13.     (insert
  14.      "There is an example in the file: \"" arg "\".")))
  15.  
  16. (put 'DemoInFile 'latexinfo-format 'latexinfo-DemoInFile)
  17. (defun latexinfo-DemoInFile ()
  18.   (let ((arg (latexinfo-parse-arg-discard)))
  19.       (insert
  20.        "There is a demo in the file: \"" arg "\".")))
  21.  
  22. (put 'UsageInFile 'latexinfo-format 'latexinfo-UsageInFile)
  23. (defun latexinfo-UsageInFile ()
  24.   (let ((arg (latexinfo-parse-arg-discard)))
  25.     (insert
  26.      "There are some usage notes in the file: \"" arg "\".")))
  27.  
  28.  
  29. (put 'f 'latexinfo-format 'latexinfo-format-noop)
  30. (put 'fb 'latexinfo-format 'latexinfo-format-findex-plus)
  31. (defun latexinfo-format-findex-plus ()
  32.   (latexinfo-index-plus 'latexinfo-findex))
  33.  
  34. (put 'v 'latexinfo-format 'latexinfo-format-noop)
  35. (put 'vb 'latexinfo-format 'latexinfo-format-vindex-plus)
  36. (defun latexinfo-format-vindex-plus ()
  37.   (latexinfo-index-plus 'latexinfo-vindex))
  38.  
  39. (defun latexinfo-index-plus (indexvar)
  40.   (let ((arg (latexinfo-parse-expanded-arg)))
  41.     (latexinfo-discard-command)
  42.     (insert arg)
  43.     (set indexvar
  44.      (cons (list arg latexinfo-last-node)
  45.            (symbol-value indexvar)))))
  46.  
  47.  
  48. (put 'o 'latexinfo-format 'latexinfo-format-noop)
  49. (put 'concept  'latexinfo-format 'latexinfo-format-noop)
  50. (put 'filen 'latexinfo-format 'latexinfo-format-code)
  51. (put 'flushr 'latexinfo-format 'latexinfo-format-noop)
  52.  
  53. (put 'pcp 'latexinfo-format 'latexinfo-discard-line-with-args)
  54.