更改 emacs 文本模式的边距

我发现根据自己的喜好更改 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)))

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

即使您可以使用设置边距set-window-margins，一旦您以任何方式更改窗口，它们就会丢失。更好的解决方案是设置变量left-margin-width and 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)