[Aimmath-commit] AIM/WEB-INF/maple/aim LaTeX.mpl,1.4,1.5

[<mo...@us...>]

Update of /cvsroot/aimmath/AIM/WEB-INF/maple/aim
In directory sc8-pr-cvs1:/tmp/cvs-serv14699

Modified Files:
	LaTeX.mpl 
Log Message:
restored the previous code for `latex/latex/symbol` to fix the bug that was created when it was removed which ln to format in itialics

Index: LaTeX.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/aim/LaTeX.mpl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** LaTeX.mpl	1 Sep 2003 05:55:59 -0000	1.4
--- LaTeX.mpl	1 Sep 2003 16:34:42 -0000	1.5
***************
*** 50,53 ****
--- 50,76 ----
  # KM
  `Package/Assign`(
+  `latex/latex/symbol`,
+  "",
+  proc(QQ)
+  local texlist, s,n,`{`, `}`, `\\_`;
+  option system, remember;
+   if assigned(`latex/special_names`[cat(``,QQ)]) then
+    texlist := `latex/special_names`[cat(``,QQ)]
+   elif member(QQ, eval(`latex/greek`, 1)) then
+    texlist := `latex/latex/copy`(cat(`\\`,QQ))
+   else
+    texlist := `latex/latex/copy`(QQ);
+    s := convert(texlist,string);
+    if s <> "" and substring(s,1..1) = "&" then
+     s := substring(s,2..-1);
+     n := convert(s,name);
+     texlist := `latex/latex/copy`(n);
+    fi;
+   fi;
+   RETURN(texlist);
+  end
+ ):
+ 
+ `Package/Assign`(
   `latex/latex/**`,
   "This function overrides the default Maple routine for