 
 
 (defun kotct/packup-unmark-all ()
-    (interactive)
-    (save-excursion
-      (let ((kotct/packup-marker-char ?\040))
-        (kotct/packup-mark-packages-in-region (point-min) (point-max)))))
+  (interactive)
+  (save-excursion
+    (let ((kotct/packup-marker-char ?\040))
+      (kotct/packup-mark-packages-in-region (point-min) (point-max)))))
 
 (defun kotct/packup-initialize-buffer-contents ()
   (let ((inhibit-read-only t))

    (kotct/packup-initialize-buffer)
    (if (= (point-min) (point-max))
        (progn
         (kill-buffer buffer)
         (message "Nothing to update!"))
      (pop-to-buffer-same-window buffer))))

;;;###autoload

  (let ((inhibit-read-only t))
    (if (> start end)
        (error "start > end"))
    ;; assume we are at beginning of line
    (goto-char start)
    (while (< (point) end)
      (forward-char 1)
      (delete-char 1)
      (insert kotct/packup-marker-char)
      (forward-line 1))))

(defun kotct/packup-repeat-over-lines (arg function)
  "Helper function for iterating over lines ARG times, and applying FUNCTION on each line."
  (while (and (> arg 0) (not (eobp)))
    (setf arg (1- arg))
    (beginning-of-line)
    (save-excursion (funcall function))
    (forward-line)))
