我是 StackOverflow 的新手,我有一个关于一个问题的问题,这个问题几乎是我寻求掌握 Emacs 的唯一让我恼火的事情。
我将我的.emacs
文件配置为将 Emacs 的默认帧大小设置为 70 行和 80 列,如下所示:
(add-to-list 'default-frame-alist '(left . 0))
(add-to-list 'default-frame-alist '(top . 0))
(add-to-list 'default-frame-alist '(height . 70))
(add-to-list 'default-frame-alist '(width . 80))
这在启动 Emacs 时工作正常,问题是当我使用 new-frame
或emacsclient -c
启动新框架时,这些设置没有得到尊重。有没有办法强制emacsclient
和new-frame
在执行.emacs
文件中的设置时读取它们?
编辑:
这是我.emacs
文件:
;;This setting is meant to force emacs to read size settings before make-frame.
(add-hook 'before-make-frame-hook
#'(lambda ()
(add-to-list 'default-frame-alist '(left . 0))
(add-to-list 'default-frame-alist '(top . 0))
(add-to-list 'default-frame-alist '(height . 70))
(add-to-list 'default-frame-alist '(width . 80))))
;;disable annoying welcome screen.
(setq inhibit-splash-screen t)
(setq inferior-lisp-program "/usr/bin/abcl")
(add-to-list 'load-path "/usr/share/emacs/site-lisp/slime/")
(require 'slime)
(slime-setup)
(add-to-list 'auto-mode-alist '("\.lisp$" . lisp-mode))
(add-to-list 'auto-mode-alist '("\.cl$" . lisp-mode))
(add-to-list 'auto-mode-alist '("\.asd$" . lisp-mode))
(require 'slime)
(slime-setup)
(eval-after-load "slime"
'(progn
(setq slime-complete-symbol*-fancy t
slime-complete-symbol-function 'slime-fuzzy-complete-symbol
slime-when-complete-filename-expand t
slime-truncate-lines nil
slime-autodoc-use-multiline-p t)
(slime-setup '(slime-fancy slime-asdf))
(define-key slime-repl-mode-map (kbd "C-c ;")
'slime-insert-balanced-comments)
(define-key slime-repl-mode-map (kbd "C-c M-;")
'slime-remove-balanced-comments)
(define-key slime-mode-map (kbd "C-c ;")
'slime-insert-balanced-comments)
(define-key slime-mode-map (kbd "C-c M-;")
'slime-remove-balanced-comments)
(define-key slime-mode-map (kbd "RET") 'newline-and-indent)
(define-key slime-mode-map (kbd "C-j") 'newline)))
(add-to-list 'default-frame-alist '(left . 0))
(add-to-list 'default-frame-alist '(top . 0))
(add-to-list 'default-frame-alist '(height . 70))
(add-to-list 'default-frame-alist '(width . 80))
(normal-erase-is-backspace-mode 0)
(tool-bar-mode -1) ;;method for disabling changed in 24. can not nil, most negative
(scroll-bar-mode -1)
;;for loading cedet.
(load-file "/usr/share/emacs/site-lisp/cedet/common/cedet.el")
您可以尝试将以下钩子添加到您的 Emacs 启动文件中(通常为 ~/.emacs
),即:
(add-hook 'before-make-frame-hook
#'(lambda ()
(add-to-list 'default-frame-alist '(left . 0))
(add-to-list 'default-frame-alist '(top . 0))
(add-to-list 'default-frame-alist '(height . 70))
(add-to-list 'default-frame-alist '(width . 80))))
或者,如果要重新加载整个.emacs
文件:
(add-hook 'before-make-frame-hook #'(lambda () (load-file "~/.emacs")))
几乎可以肯定的是,前一个钩子更可取,因为重新加载整个.emacs
文件可能不仅不必要且浪费资源,而且还可能导致错误或奇怪的行为(取决于文件的内容)。
详细来说,hooks 是定义命令列表的变量,当 Emacs 会话中发生特定事件时执行这些命令,例如,加载主要编辑模式,或者在这种情况下,创建新帧。有关更多信息,请参阅有关钩子的相关 Emacs 手册页。一般来说,如果您希望每次在 Emacs 中发生特定事件时都执行某个函数,那么将该函数添加到正确的预先存在的钩子中可能是最好的方法。