Re: Error in xml.el documentation

["Lennart Borgman (gmail)" <lennart.borgman@gmail.com>]

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)))