;;; toggle-compilation-parse-errors-function.el
;;;
;;; Copyright (C) 2003, 2004, 2007, 2008 Thien-Thi Nguyen
;;;
;;; This file is part of ttn's personal elisp library, released under
;;; the terms of the GNU General Public License as published by the
;;; Free Software Foundation; either version 3, or (at your option) any
;;; later version.  There is NO WARRANTY.  See file COPYING for details.

;;; Description: Toggle value of `compilation-parse-errors-function'.

;;;###autoload
(defun toggle-compilation-parse-errors-function ()
  (interactive)
  (let ((normalp (eq 'compilation-parse-errors
                     compilation-parse-errors-function)))
    (setq compilation-parse-errors-function
          (if normalp
              (lambda (limit-search find-at-least)
                (setq compilation-error-list nil))
            'compilation-parse-errors))
    (message "compilation-parse-errors-function now set to: %s"
             (if normalp "nop-lambda" "normal value"))))

(provide 'toggle-compilation-parse-errors-function)

;;; toggle-compilation-parse-errors-function.el ends here