added a few more TeX thingies

svn: r7933 original commit: 9734462994a6593f2e4a7310c1fef8c5a9bdc357
2007-12-10 02:06:37 +00:00 · 2007-12-10 02:06:37 +00:00 · e1efeb3e7f
commit e1efeb3e7f
parent 4b977e69e0
1 changed files with 7 additions and 1 deletions
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@ -961,7 +961,13 @@
                      ("leftarrow" "\u2190")
                      ("rightarrow" "\u2192")
                      ("Leftarrow" "\u21d0")
-                      ("Rightarrow" "\u21d2"))]
+                      ("Rightarrow" "\u21d2")
+                      ("wedge" "\u2227")
+                      ("vee" "\u2227")
+                      ("circ" "\u2218")
+                      ("models" "\u22a8")
+                      ("vdash" "\u22a2")
+                      ("dashv" "\u22a3"))]
                   [biggest (apply max (map (λ (x) (string-length (car x))) shortcut-table))])
              (λ (text event)
                (let ([pos (send text get-start-position)])