branch: externals/caml
commit a5cc2360a348c89a1c74e3e2bab2d5605de55efa
Author: Didier Rémy <[email protected]>
Commit: Didier Rémy <[email protected]>
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)
