 
 (package-initialize)
 
-(defvar kotct/packup-marker-char ?x
+(defvar kotct/packup-marker-char ?*
   "In Packup, the current mark character.
 This is what the do-commands look for, and the flag the mark-commands store.")
 

       (lambda ()
         (forward-char 1)
         (delete-char 1)
         (insert kotct/packup-marker-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 a prefix-arg is passed mark ARG times."
  (interactive (list current-prefix-arg t))
  (cond
   ((use-region-p)
