[nongnu] externals/caml a5cc236 014/197: Ajustement de caml-next-error a` partir des versions 20

[Stefan Monnier]

branch: externals/caml
commit a5cc2360a348c89a1c74e3e2bab2d5605de55efa
Author: Didier Rémy <Didier.Remy@inria.fr>
Commit: Didier Rémy <Didier.Remy@inria.fr>

    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
---
 caml.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/caml.el b/caml.el
index 628ca97..a3edb89 100644
--- a/caml.el
+++ b/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)