2

我正在使用基于 Emacs GNU Emacs 25.1.1 的 Aquamacs 3.3

我的 ~/Library/../Preferences.el 文件包含 melpa 的说明。 

(require 'package)
;; Marmalade
;;(add-to-list 'package-archives '("melpa-stable" . "https://stable.melpa.org/packages/") t)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))

我切换调试错误，所以我可以得到以下消息为什么：

Debugger entered--Lisp error: (error "Archive location https://stable.melpa.org/packages/ is not an absolute file name")
signal(error ("Archive location https://stable.melpa.org/packages/ is not an absolute file name"))
#[128 "\300\301\302\303\"C\"\207" [signal error apply format-message] 6 2502308]("Archive location %s is not an absolute file name" "https://stable.melpa.org/packages/")
apply(#[128 "\300\301\302\303\"C\"\207" [signal error apply format-message] 6 2502308] ("Archive location %s is not an absolute file name" "https://stable.melpa.org/packages/"))
(with-no-warnings (apply ad--addoit-function args))
(setq ad-return-value (with-no-warnings (apply ad--addoit-function args)))
(if aquamacs-ring-bell-on-error-flag (progn (aquamacs-bell) (setq ad-return-value (with-no-warnings (apply ad--addoit-function args)))) (setq ad-return-value (with-no-warnings (apply ad--addoit-function args))))
(let (ad-return-value) (if aquamacs-ring-bell-on-error-flag (progn (aquamacs-bell) (setq ad-return-value (with-no-warnings (apply ad--addoit-function args)))) (setq ad-return-value (with-no-warnings (apply ad--addoit-function args)))) ad-return-value)
ad-Advice-error(#[128 "\300\301\302\303\"C\"\207" [signal error apply format-message] 6 2502308] "Archive location %s is not an absolute file name" "https://stable.melpa.org/packages/")
apply(ad-Advice-error #[128 "\300\301\302\303\"C\"\207" [signal error apply format-message] 6 2502308] ("Archive location %s is not an absolute file name" "https://stable.melpa.org/packages/"))
error("Archive location %s is not an absolute file name" "https://stable.melpa.org/packages/")
(if (file-name-absolute-p (cdr archive)) nil (error "Archive location %s is not an absolute file name" (cdr archive)))
(if http (progn (package-handle-response) (re-search-forward "^$" nil (quote move)) (forward-char) (delete-region (point-min) (point))) (if (file-name-absolute-p (cdr archive)) nil (error "Archive location %s is not an absolute file name" (cdr archive))) (insert-file-contents (expand-file-name file (cdr archive))))
(save-current-buffer (set-buffer buffer) (if http (progn (package-handle-response) (re-search-forward "^$" nil (quote move)) (forward-char) (delete-region (point-min) (point))) (if (file-name-absolute-p (cdr archive)) nil (error "Archive location %s is not an absolute file name" (cdr archive))) (insert-file-contents (expand-file-name file (cdr archive)))) (if (listp (read buffer)) (progn (make-directory dir t) (setq buffer-file-name (expand-file-name file dir)) (let ((version-control (quote never))) (save-buffer)))))
(prog1 (save-current-buffer (set-buffer buffer) (if http (progn (package-handle-response) (re-search-forward "^$" nil (quote move)) (forward-char) (delete-region (point-min) (point))) (if (file-name-absolute-p (cdr archive)) nil (error "Archive location %s is not an absolute file name" (cdr archive))) (insert-file-contents (expand-file-name file (cdr archive)))) (if (listp (read buffer)) (progn (make-directory dir t) (setq buffer-file-name (expand-file-name file dir)) (let ((version-control (quote never))) (save-buffer))))) (kill-buffer buffer))
(let* ((http (string-match "\\`http:" (cdr archive))) (buffer (if http (url-retrieve-synchronously (concat (cdr archive) file)) (generate-new-buffer "*package work buffer*")))) (prog1 (save-current-buffer (set-buffer buffer) (if http (progn (package-handle-response) (re-search-forward "^$" nil (quote move)) (forward-char) (delete-region (point-min) (point))) (if (file-name-absolute-p (cdr archive)) nil (error "Archive location %s is not an absolute file name" (cdr archive))) (insert-file-contents (expand-file-name file (cdr archive)))) (if (listp (read buffer)) (progn (make-directory dir t) (setq buffer-file-name (expand-file-name file dir)) (let ((version-control ...)) (save-buffer))))) (kill-buffer buffer)))
(let* ((dir (expand-file-name "archives" package-user-dir)) (dir (expand-file-name (car archive) dir))) (let* ((http (string-match "\\`http:" (cdr archive))) (buffer (if http (url-retrieve-synchronously (concat (cdr archive) file)) (generate-new-buffer "*package work buffer*")))) (prog1 (save-current-buffer (set-buffer buffer) (if http (progn (package-handle-response) (re-search-forward "^$" nil (quote move)) (forward-char) (delete-region (point-min) (point))) (if (file-name-absolute-p (cdr archive)) nil (error "Archive location %s is not an absolute file name" (cdr archive))) (insert-file-contents (expand-file-name file (cdr archive)))) (if (listp (read buffer)) (progn (make-directory dir t) (setq buffer-file-name (expand-file-name file dir)) (let (...) (save-buffer))))) (kill-buffer buffer))))
package--download-one-archive(("melpa-stable" . "https://stable.melpa.org/packages/") "archive-contents")
(condition-case nil (package--download-one-archive archive "archive-contents") ((debug error) (message "Failed to download `%s' archive." (car archive))))
(while --dolist-tail-- (setq archive (car --dolist-tail--)) (condition-case nil (package--download-one-archive archive "archive-contents") ((debug error) (message "Failed to download `%s' archive." (car archive)))) (setq --dolist-tail-- (cdr --dolist-tail--)))
(let ((--dolist-tail-- package-archives) archive) (while --dolist-tail-- (setq archive (car --dolist-tail--)) (condition-case nil (package--download-one-archive archive "archive-contents") ((debug error) (message "Failed to download `%s' archive." (car archive)))) (setq --dolist-tail-- (cdr --dolist-tail--))))
package-refresh-contents()
package-list-packages()
funcall-interactively(package-list-packages)
call-interactively(package-list-packages record nil)
command-execute(package-list-packages record)
execute-extended-command(nil "package-list-packages" "package-li")
funcall-interactively(execute-extended-command nil "package-list-packages" "package-li")
call-interactively(execute-extended-command nil nil)
command-execute(execute-extended-command)

我认为带有斜杠的消息中的位置（所以不会让我在这里输入）是绝对足够的。

遇到类似情况的其他人有 1) melpa 站点已关闭或正在重建。我的 emacs 纯文本版本可以很好地下载 melpa。它仰望我。2）运行 Emacs 24。我在 25。

这是什么原因造成的？我该如何解决？

4

2 回答 2

1

看起来您仍在尝试访问 melpa-stable，但您的 init 表明您正在尝试连接到 melpa。该回溯中有一些已编译的字节码。你不会碰巧有你的初始化文件的字节码（编译）版本吗？

除此之外，当 Emacs 没有使用 gnuTLS 支持构建时（因此不能执行 https），我看到过类似这样的奇怪错误消息。

于 2017-02-26T07:58:26.203 回答
1

Looks like Aquamacs and normal emacs are fighting. I've found some oddness in ~/Library/Preferences/Aquamacs Emacs/customizations.el

I think that's the lead I needed.

于 2019-01-25T03:40:59.490 回答