[nongnu] elpa/tuareg fa29b4d 4/6: Remove old commented-out code

[ELPA Syncer]

branch: elpa/tuareg
commit fa29b4d2baa4c8f5278088203247713c7d0fbcf2
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Christophe Troestler <christophe.Troestler@umons.ac.be>

    Remove old commented-out code
    
    This does not appear to do anything that modern compilation-mode doesn't.
---
 tuareg.el | 29 -----------------------------
 1 file changed, 29 deletions(-)

diff --git a/tuareg.el b/tuareg.el
index 3bfc9dc..5fcf8ec 100644
--- a/tuareg.el
+++ b/tuareg.el
@@ -3219,35 +3219,6 @@ OCaml uses exclusive end-columns but Emacs wants them to 
be inclusive."
   (push 'ocaml compilation-error-regexp-alist))
 
 
-;; Wrapper around next-error.
-
-;; itz 04-21-96 instead of defining a new function, use defadvice
-;; that way we get our effect even when we do \C-x` in compilation buffer
-
-;; smclaughlin 07-19-11 defadvice is to be avoided.  It makes debugging
-;; much more difficult.  If you really want this behavior, write your
-;; own next-error-function.  In particular, it breaks when omake is
-;; used.
-
-;; (defadvice next-error (after tuareg-next-error activate)
-;;  "Read the extra positional information provided by the OCaml compiler.
-
-;; Puts the point and the mark exactly around the erroneous program
-;; fragment. The erroneous fragment is also temporarily highlighted if
-;; possible."
-;;  (when (eq major-mode 'tuareg-mode)
-;;    (let ((beg nil) (end nil))
-;;      (with-current-buffer compilation-last-buffer
-;;        (save-excursion
-;;          (goto-char (window-point (get-buffer-window (current-buffer) t)))
-;;          (when (looking-at tuareg-error-chars-regexp)
-;;            (setq beg (string-to-number (match-string-no-properties 1))
-;;                  end (string-to-number (match-string-no-properties 2))))))
-;;      (beginning-of-line)
-;;      (when beg
-;;        (setq beg (+ (point) beg) end (+ (point) end))
-;;        (goto-char beg) (push-mark end t t)))))
-
 (autoload 'ocaml-module-alist "caml-help")
 (autoload 'ocaml-visible-modules "caml-help")
 (autoload 'ocaml-module-symbols "caml-help")