emacs - 更改 emacs 文本模式的边距

Question

我发现在 emacs 中根据自己的喜好更改页边距而又不会显得很有趣的唯一方法是:

(add-hook 'window-configuration-change-hook
          (lambda ()
            (set-window-margins (car (get-buffer-window-list (current-buffer) nil t)) 24 24)))

我希望仅在文本模式下调用此设置，并在更改为其他模式时更改回来。我有点天真地尝试了这个:

(add-hook 'text-mode-hook
          (lambda ()
            (set-window-margins (car (get-buffer-window-list (current-buffer) nil t)) 24 24)))

但是它不起作用。仅在文本模式下更改缓冲区的边距的正确代码是什么？

Answer 1

尽管您可以使用 set-window-margins 设置边距，但一旦您以任何方式更改窗口，边距就会丢失。更好的解决方案是设置变量 left-margin-width 和 right-margin-width。例如:

(defun my-set-margins ()
  "Set margins in current buffer."
  (setq left-margin-width 24)
  (setq right-margin-width 24))

(add-hook 'text-mode-hook 'my-set-margins)