Index: emacs/caml.el
===================================================================
RCS file: /net/yquem/devel/caml/repository/csl/emacs/caml.el,v
retrieving revision 1.40
diff -c -r1.40 caml.el
*** emacs/caml.el	16 May 2007 08:21:40 -0000	1.40
--- emacs/caml.el	4 Dec 2007 13:31:48 -0000
***************
*** 809,814 ****
--- 809,815 ----
  ;; Wrapper around next-error.
  
  (defvar caml-error-overlay nil)
+ (defvar caml-next-error-skip-warnings-flag nil)
  
  ;;itz 04-21-96 somebody didn't get the documetation for next-error
  ;;right. When the optional argument is a number n, it should move
***************
*** 825,831 ****
  possible."
  
   (if (eq major-mode 'caml-mode)
!      (let (bol beg end)
         (save-excursion
           (set-buffer
            (if (boundp 'compilation-last-buffer)
--- 826,832 ----
  possible."
  
   (if (eq major-mode 'caml-mode)
!      (let (skip bol beg end)
         (save-excursion
           (set-buffer
            (if (boundp 'compilation-last-buffer)
***************
*** 839,846 ****
                        (buffer-substring (match-beginning 1) (match-end 1)))
                       end
                       (string-to-int
!                       (buffer-substring (match-beginning 2) (match-end 2)))))))
!        (cond (beg
                (setq end (- end beg))
                (beginning-of-line)
                (forward-byte beg)
--- 840,854 ----
                        (buffer-substring (match-beginning 1) (match-end 1)))
                       end
                       (string-to-int
!                       (buffer-substring (match-beginning 2) (match-end 2)))))
!            (next-line)
!            (beginning-of-line)
!            (if (and (looking-at "Warning")
!                     caml-next-error-skip-warnings-flag)
!                (setq skip 't))))
!        (cond
!         (skip (next-error))
!         (beg
                (setq end (- end beg))
                (beginning-of-line)
                (forward-byte beg)
***************
*** 860,865 ****
--- 868,881 ----
                             (sit-for 60))
                         (delete-overlay caml-error-overlay)))))))))
  
+ (defun caml-next-error-skip-warnings (&rest args)
+   (let ((old-flag caml-next-error-skip-warnings-flag))
+     (unwind-protect
+         (progn (setq caml-next-error-skip-warnings-flag 't)
+                (apply 'next-error args))
+       (setq caml-next-error-skip-warnings-flag old-flag))))
+     
+ 
  ;; Usual match-string doesn't work properly with font-lock-mode
  ;; on some emacs.