在 Emacs 中；
有没有办法让两者window-display-table同时buffer-display-table发挥作用呢？
原因是我正在使用漂亮控制-L（从Emacs 好东西 El脚本包）和空白（whitespace.el我认为它位于基本 Emacs 发行版中，但我不确定）。
- 漂亮控制-L通过在本地窗口中
^L设置 的条目，以自定义方式可视化换页 ( )C-lwindow-display-table。 - 空白通过在本地缓冲区中设置条目来可视化空格、制表符和换行符
buffer-display-table。 （也可以通过使用font-lock功能）。
这些使用冲突（或者更确切地说，使用 awindow-display-table和buffer-display-table冲突），因为如果window-display-table不是，nil它会完全覆盖buffer-display-table该窗口中显示的任何缓冲区的任何内容。
引用自Emacs Lisp手动的：
38.21.2 活动显示表
每个窗口都可以指定一个显示表，每个缓冲区也可以。当缓冲区B在窗口W中显示时，如果窗口W有显示表，则display使用窗口W的显示表；否则, 缓冲区 B 的显示表（如果有的话）；否则，标准显示表（如果有）。所选的显示表称为“活动”显示表。
[...]
（我强调的）
那么，有没有什么简单的方法可以巩固这一点呢？或者是重新编码其中一个以使用与另一个相同的机制的唯一方法？
我一直在考虑编写一个与空白可视化兼容的换页可视化的小型（即更小）原始变体，该变体仅使用一些缓冲区加载钩子（或其他钩子）将硬编码条目^L放入buffer-display-table。但我想知道是否有更简单的替代方案。
编辑：为了澄清这个问题，这里摘录了带注释的“Interactive Lisp”会话（即来自 -buffer *scratch*）。这显示了命令及其输出，并用效果进行了注释：
;; Emacs is started with `-q', to not load my init-file(s).
;; First, write some sample text with tabs and line-feeds:
"A tab: and some text
A line-feed:and some text"
;; Make sure that it is a tab on the first line (input by `C-q TAB')
;; and a line-feed on the second line (input by `C-q C-l').
;; These probably won't copy properly into Stack Exchange.
;; This shows the spaces as center-dots, tabs as `>>'-glyphs and
;; new-lines as $'s (or perhaps other glyphs, depending on system
;; setup...). All of them fontified to be dimmed out on yellow/beige/white
;; background.
(whitespace-mode t)
t
;; This turns on pretty-control-l mode. The `^L' above will be
;; prettified... Since this sets the window display table, the glyphs
;; for the spaces/tabs/new-lines will disappear, but the background of
;; spaces/tabs will still be yellow/beige (since that's done with
;; fontification, not display tables).
(pretty-control-l-mode t)
t
;; This turns pretty-control-l mode OFF again. The form-feed will
;; revert to displaying as `^L'. However, the glyphs for the
;; spaces/tabs/new-lines will not re-appear, since this only removes
;; the `C-l'-entry in the window-display-list, not the entire list.
(pretty-control-l-mode 0)
nil
;; Nil the window-display-table, to verify that is the culprit. This
;; will re-enable the glyphs defined by whitespace-mode (since they
;; are still in the buffer display-table).
(set-window-display-table nil nil)
nil
;; To round of; this is my Emacs-version:
(emacs-version)
"GNU Emacs 23.4.1 (i686-pc-linux-gnu, GTK+ Version 2.24.12)
of 2012-09-22 on akateko, modified by Debian"
;;End.
答案1
抱歉给您带来麻烦。按照您的食谱，我没有看到您报告的问题。也许描述不完整？我可以同时打开pretty-control-l-mode和whitespace-mode，并且我看到的每个行为似乎都很正常。也许您使用了一些自定义设置whitespace-style或其他什么？
无论如何，如果您对 进行这样的更改，也许会有所帮助pretty-control-l-mode。如果是这样，请告诉我，我会将其应用到pp-c-l.el。 （要进行测试，请将新选项设置为nil。）
(defcustom pp^L-use-window-display-table-flag t
"Non-nil: use `window-display-table'; nil: use `buffer-display-table`."
:type 'boolean :group 'Pretty-Control-L)
(define-minor-mode pretty-control-l-mode
"Toggle pretty display of Control-l (`^L') characters.
With ARG, turn pretty display of `^L' on if and only if ARG is positive."
:init-value nil :global t :group 'Pretty-Control-L
(if pretty-control-l-mode
(add-hook 'window-configuration-change-hook 'refresh-pretty-control-l)
(remove-hook 'window-configuration-change-hook 'refresh-pretty-control-l))
(walk-windows
(lambda (window)
(let ((display-table (if pp^L-use-window-display-table-flag ; <=========
(or (window-display-table window)
(make-display-table))
(if buffer-display-table
(copy-sequence buffer-display-table)
(make-display-table)))))
(aset display-table ?\014 (and pretty-control-l-mode
(pp^L-^L-display-table-entry window)))
(if pp^L-use-window-display-table-flag ; <=========
(set-window-display-table window display-table)
(setq buffer-display-table display-table))))
'no-minibuf
'visible))
更新以添加评论线程，以防评论在某个时候被删除：
顺便说一句，我想知道文档中描述的显示表的层次结构是否不应该使用某种继承来应用。对于一个级别（例如窗口）来说，完全遮蔽较低级别（例如缓冲区）似乎有点原始。您可以考虑向 Mx report-emacs-bug 发送有关此问题的问题。 – 德鲁 2014 年 9 月 24 日 16:36
平？您能否告诉我上述更改是否有帮助？谢谢。 – 德鲁 2014-10-14 18:12
我刚刚读了这个答案（我有一段时间没有接触过互联网的这一部分......）。当我有时间的时候，也许几天左右，我会检查一下。稍后我会酌情回复“答案已批准”（如果有效）或评论（否则）。 – Johan E 2014-10-25 22:32
我编辑了这个问题，添加了一个更具体的方法来显示问题。我很感兴趣你是否能得到相同的结果。 --- 另外，有没有一种方法可以用用户提供的文件来隐藏系统安装的 .el 文件（我实际上只是一个“用户”，而不是 lisp 程序员......）？我真的不想弄乱 deb-packages 安装的文件。 （这就是为什么我在测试你的答案之前做了问题食谱......） – Johan E 2014-10-27 1:02
在我写完最后一条评论五秒钟后，我意识到我可以将代码粘贴到划痕然后 Cj 运行它进行测试。 （无需编辑任何文件。） 结果：它很有魅力！谢谢你！ （=> 答案已接受）但是，我仍然想知道您是否从我的问题配方中得到与我相同的结果（在修补代码之前）。 – Johan E 2014 年 10 月 27 日 1:09
我刚刚遵循了你的新食谱，我看到了你描述的一切（如此清晰）。然后我读到了你刚刚添加的新评论。很高兴知道一切正常。感谢您的反馈。 – 德鲁 2014-10-27 1:12