 
 (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.")
 

        (progn
          (kill-buffer buffer)
          (message "Nothing to update!"))
      (pop-to-buffer-same-window buffer))))

;;;###autoload

    (define-key map "u" #'kotct/packup-unmark)
    (define-key map "U" #'kotct/packup-unmark-all)
    (define-key map "x" #'kotct/packup-do-update)
    (define-key map "n" #'kotct/packup-next)
    (define-key map "p" #'kotct/packup-prev)
    (define-key map "g" #'kotct/packup-refresh)
    (define-key map "?" #'kotct/packup-help)
    (define-key map "q" #'quit-window)
    map)
  "The keymap for packup-mode.")

