我正在使用基于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/"))
我toggle-debug-on-error所以我可以得到以下消息：
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)
我认为消息中的位置（SO不会让我在这里输入）和尾部斜杠是绝对的。
遇到类似事情的其他人有 1）melpa网站倒塌或重建。我的纯文本版emacs下载melpa就好了。它看起来像我。 2）运行Emacs 24.我已经25岁了。
造成这种情况的原因是什么？我该如何解决？
答案 0 :(得分：0)
看起来您仍在尝试访问melpa-stable，但您的init表示您正在尝试连接到melpa。在该回溯中有一些编译的字节码。你没有碰巧有你的init文件的字节码（编译）版本吗？
除此之外，当Emacs没有使用gnuTLS支持构建（因此无法执行https）时，我看到了类似的奇怪错误消息。
答案 1 :(得分：0)
像Aquamacs和普通的emacs这样的系统正在战斗。我在〜/ Library / Preferences / Aquamacs Emacs / customizations.el
中发现了一些奇怪之处我认为这就是我需要的线索。