Làm thế nào để gói tự động quyết định loại bỏ các gói?

Tôi thường xuyên được nhắc nhở khi cập nhật các gói hiện tại của mình để chạy gói tự động, yêu cầu xóa các gói lỗi thời hoặc không cần thiết. Tuy nhiên, nó dường như luôn loại bỏ (cùng với các gói lỗi thời đó) hai gói mà tôi sử dụng (cụ thể là aurora-theme, chủ đề hiện tại của tôi về sự lựa chọn và được chuyển hướng +).

Tôi sợ tôi là một người mới khi nói đến Emacs-Lisp và tôi chỉ tự hỏi liệu có cách nào để tôi có thể dừng gói tự động xóa các gói này không nên tôi không cần phải cài đặt lại chúng.

Nguồn ở đây: https://github.com/emacs-mirror/emacs/blob/master/lisp/emacs-lisp/package.el#L2113 .

Nó xóa tất cả các gói không nằm trong gói được chọn-gói cũng không phụ thuộc.

(defun package-autoremove ()
"Remove packages that are no more needed.
        Packages that are no more needed by other packages in
        `package-selected-packages' and their dependencies
        will be deleted."
(interactive)
;; If `package-selected-packages' is nil, it would make no sense to
;; try to populate it here, because then `package-autoremove' will
;; do absolutely nothing.
(when (or package-selected-packages
            (yes-or-no-p
            (format-message
            "`package-selected-packages' is empty! Really remove ALL packages? ")))
    (let ((removable (package--removable-packages)))
    (if removable
        (when (y-or-n-p
                (format "%s packages will be deleted:\n%s, proceed? "
                        (length removable)
                        (mapconcat #'symbol-name removable ", ")))
            (mapc (lambda (p)
                    (package-delete (cadr (assq p package-alist)) t))
                removable))
        (message "Nothing to autoremove")))))

(defun package--removable-packages ()
  "Return a list of names of packages no longer needed.
These are packages which are neither contained in
`package-selected-packages' nor a dependency of one that is."
  (let ((needed (cl-loop for p in package-selected-packages
                         if (assq p package-alist)
                         ;; `p' and its dependencies are needed.
                         append (cons p (package--get-deps p)))))
    (cl-loop for p in (mapcar #'car package-alist)
             unless (memq p needed)
             collect p)))