home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / docs.lha / latexinfo / elisp / clisp-fmt.elc < prev    next >
Encoding:
Text File  |  1992-02-26  |  4.9 KB  |  126 lines

  1.  
  2. (load "elisp-fmt")
  3.  
  4. (put (quote nil) (quote latexinfo-format) (quote latexinfo-format-nil))
  5.  
  6. (defun latexinfo-format-nil nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "nil"] 2))
  7.  
  8. (put (quote T) (quote latexinfo-format) (quote latexinfo-format-true))
  9.  
  10. (put (quote TRUE) (quote latexinfo-format) (quote latexinfo-format-true))
  11.  
  12. (put (quote true) (quote latexinfo-format) (quote latexinfo-format-true))
  13.  
  14. (defun latexinfo-format-true nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "true"] 2))
  15.  
  16. (put (quote FALSE) (quote latexinfo-format) (quote latexinfo-format-false))
  17.  
  18. (put (quote F) (quote latexinfo-format) (quote latexinfo-format-false))
  19.  
  20. (put (quote false) (quote latexinfo-format) (quote latexinfo-format-false))
  21.  
  22. (defun latexinfo-format-false nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "false"] 2))
  23.  
  24. (put (quote empty) (quote latexinfo-format) (quote latexinfo-format-empty))
  25.  
  26. (defun latexinfo-format-empty nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "()"] 2))
  27.  
  28. (put (quote &key) (quote latexinfo-format) (quote latexinfo-format-&key))
  29.  
  30. (defun latexinfo-format-&key nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "&key"] 2))
  31.  
  32. (put (quote &optional) (quote latexinfo-format) (quote latexinfo-format-optional))
  33.  
  34. (defun latexinfo-format-optional nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "&optional"] 2))
  35.  
  36. (put (quote &rest) (quote latexinfo-format) (quote latexinfo-format-&rest))
  37.  
  38. (defun latexinfo-format-&rest nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "&rest"] 2))
  39.  
  40. (put (quote defconst) (quote latexinfo-defun-indexing-property) (quote latexinfo-index-defun))
  41.  
  42. (put (quote defconstx) (quote latexinfo-defun-indexing-property) (quote latexinfo-index-defun))
  43.  
  44. (put (quote defconst) (quote latexinfo-deffn-formatting-property) (quote latexinfo-format-specialized-defun))
  45.  
  46. (put (quote defconstx) (quote latexinfo-deffn-formatting-property) (quote latexinfo-format-specialized-defun))
  47.  
  48. (put (quote defconst) (quote latexinfo-format) (quote latexinfo-format-defun))
  49.  
  50. (put (quote defconstx) (quote latexinfo-format) (quote latexinfo-format-defunx))
  51.  
  52. (put (quote enddefconst) (quote latexinfo-format) (quote latexinfo-end-defun))
  53.  
  54. (put (quote defconst) (quote latexinfo-defun-type) (quote ((quote defun-type) "Constant")))
  55.  
  56. (put (quote defconstx) (quote latexinfo-defun-type) (quote ((quote defun-type) "Constant")))
  57.  
  58. (put (quote defconst) (quote latexinfo-defun-index) (quote latexinfo-vindex))
  59.  
  60. (put (quote defconstx) (quote latexinfo-defun-index) (quote latexinfo-vindex))
  61.  
  62. (defun latexinfo-format-deffn (parsed-args) (byte-code "    @    A@    AA─┼╞
  63. $ê à$─╟ @\"ê Aëêé+ç" [category parsed-args name args insert " -- " ": " " "] 5))
  64.  
  65. (defun latexinfo-format-specialized-defun (parsed-args) (byte-code "    A@ @ A┼╞╟
  66. $ê à$┼╚ @╔#ê Aëêé+ç" [category command-type name parsed-args args insert " -- " ": " " " "
  67. "] 6))
  68.  
  69. (put (quote mopt) (quote latexinfo-format) (quote latexinfo-format-mopt))
  70.  
  71. (defun latexinfo-format-mopt nil (byte-code "┴┬├ ─#êbç" [latexinfo-command-start insert "[" latexinfo-parse-arg-discard "]"] 5))
  72.  
  73. (put (quote mchoice) (quote latexinfo-format) (quote latexinfo-format-mchoice))
  74.  
  75. (defun latexinfo-format-mchoice nil (byte-code "┴┬├ ─#êbç" [latexinfo-command-start insert "[[" latexinfo-parse-arg-discard "]]"] 5))
  76.  
  77. (put (quote mstar) (quote latexinfo-format) (quote latexinfo-format-mstar))
  78.  
  79. (defun latexinfo-format-mstar nil (byte-code "┴┬├ ─#êbç" [latexinfo-command-start insert "{" latexinfo-parse-arg-discard "}*"] 5))
  80.  
  81. (put (quote mplus) (quote latexinfo-format) (quote latexinfo-format-mplus))
  82.  
  83. (defun latexinfo-format-mplus nil (byte-code "┴┬├ ─#êbç" [latexinfo-command-start insert "{" latexinfo-parse-arg-discard "}+"] 5))
  84.  
  85. (put (quote mgroup) (quote latexinfo-format) (quote latexinfo-format-mgroup))
  86.  
  87. (defun latexinfo-format-mgroup nil (byte-code "┴┬├ ─#êbç" [latexinfo-command-start insert "{" latexinfo-parse-arg-discard "}"] 5))
  88.  
  89. (put (quote mor) (quote latexinfo-format) (quote latexinfo-format-mor))
  90.  
  91. (defun latexinfo-format-mor nil (byte-code "└ ê┴cç" [latexinfo-parse-noarg "|"] 2))
  92.  
  93. (put (quote mind) (quote latexinfo-format) (quote latexinfo-format-mind))
  94.  
  95. (defun latexinfo-format-mind nil (byte-code "┴┬├ \"êbç" [latexinfo-command-start insert "v " latexinfo-parse-arg-discard] 4))
  96.  
  97. (put (quote deffn) (quote latexinfo-numargs) 3)
  98.  
  99. (put (quote deffnx) (quote latexinfo-numargs) 3)
  100.  
  101. (put (quote defun) (quote latexinfo-numargs) 2)
  102.  
  103. (put (quote defunx) (quote latexinfo-numargs) 2)
  104.  
  105. (put (quote defmac) (quote latexinfo-numargs) 2)
  106.  
  107. (put (quote defmacx) (quote latexinfo-numargs) 2)
  108.  
  109. (put (quote defspec) (quote latexinfo-numargs) 2)
  110.  
  111. (put (quote defspecx) (quote latexinfo-numargs) 2)
  112.  
  113. (put (quote defvr) (quote latexinfo-numargs) 2)
  114.  
  115. (put (quote defvrx) (quote latexinfo-numargs) 2)
  116.  
  117. (put (quote defvar) (quote latexinfo-numargs) 1)
  118.  
  119. (put (quote defvarx) (quote latexinfo-numargs) 1)
  120.  
  121. (put (quote defconst) (quote latexinfo-numargs) 1)
  122.  
  123. (put (quote defconstx) (quote latexinfo-numargs) 1)
  124.  
  125. (provide (quote clisp-fmt))
  126.