Re: Error in xml.el documentation

[Lennart Borgman (gmail)]

Jason Rumney wrote:
> Lennart Borgman (gmail) wrote:
> > > This one is correct. The functions mentioned return a list of nodes. 
> > > In the case of xml-parse-region at least, there can be more than one 
> > > node at the top level of the returned list.
> >
> > Thanks, I did not think of that case.
>
> But it seems I was wrong. xml-parse-region throws an error if the region 
> does not contain well-formed XML with a single top-level node. So 
> although the functions all return a list, they all always return a list 
> of one.

Would something like this fit in xml.el:

(defun freemind-get-child (parent path)
  (message "freemind-get-child %s %s" parent path)
  (let* ((childs (cddr parent))
         (step (car path))
         (step-node (if (listp step) (car step) step))
         (step-num  (if (listp step) (cdr step) 1))
         (path-tail (cdr path))
         (path-child (catch 'path-child
                       (dolist (child childs)
                         (when (and (not (stringp child))
                                    (eq step-node (car child)))
                           (when (= 1 step-num)
                             (throw 'path-child child))
                           (setq step-num (1- step-num)))))))
    (if path-tail
        (freemind-get-child path-child path-tail)
      path-child)))