 (defun kotct/packup-mark (arg &optional interactive)
   "Mark the package for update at point in the Packup buffer.
 If a region is selected, mark all the packages in the region.
-If an prefix-arg is passed mark ARG times."
+If a prefix-arg is passed mark ARG times."
   (interactive (list current-prefix-arg t))
   (cond
    ((use-region-p)

  (save-excursion
    (let ((kotct/packup-marker-char ?\040))
      (kotct/packup-mark-packages-in-region (point-min) (point-max)))))

(defun kotct/packup-initialize-buffer-contents ()
  "Initialize contents of the current packup buffer.

       (lambda ()
         (forward-char 1)
         (delete-char 1)
         (insert kotct/packup-marker-char)))
      (forward-char)))))

(defun kotct/packup-unmark (arg &optional interactive)
  "Unmark the package for update at point in the Packup buffer.
