Enlever caml-emacs-twenty, pas necessaire

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2030 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1998-08-07 10:04:40 +00:00
parent 0759fe4770
commit 7a4b5ce559
1 changed files with 1 additions and 2 deletions

View File

@ -597,7 +597,6 @@ 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
@ -630,7 +629,7 @@ possible."
(string-to-int
(buffer-substring (match-beginning 2) (match-end 2)))))))
(cond (beg
(if caml-emacs-twenty (beginning-of-line))
(beginning-of-line)
(setq beg (+ (point) beg)
end (+ (point) end))
(goto-char beg)