ฉันวิ่งเข้าไปในปัญหาว่าไม่มีอะไรเกิดขึ้นหลังจากที่เพิ่มเข้ามา(package-install 'org) .emacsฉันต้องการติดตั้งเวอร์ชันล่าสุดorg-modeและในตัวorg-modeค่อนข้างเก่า
ฉันขุดซอร์สโค้ดของpackage-installจาก Emacs 25.3.1 ฟังก์ชั่นตรวจสอบตัวเองอยู่แล้วว่ามีการติดตั้งแพ็กเกจหรือไม่และปฏิเสธที่จะติดตั้งหากติดตั้งแพ็กเกจแล้ว ดังนั้นการตรวจสอบ(unless (package-installed-p package) ...)จากคำตอบ10093312จึงไม่ถูกเรียกสำหรับ
(defun package-install (pkg &optional dont-select)
"Install the package PKG.
PKG can be a package-desc or a symbol naming one of the available packages
in an archive in `package-archives'. Interactively, prompt for its name.
If called interactively or if DONT-SELECT nil, add PKG to
`package-selected-packages'.
If PKG is a package-desc and it is already installed, don't try
to install it but still mark it as selected."
(interactive
(progn
;; Initialize the package system to get the list of package
;; symbols for completion.
(unless package--initialized
(package-initialize t))
(unless package-archive-contents
(package-refresh-contents))
(list (intern (completing-read
"Install package: "
(delq nil
(mapcar (lambda (elt)
(unless (package-installed-p (car elt))
(symbol-name (car elt))))
package-archive-contents))
nil t))
nil)))
(add-hook 'post-command-hook #'package-menu--post-refresh)
(let ((name (if (package-desc-p pkg)
(package-desc-name pkg)
pkg)))
(unless (or dont-select (package--user-selected-p name))
(package--save-selected-packages
(cons name package-selected-packages)))
(if-let ((transaction
(if (package-desc-p pkg)
(unless (package-installed-p pkg)
(package-compute-transaction (list pkg)
(package-desc-reqs pkg)))
(package-compute-transaction () (list (list pkg))))))
(package-download-transaction transaction)
(message "`%s' is already installed" name))))
ในตัวorg-modeยังนับว่าติดตั้งแล้วและpackage-installปฏิเสธที่จะติดตั้งเวอร์ชันที่ใหม่กว่าจาก ELPA หลังจากใช้เวลาอ่าน package.el สักพักฉันก็ได้วิธีแก้ไขปัญหาต่อไปนี้
(dolist (package (package-compute-transaction
() (list (list 'python '(0 25 1))
(list 'org '(20171211)))))
;; package-download-transaction may be more suitable here and
;; I don't have time to check it
(package-install package))
เหตุผลที่ใช้งานได้คือpackage-*ฟังก์ชันครอบครัวจัดการอาร์กิวเมนต์ต่างกันขึ้นอยู่กับว่าเป็นสัญลักษณ์หรือpackage-descวัตถุ คุณสามารถระบุข้อมูลเวอร์ชันpackage-installผ่านทางpackage-descออบเจ็กต์เท่านั้น