emacs版本：27.2， spacemacs用的develop分支，试了腾讯源，清华源都找不到which-key包，手动package-install which-key也是找不到
下面是使用–debug-init启动的报错信息：
Debugger entered–Lisp error: (file-error “http://mirrors.cloud.tencent.com/elpa/melpa/which-…” “Not found”)
signal(file-error (“http://mirrors.cloud.tencent.com/elpa/melpa/which-key-20210407.28.el” “Not found”))
package–with-response-buffer-1(“Index of /elpa/melpa/” #f(compiled-function () #<bytecode 0x1562146249e9>) :file “which-key-20210407.28.el” :async nil :error-function #f(compiled-function () #<bytecode 0x15621313b551>) :noerror nil)
package-install-from-archive(#s(package-desc :name which-key :version (20210407 28) :summary “Display available keybindings in popup” :reqs ((emacs (24 4))) :kind single :archive “melpa-cn” :dir nil :extras ((:commit . “5fb30301cb3b4fca5a0e1ce8ec1ef59290b79199”) (:authors (“Justin Burkett” . “[email protected]”)) (:maintainer “Justin Burkett” . “[email protected]”) (:url . “GitHub - justbur/emacs-which-key: Emacs package that displays available keybindings in popup”)) :signed nil))
mapc(package-install-from-archive (#s(package-desc :name which-key :version (20210407 28) :summary “Display available keybindings in popup” :reqs ((emacs (24 4))) :kind single :archive “melpa-cn” :dir nil :extras ((:commit . “5fb30301cb3b4fca5a0e1ce8ec1ef59290b79199”) (:authors (“Justin Burkett” . “[email protected]”)) (:maintainer “Justin Burkett” . “[email protected]”) (:url . “GitHub - justbur/emacs-which-key: Emacs package that displays available keybindings in popup”)) :signed nil)))
package-download-transaction((#s(package-desc :name which-key :version (20210407 28) :summary “Display available keybindings in popup” :reqs ((emacs (24 4))) :kind single :archive “melpa-cn” :dir nil :extras ((:commit . “5fb30301cb3b4fca5a0e1ce8ec1ef59290b79199”) (:authors (“Justin Burkett” . “[email protected]”)) (:maintainer “Justin Burkett” . “[email protected]”) (:url . “GitHub - justbur/emacs-which-key: Emacs package that displays available keybindings in popup”)) :signed nil)))
#f(compiled-function (pkg &optional dont-select) “Install the package PKG.\nPKG can be a package-desc' or a symbol naming one of the\navailable packages in an archive in package-archives’. When\ncalled interactively, prompt for the package name.\n\nMark the installed package as selected by adding it to\npackage-selected-packages'.\n\nWhen called from Lisp and optional argument DONT-SELECT is\nnon-nil, install the package but do not add it to\npackage-selected-packages’.\n\nIf PKG is a package-desc' and it is already installed, don't try\nto install it but still mark it as selected." (interactive #f(compiled-function () #<bytecode 0x15621479e931>)) #<bytecode 0x15621313b639>)(#s(package-desc :name which-key :version (20210407 28) :summary "Display available keybindings in popup" :reqs ((emacs (24 4))) :kind single :archive "melpa-cn" :dir nil :extras ((:commit . "5fb30301cb3b4fca5a0e1ce8ec1ef59290b79199") (:authors ("Justin Burkett" . "[email protected]")) (:maintainer "Justin Burkett" . "[email protected]") (:url . "https://github.com/justbur/emacs-which-key")) :signed nil)) apply(#f(compiled-function (pkg &optional dont-select) "Install the package PKG.\nPKG can be a package-desc’ or a symbol naming one of the\navailable packages in an archive in package-archives'. When\ncalled interactively, prompt for the package name.\n\nMark the installed package as selected by adding it to\npackage-selected-packages’.\n\nWhen called from Lisp and optional argument DONT-SELECT is\nnon-nil, install the package but do not add it to\npackage-selected-packages'.\n\nIf PKG is a package-desc’ and it is already installed, don’t try\nto install it but still mark it as selected.” (interactive #f(compiled-function () #<bytecode 0x1562147a0a59>)) #<bytecode 0x15621313b639>) #s(package-desc :name which-key :version (20210407 28) :summary “Display available keybindings in popup” :reqs ((emacs (24 4))) :kind single :archive “melpa-cn” :dir nil :extras ((:commit . “5fb30301cb3b4fca5a0e1ce8ec1ef59290b79199”) (:authors (“Justin Burkett” . “[email protected]”)) (:maintainer “Justin Burkett” . “[email protected]”) (:url . “GitHub - justbur/emacs-which-key: Emacs package that displays available keybindings in popup”)) :signed nil))
(if (or patched (eq 'org-plus-contrib name)) (if (package-installed-p name) nil (apply func args)) (apply func args))
(let ((name (if (and (memq (type-of pkg) cl-struct-package-desc-tags) t) (progn (or (and (memq … cl-struct-package-desc-tags) t) (signal 'wrong-type-argument (list … pkg))) (aref pkg 1)) pkg))) (if (or patched (eq 'org-plus-contrib name)) (if (package-installed-p name) nil (apply func args)) (apply func args)))
(let* ((pkg (car args)) (patched (cond ((and (symbolp pkg) (eq 'org pkg)) (setcar args ‘org-plus-contrib) t) ((and (and (memq … cl-struct-package-desc-tags) t) (eq ‘org (progn … …))) (progn (or (and … t) (signal … …)) (let* (…) (aset v 1 …))) t) ((and (and (memq … cl-struct-package-desc-tags) t) (assq ‘org (progn … …))) (let* ((v …)) (setcar v ‘org-plus-contrib)) t)))) (let ((name (if (and (memq (type-of pkg) cl-struct-package-desc-tags) t) (progn (or (and … t) (signal … …)) (aref pkg 1)) pkg))) (if (or patched (eq ‘org-plus-contrib name)) (if (package-installed-p name) nil (apply func args)) (apply func args))))
configuration-layer//package-install-org(#f(compiled-function (pkg &optional dont-select) "Install the package PKG.\nPKG can be a package-desc' or a symbol naming one of the\navailable packages in an archive in package-archives’. When\ncalled interactively, prompt for the package name.\n\nMark the installed package as selected by adding it to\npackage-selected-packages'.\n\nWhen called from Lisp and optional argument DONT-SELECT is\nnon-nil, install the package but do not add it to\npackage-selected-packages’.\n\nIf PKG is a package-desc' and it is already installed, don't try\nto install it but still mark it as selected." (interactive #f(compiled-function () #<bytecode 0x1562147afd91>)) #<bytecode 0x15621313b639>) #s(package-desc :name which-key :version (20210407 28) :summary "Display available keybindings in popup" :reqs ((emacs (24 4))) :kind single :archive "melpa-cn" :dir nil :extras ((:commit . "5fb30301cb3b4fca5a0e1ce8ec1ef59290b79199") (:authors ("Justin Burkett" . "[email protected]")) (:maintainer "Justin Burkett" . "[email protected]") (:url . "https://github.com/justbur/emacs-which-key")) :signed nil)) apply(configuration-layer//package-install-org #f(compiled-function (pkg &optional dont-select) "Install the package PKG.\nPKG can be a package-desc’ or a symbol naming one of the\navailable packages in an archive in package-archives'. When\ncalled interactively, prompt for the package name.\n\nMark the installed package as selected by adding it to\npackage-selected-packages’.\n\nWhen called from Lisp and optional argument DONT-SELECT is\nnon-nil, install the package but do not add it to\npackage-selected-packages'.\n\nIf PKG is a package-desc’ and it is already installed, don’t try\nto install it but still mark it as selected." (interactive #f(compiled-function () #<bytecode 0x1562147bc9fd>)) #<bytecode 0x15621313b639>) #s(package-desc :name which-key :version (20210407 28) :summary “Display available keybindings in popup” :reqs ((emacs (24 4))) :kind single :archive “melpa-cn” :dir nil :extras ((:commit . “5fb30301cb3b4fca5a0e1ce8ec1ef59290b79199”) (:authors (“Justin Burkett” . “[email protected]”)) (:maintainer “Justin Burkett” . “[email protected]”) (:url . “GitHub - justbur/emacs-which-key: Emacs package that displays available keybindings in popup”)) :signed nil))
package-install(#s(package-desc :name which-key :version (20210407 28) :summary “Display available keybindings in popup” :reqs ((emacs (24 4))) :kind single :archive “melpa-cn” :dir nil :extras ((:commit . “5fb30301cb3b4fca5a0e1ce8ec1ef59290b79199”) (:authors (“Justin Burkett” . “[email protected]”)) (:maintainer “Justin Burkett” . “[email protected]”) (:url . “GitHub - justbur/emacs-which-key: Emacs package that displays available keybindings in popup”)) :signed nil))
(if pkg-desc (package-install (car (cdr pkg-desc))) (package-install pkg-name))
(let ((pkg-desc (assq pkg-name package-archive-contents))) (let ((–dolist-tail-- (configuration-layer//get-package-deps-from-archive pkg-name)) dep) (while --dolist-tail-- (setq dep (car --dolist-tail–)) (if (package-installed-p (car dep) (car (cdr dep))) (configuration-layer//activate-package (car dep)) (configuration-layer//install-from-elpa (car dep))) (setq --dolist-tail-- (cdr --dolist-tail–)))) (if pkg-desc (package-install (car (cdr pkg-desc))) (package-install pkg-name)))
(if (not (assq pkg-name package-archive-contents)) (spacemacs-buffer/append (format (concat “\nPackage %s is unavailable. " “Is the package name misspelled?\n”) pkg-name)) (let ((pkg-desc (assq pkg-name package-archive-contents))) (let ((–dolist-tail-- (configuration-layer//get-package-deps-from-archive pkg-name)) dep) (while --dolist-tail-- (setq dep (car --dolist-tail–)) (if (package-installed-p (car dep) (car (cdr dep))) (configuration-layer//activate-package (car dep)) (configuration-layer//install-from-elpa (car dep))) (setq --dolist-tail-- (cdr --dolist-tail–)))) (if pkg-desc (package-install (car (cdr pkg-desc))) (package-install pkg-name))))
configuration-layer//install-from-elpa(which-key)
(cond ((or (null pkg) (eq 'elpa location)) (configuration-layer//install-from-elpa pkg-name) (if pkg (progn (cfgl-package-set-property pkg :lazy-install nil)))) ((and (listp location) (eq 'recipe (car location))) (configuration-layer//install-from-recipe pkg) (cfgl-package-set-property pkg :lazy-install nil)) (t (configuration-layer//warning “Cannot install package %S.” pkg-name)))
(condition-case err (cond ((or (null pkg) (eq 'elpa location)) (configuration-layer//install-from-elpa pkg-name) (if pkg (progn (cfgl-package-set-property pkg :lazy-install nil)))) ((and (listp location) (eq 'recipe (car location))) (configuration-layer//install-from-recipe pkg) (cfgl-package-set-property pkg :lazy-install nil)) (t (configuration-layer//warning “Cannot install package %S.” pkg-name))) ((debug quote error) (configuration-layer//error (concat “\nAn error occurred while installing %s " “(error: %s)\n”) pkg-name err) (spacemacs//redisplay)))
(if (package-installed-p pkg-name min-version) nil (condition-case err (cond ((or (null pkg) (eq 'elpa location)) (configuration-layer//install-from-elpa pkg-name) (if pkg (progn (cfgl-package-set-property pkg :lazy-install nil)))) ((and (listp location) (eq 'recipe (car location))) (configuration-layer//install-from-recipe pkg) (cfgl-package-set-property pkg :lazy-install nil)) (t (configuration-layer//warning “Cannot install package %S.” pkg-name))) ((debug quote error) (configuration-layer//error (concat “\nAn error occurred while installing %s " “(error: %s)\n”) pkg-name err) (spacemacs//redisplay))))
(let* ((layer (if pkg (progn (car (eieio-oref pkg ':owners))))) (location (if pkg (progn (eieio-oref pkg ':location)))) (min-version (if pkg (progn (eieio-oref pkg ':min-version))))) (spacemacs-buffer/replace-last-line (format “–> installing %s: %s%s… [%s/%s]” (if layer “package” “dependency”) pkg-name (if layer (format “@%S” layer) “”) installed-count not-inst-count) t) (spacemacs//redisplay) (if (package-installed-p pkg-name min-version) nil (condition-case err (cond ((or (null pkg) (eq 'elpa location)) (configuration-layer//install-from-elpa pkg-name) (if pkg (progn (cfgl-package-set-property pkg :lazy-install nil)))) ((and (listp location) (eq 'recipe (car location))) (configuration-layer//install-from-recipe pkg) (cfgl-package-set-property pkg :lazy-install nil)) (t (configuration-layer//warning “Cannot install package %S.” pkg-name))) ((debug quote error) (configuration-layer//error (concat “\nAn error occurred while installing %s " “(error: %s)\n”) pkg-name err) (spacemacs//redisplay)))))
configuration-layer//install-package(#)
(progn (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))
(if (and pkg (memq (eieio-oref pkg ':step) '(bootstrap pre))) (progn (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg)))
(let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg ':step) '(bootstrap pre))) (progn (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))))
(while --dolist-tail-- (setq pkg-name (car --dolist-tail–)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg ':step) '(bootstrap pre))) (progn (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg)))) (setq --dolist-tail-- (cdr --dolist-tail–)))
(let ((–dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail–)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg ':step) '(bootstrap pre))) (progn (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg)))) (setq --dolist-tail-- (cdr --dolist-tail–))))
(let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format “Found %s new package(s) to install…\n” not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((–dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail–)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg …) '…)) (progn (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg)))) (setq --dolist-tail-- (cdr --dolist-tail–)))) (let ((–dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail–)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq (eieio-oref pkg …) '…)) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail–)))) (spacemacs-buffer/append “\n”) (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup)))
(progn (spacemacs-buffer/set-mode-line “Installing packages…” t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format “Found %s new package(s) to install…\n” not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((–dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail–)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq … …)) (progn (setq installed-count …) (configuration-layer//install-package pkg)))) (setq --dolist-tail-- (cdr --dolist-tail–)))) (let ((–dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail–)) (let ((pkg (configuration-layer/get-package pkg-name))) (if (and pkg (memq … …)) nil (setq installed-count (1+ installed-count)) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail–)))) (spacemacs-buffer/append “\n”) (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup))))
(if upkg-names (progn (spacemacs-buffer/set-mode-line “Installing packages…” t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format “Found %s new package(s) to install…\n” not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((–dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail–)) (let ((pkg …)) (if (and pkg …) (progn … …))) (setq --dolist-tail-- (cdr --dolist-tail–)))) (let ((–dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail–)) (let ((pkg …)) (if (and pkg …) nil (setq installed-count …) (configuration-layer//install-package pkg))) (setq --dolist-tail-- (cdr --dolist-tail–)))) (spacemacs-buffer/append “\n”) (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup)))))
(let* ((upkg-names (configuration-layer//get-uninstalled-packages packages)) (not-inst-count (length upkg-names)) installed-count) (if upkg-names (progn (spacemacs-buffer/set-mode-line “Installing packages…” t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format “Found %s new package(s) to install…\n” not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((–dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail–)) (let (…) (if … …)) (setq --dolist-tail-- (cdr --dolist-tail–)))) (let ((–dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name (car --dolist-tail–)) (let (…) (if … nil … …)) (setq --dolist-tail-- (cdr --dolist-tail–)))) (spacemacs-buffer/append “\n”) (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup))))))
(let ((display-buffer-alist '((”\(\Compile-Log\\)\|\(\Warnings\\)” (display-buffer-in-side-window) (inhibit-same-window . t) (side . bottom) (window-height . 0.2))))) (configuration-layer//configure-quelpa) (let* ((upkg-names (configuration-layer//get-uninstalled-packages packages)) (not-inst-count (length upkg-names)) installed-count) (if upkg-names (progn (spacemacs-buffer/set-mode-line “Installing packages…” t) (let ((delayed-warnings-backup delayed-warnings-list)) (spacemacs-buffer/append (format “Found %s new package(s) to install…\n” not-inst-count)) (configuration-layer/retrieve-package-archives) (setq installed-count 0) (spacemacs//redisplay) (let ((–dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name …) (let … …) (setq --dolist-tail-- …))) (let ((–dolist-tail-- upkg-names) pkg-name) (while --dolist-tail-- (setq pkg-name …) (let … …) (setq --dolist-tail-- …))) (spacemacs-buffer/append “\n”) (if init-file-debug nil (setq delayed-warnings-list delayed-warnings-backup)))))))
configuration-layer//install-packages((ac-ispell ace-jump-helm-line ace-link ace-window aggressive-indent anaconda-mode android-env android-mode async auto-compile auto-complete auto-dictionary auto-highlight-symbol auto-yasnippet avy bind-key bind-map blacken browse-kill-ring cc-mode ccls centered-cursor-mode clang-format clean-aindent-mode column-enforce-mode common-lisp-snippets company company-anaconda company-c-headers company-rtags company-ycmd cpp-auto-include cython-mode dash define-word desktop devdocs diminish dired-quick-sort disaster dotenv-mode drag-stuff dumb-jump easy-kill editorconfig elisp-slime-nav emr esh-help eshell-prompt-extras eshell-z …))
(let ((packages (append (configuration-layer//filter-distant-packages configuration-layer–used-packages t '(not (oref pkg :lazy-install))) (if (eq 'all dotspacemacs-install-packages) (progn (let (all-other-packages) (let … …) (configuration-layer//filter-distant-packages all-other-packages nil))))))) (configuration-layer//install-packages packages) (if (and (or (eq 'used dotspacemacs-install-packages) (eq 'used-only dotspacemacs-install-packages)) (not configuration-layer-force-distribution) (not configuration-layer-exclude-all-layers)) (progn (configuration-layer/delete-orphan-packages packages))))
(progn (let ((packages (append (configuration-layer//filter-distant-packages configuration-layer–used-packages t '(not …)) (if (eq 'all dotspacemacs-install-packages) (progn (let … … …)))))) (configuration-layer//install-packages packages) (if (and (or (eq 'used dotspacemacs-install-packages) (eq 'used-only dotspacemacs-install-packages)) (not configuration-layer-force-distribution) (not configuration-layer-exclude-all-layers)) (progn (configuration-layer/delete-orphan-packages packages)))))
(if spacemacs-sync-packages (progn (let ((packages (append (configuration-layer//filter-distant-packages configuration-layer–used-packages t '…) (if (eq … dotspacemacs-install-packages) (progn …))))) (configuration-layer//install-packages packages) (if (and (or (eq 'used dotspacemacs-install-packages) (eq 'used-only dotspacemacs-install-packages)) (not configuration-layer-force-distribution) (not configuration-layer-exclude-all-layers)) (progn (configuration-layer/delete-orphan-packages packages))))))
configuration-layer//load()
(cond (changed-since-last-dump-p (configuration-layer//load) (if (spacemacs/emacs-with-pdumper-set-p) (progn (configuration-layer/message “Layer list has changed since last dump.”) (configuration-layer//dump-emacs)))) (spacemacs-force-dump (configuration-layer//load) (if (spacemacs/emacs-with-pdumper-set-p) (progn (configuration-layer/message (concat “–force-dump passed on the command line or configu…” “been reloaded, forcing a redump.”)) (configuration-layer//dump-emacs)))) ((spacemacs-is-dumping-p) (configuration-layer//load)) ((and (spacemacs/emacs-with-pdumper-set-p) (spacemacs-run-from-dump-p)) (configuration-layer/message “Running from a dumped file. Skipping the loading p…”)) (t (configuration-layer//load) (if (spacemacs/emacs-with-pdumper-set-p) (progn (configuration-layer/message (concat “Layer list has not changed since last time. " “Skipping dumping process!”))))))
configuration-layer/load()
(let ((file-name-handler-alist nil)) (require 'core-spacemacs) (spacemacs/dump-restore-load-path) (configuration-layer/load-lock-file) (spacemacs/init) (configuration-layer/stable-elpa-init) (configuration-layer/load) (spacemacs-buffer/display-startup-note) (spacemacs/setup-startup-hook) (spacemacs/dump-eval-delayed-functions) (if (and dotspacemacs-enable-server (not (spacemacs-is-dumping-p))) (progn (require 'server) (if dotspacemacs-server-socket-dir (progn (setq server-socket-dir dotspacemacs-server-socket-dir))) (if (server-running-p) nil (message “Starting a server…”) (server-start)))))
(if (not (version<= spacemacs-emacs-min-version emacs-version)) (error (concat “Your version of Emacs (%s) is too old. " “Spacemacs requires Emacs version %s or above.”) emacs-version spacemacs-emacs-min-version) (let ((file-name-handler-alist nil)) (require 'core-spacemacs) (spacemacs/dump-restore-load-path) (configuration-layer/load-lock-file) (spacemacs/init) (configuration-layer/stable-elpa-init) (configuration-layer/load) (spacemacs-buffer/display-startup-note) (spacemacs/setup-startup-hook) (spacemacs/dump-eval-delayed-functions) (if (and dotspacemacs-enable-server (not (spacemacs-is-dumping-p))) (progn (require 'server) (if dotspacemacs-server-socket-dir (progn (setq server-socket-dir dotspacemacs-server-socket-dir))) (if (server-running-p) nil (message “Starting a server…”) (server-start))))))
eval-buffer(#<buffer load> nil “/home/liweigao/.emacs.d/init.el” nil t) ; Reading at buffer position 2531
load-with-code-conversion(”/home/liweigao/.emacs.d/init.el” “/home/liweigao/.emacs.d/init.el” t t)
load(”/home/liweigao/.emacs.d/init” noerror nomessage)
startup–load-user-init-file(#f(compiled-function () #<bytecode 0x156212f61135>) #f(compiled-function () #<bytecode 0x156212f61149>) t)
command-line()
normal-top-level()
试试package-refresh-contents
还是一样的错误
既然是镜像有问题，那你只能换回官方源安装了。
多谢大神指点，换了这个源清空一遍elpa重新下载就可用了
~.emacs.d.cache.rollback\28.0\develop\21-04-13_14.01.43
这个目录中可以找到上个版本！