                (lambda (scope)
                  (list (concat (car syntax) type scope "def") (cdr syntax) t))
                '("" "g")))
-            '(("" . TeX-arg-macro) ("cs" . "csname")))
-           '("num" "dim" "glue" "mu")))))
+            '(("" . TeX-arg-macro) ("cs" . "csname")))))
+        '("num" "dim" "glue" "mu")))
       '(("expandonce" TeX-arg-macro)
         ("csexpandonce" "csname"))
       (apply

        ("ifpatchable*" TeX-arg-macro "true" "false"))
      (mapcar
       (lambda (position)
         (list (concat position "tocmd") TeX-arg-macro "success" "failure"))
       '("app" "pre"))
      '("tracingpatches")
      (apply

               (list
                (concat "if" (car syntax) (car temp))
                (cdr syntax)
                (eval (cdr temp)) "true" "false"))
             '(("def" . TeX-arg-macro) ("cs" . "csname")))))
        '("macro" "param" "prefix" "protected" "ltxprotect" "empty" "void"
          ("equal" (lambda () (cdr syntax))) ("string" (lambda () "string")))))
      '(("ifstrequal" "string-1" "string-2" "true" "false")
        ("ifstrempty" "true" "false")
        ("ifblank" "true" "false")
