Ajustement de caml-next-error a` partir des versions 20

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1990 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 2 insertions, 0 deletions

diff --git a/emacs/caml.el b/emacs/caml.el
index 628ca979d..a3edb8974 100644
--- a/emacs/caml.el
+++ b/emacs/caml.el
@@ -597,6 +597,7 @@ from an error message produced by camlc.")
 ;; Wrapper around next-error.
 
 (defvar caml-error-overlay nil)
+(defvar caml-emacs-twenty (string-match "20\." (emacs-version)))
 
 ;;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
@@ -629,6 +630,7 @@ possible."
 		     (string-to-int
 		      (buffer-substring (match-beginning 2) (match-end 2)))))))
        (cond (beg
+              (if caml-emacs-twenty (beginning-of-line))
 	      (setq beg (+ (point) beg)
 		    end (+ (point) end))
 	      (goto-char beg)