bug#1518: `rx' making nested `or' forms in a `group' wrong

[martin rudalics]

> This one is wrong:
>
> (rx (seq (group "foo" (or (or "asdf" "lkjh") "zab")) "bar"))
> =>
> "\\(foo\\(?:asdf\\|lkjh\\)\\|zab\\)bar"

Just a wild guess - could you try with the following version of
rx-submatch?  I don't have the slightest idea how this is supposed to
work :-(

martin


(defun rx-submatch (form)
  "Parse and produce code from FORM, which is `(submatch ...)'."
  (rx-check form)
  (concat "\\("
          (if (and (listp (cdr form)) (listp (cadr form)))
              (mapconcat #'rx-form (cdr form) nil)
            (rx-group-if
             (mapconcat (lambda (x) (rx-form x ':)) (cdr form) nil)
             (and (memq rx-parent '(* t)) rx-parent)))
          "\\)"))