 (defun ocaml-info-default-function ()
   "The default way to create an info data base from the value 
 of \\[Info-default-directory-list] and the base name \\[ocaml-info-name] 
-of files to look for."
+of files to look for.
+
+This uses info files produced by ocamldoc."
   (let ((collect) (seen))
     (iter '(lambda (d)
              (if (member d seen) nil

(defun ocaml-info-default-function-old ()
  "The default way to create an info data base from the value 
of \\[Info-default-directory-list] and the base name \\[ocaml-info-name] 
of files to look for."
  (let ((collect) (seen))
    (iter '(lambda (d)
             (if (member d seen) nil


If Module is undefined, it does completion in visible modules. 
Then, if completion fails, it does completion among  all modules 
where identifier is defined."
  (interactive "p")
  (let* ((module-entry (ocaml-qualified-identifier))
         (module)
