
(defun d-toggle-checkpoints ()
  (interactive)
  (if (save-excursion
        (goto-char (point-min))
        (re-search-forward ";;(checkpoint" nil t))
      (d-splat ";;(checkpoint" "(checkpoint")
    (d-splat "(checkpoint" ";;(checkpoint")))

(provide 'd-toggle-checkpoints)
