Emacs:获取新框架和emacsclient -c以使用设置框架大小？

Question

我是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")

Answer 1

您可以尝试将以下挂钩添加到您的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文件可能不仅不必要而且浪费资源,而且还有可能导致错误或奇怪的行为(取决于文件的内容).

为了详细说明,钩是定义发生特定事件时您的Emacs会话,比如,一个主要的编辑模式的负载范围内,或者,在这种情况下,一个新的帧的创造,被执行的命令的列表变量.有关详细信息,请参阅挂钩上的相关Emacs手册页.一般来说,如果您希望每次在Emacs中发生特定事件时执行某些功能,将所述功能添加到正确的预先存在的钩子可能是最好的方法.