`可变间距`org模式,固定间距表格?

看看这样行不行,

(set-face-attribute 'org-table nil :inherit 'fixed-pitch)

你可以用 C-u和C-x= 看哪一张脸在某一点上起作用。

这段代码将使表格和ascii艺术和源代码块以单空间字体显示,同时保留表格的其他字体属性(如蓝色)等。代码是基于另一个答案,唯一的区别是保存。

(defun my-adjoin-to-list-or-symbol (element list-or-symbol)
  (let ((list (if (not (listp list-or-symbol))
                  (list list-or-symbol)
                list-or-symbol)))
    (require 'cl-lib)
    (cl-adjoin element list)))

(eval-after-load "org"
  '(mapc
    (lambda (face)
      (set-face-attribute
       face nil
       :inherit
       (my-adjoin-to-list-or-symbol
        'fixed-pitch
        (face-attribute face :inherit))))
    (list 'org-code 'org-block 'org-table 'org-block-background)))

如果你想了解它是如何工作的,以及如何将它应用于其他情况(如信息模式),请阅读 my post on the subject