        (lambda ()
          (forward-char 1)
          (delete-char 1)
-         (insert kotct/packup-marker-char)))))))
+         (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.

(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."
  (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-next ()
  "Go to the next package in the current packup buffer."
  (interactive)
  (move-beginning-of-line 2)
  (forward-char))

(defun kotct/packup-prev ()
  "Go to the previous package in the current packup buffer."
  (interactive)
  (move-beginning-of-line 0)
  (forward-char))

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