package-autoremove는 제거 할 패키지를 어떻게 결정합니까?

구식이거나 불필요한 패키지를 제거한다고 주장하는 package-autoremove를 실행하기 위해 현재 패키지를 업데이트 할 때 자주 메시지가 표시됩니다. 그러나 그것은 항상 (오래된 패키지와 함께) 내가 사용하는 두 가지 패키지 (즉, 오로라 테마, 현재 선택한 테마 및 dired +)를 제거하는 것으로 보입니다.

Emacs-Lisp와 관련하여 초보자가 된 것이 두렵습니다.이 패키지를 삭제하여 패키지 자동 삭제를 중지 할 수있는 방법이 있는지 궁금해서 계속 다시 설치할 필요가 없습니다.

출처는 https://github.com/emacs-mirror/emacs/blob/master/lisp/emacs-lisp/package.el#L2113 입니다.

패키지 선택 패키지에 없거나 종속성이없는 모든 패키지를 삭제합니다.

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