Emacs起動時にSymbol's value as variable is void: qが発生する

Emacsを起動するときにErrorが発生します。内容は以下
Warning (initialization): An error occurred while loading ‘/Users/scrooge/.emacs.d/init.el’:
Symbol's value as variable is void: q

init.el内で検索をかけてもqという値は見つかりませんでした。
また、Emacsでshellを開こうとするときにもSymbol's ~というErrorが発生して開けませんでした。
解決方法を知っていれば教えていただきたいです。
一応init.elの中身を下に載せておきます。

                                  ;(package-initialize)

(defvar prelude-user
(getenv
(if (equal system-type 'windows-nt) "USERNAME" "USER")))

(message "[Prelude] Prelude is powering up... Be patient, Master %s!" prelude-user)

(when (version< emacs-version "25.1")
(error "[Prelude] Prelude requires GNU Emacs 25.1 or newer, but you're running %s" emacs-version))

;; Always load newest byte code
(setq load-prefer-newer t)

;; Define Prelude's directory structure
(defvar prelude-dir (file-name-directory load-file-name)
"The root dir of the Emacs Prelude distribution.")
(defvar prelude-core-dir (expand-file-name "core" prelude-dir)
"The home of Prelude's core functionality.")
(defvar prelude-modules-dir (expand-file-name "modules" prelude-dir)
"This directory houses all of the built-in Prelude modules.")
(defvar prelude-personal-dir (expand-file-name "personal" prelude-dir)
"This directory is for your personal configuration.

Users of Emacs Prelude are encouraged to keep their personal configuration
changes in this directory. All Emacs Lisp files there are loaded automatically
by Prelude.")
(defvar prelude-personal-preload-dir (expand-file-name "preload" prelude-personal-dir)
"This directory is for your personal configuration, that you want loaded before Prelude.")
(defvar prelude-vendor-dir (expand-file-name "vendor" prelude-dir)
"This directory houses packages that are not yet available in ELPA (or MELPA).")
(defvar prelude-savefile-dir (expand-file-name "savefile" user-emacs-directory)
"This folder stores all the automatically generated save/history-files.")
(defvar prelude-modules-file (expand-file-name "prelude-modules.el" prelude-personal-dir)
"This file contains a list of modules that will be loaded by Prelude.")

(unless (file-exists-p prelude-savefile-dir)
(make-directory prelude-savefile-dir))

(defun prelude-add-subfolders-to-load-path (parent-dir)
"Add all level PARENT-DIR subdirs to the `load-path'."
(dolist (f (directory-files parent-dir))
(let ((name (expand-file-name f parent-dir)))
(when (and (file-directory-p name)
(not (string-prefix-p "." f)))
(add-to-list 'load-path name)
(prelude-add-subfolders-to-load-path name)))))

;; add Prelude's directories to Emacs's `load-path'
(add-to-list 'load-path prelude-core-dir)
(add-to-list 'load-path prelude-modules-dir)
(add-to-list 'load-path prelude-vendor-dir)
(prelude-add-subfolders-to-load-path prelude-vendor-dir)

;; reduce the frequency of garbage collection by making it happen on
;; each 50MB of allocated data (the default is on every 0.76MB)
(setq gc-cons-threshold 50000000)

;; warn when opening files bigger than 100MB
(setq large-file-warning-threshold 100000000)

;; preload the personal settings from `prelude-personal-preload-dir'
(when (file-exists-p prelude-personal-preload-dir)
(message "[Prelude] Loading personal configuration files in %s..." prelude-personal-preload-dir)
(mapc 'load (directory-files prelude-personal-preload-dir 't "^[^#.].*el$")))

(message "[Prelude] Loading Prelude's core modules...")

;; load the core stuff
(require 'prelude-packages)
(require 'prelude-custom) ;; Needs to be loaded before core, editor and ui
(require 'prelude-ui)
(require 'prelude-core)
(require 'prelude-mode)
(require 'prelude-editor)
(require 'prelude-global-keybindings)

;; macOS specific settings
(when (eq system-type 'darwin)
(require 'prelude-macos))

;; Linux specific settings
(when (eq system-type 'gnu/linux)
(require 'prelude-linux))

;; WSL specific setting
(when (and (eq system-type 'gnu/linux) (getenv "WSLENV"))
(require 'prelude-wsl))

;; Windows specific settings
(when (eq system-type 'windows-nt)
(require 'prelude-windows))

(message "[Prelude] Loading Prelude's additional modules...")

;; the modules
(if (file-exists-p prelude-modules-file)
(load prelude-modules-file)
(message "[Prelude] Missing personal modules file %s" prelude-modules-file)
(message "[Prelude] Falling back to the bundled example file sample/prelude-modules.el")
(message "[Prelude] You should copy this file to your personal configuration folder and tweak it to your liking")
(load (expand-file-name "sample/prelude-modules.el" user-emacs-directory)))

;; config changes made through the customize UI will be stored here
(setq custom-file (expand-file-name "custom.el" prelude-personal-dir))

;; load the personal settings (this includes `custom-file')
(when (file-exists-p prelude-personal-dir)
(message "[Prelude] Loading personal configuration files in %s..." prelude-personal-dir)
(mapc 'load (delete
prelude-modules-file
(directory-files prelude-personal-dir 't "^[^#.].*\.el$"))))

(message "[Prelude] Prelude is ready to do thy bidding, Master %s!" prelude-user)

;; Patch security vulnerability in Emacs versions older than 25.3
(when (version< emacs-version "25.3")
(with-eval-after-load "enriched"
(defun enriched-decode-display-prop (start end &optional param)
(list start end))))
(define-key company-active-map (kbd "\C-n") 'company-select-next)
(define-key company-active-map (kbd "\C-p") 'company-select-previous)
(define-key company-active-map (kbd "\C-d") 'company-show-doc-buffer)
(define-key company-active-map (kbd "\M-.") 'company-show-location)

(prelude-eval-after-init
;; greet the use with some useful tip
(run-at-time 5 nil 'prelude-tip-of-the-day))

;; 個人的に追加 start
(add-to-list 'load-path (expand-file-name "~/.emacs.d/slime"))
(require 'slime)
(add-hook 'lisp-mode-hook (lambda () (slime-mode t)))
(add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t)))
(setq auto-save-default t)
(setenv "GIT_PAGER" "")
;; Optionally, specify the lisp program you are using. Default is "lisp"
(setq inferior-lisp-program "clisp")

(setq insert-directory-program "gls" dired-use-ls-dired t)
(setq dired-listing-switches "-al --group-directories-first")

(keyboard-translate ?\C-h ?\C-?)

melian

2022/01/19 05:44

emacs --debug-init を実行してみて下さい。エラーの発生している箇所をある程度絞り込めるかもしれません。

itagagaki

2022/01/19 08:16

いくつかrequireがあるので、そっちが原因ということも考えられるかも？

回答1件

ベストアンサー

私はあまり親切ではないので，あくまで参考です。

研究室の先輩か誰かの.emacs.dをコピーして使っているか何かだと思いますが，
これはPreludeという自分で考えなくてもある程度使えるおすすめ設定パッケージです。私は使ったことはなく，今後使う気もありません。

で，このマニュアルを見ると，

インストールはgit cloneしたフォルダを~/.emacs.dにシンボリックリンクか中身をコピー，もしくはgithubのPreludeのところからzipをダウンロードして解凍して~/.emacs.dにリネーム
基本的にinit.elはいじらない
各自の設定は~/.emacs.d/personal/に保存する

という感じで使うようです。

なので~/.emacs.d/init.elの最後の個人設定は，
~/.emacs.d/personal/myinit.el等のファイルを作成してそこに書くといいと思います。

elisp
1;; 個人的に追加 start
2(require 'slime)
3(add-hook 'lisp-mode-hook (lambda () (slime-mode t)))
4(add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t)))
5(setq auto-save-default t)
6(setenv "GIT_PAGER" "")
7;; Optionally, specify the lisp program you are using. Default is "lisp"
8(setq inferior-lisp-program "clisp")
9
10(setq insert-directory-program "gls" dired-use-ls-dired t)
11(setq dired-listing-switches "-al --group-directories-first")
12
13(keyboard-translate ?\C-h ?\C-?)

また，slimeパッケージはmelpaに存在するので，
~/.emacs.d/sample/prelude-pinned-packages.elを~/.emacs.d/personal/preload/の下にコピーして，

elisp
1(setq package-pinned-packages
2      '(
3        (ace-window . "melpa-stable")
4        (alchemist . "melpa-stable")
5		; 中略
6		...
7
8		; 追加
9		(slime . "melpa-stable")
10		))