Highlight non-standard whitespace in file buffers

Prevents whitespace-mode from being enabled in special buffers (like
circe).
This commit is contained in:
Henrik Lissner 2019-02-20 01:28:19 -05:00
parent 8e1010a2ba
commit 6f32ac371b
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395

View File

@ -464,14 +464,13 @@ instead). Meant for `kill-buffer-query-functions'."
e.g. If you indent with spaces by default, tabs will be highlighted. If you
indent with tabs, spaces at BOL are highlighted.
Does nothing if `whitespace-mode' is already active or the current major mode is
derived from `special-mode'."
Does nothing if `whitespace-mode' is already active or the current buffer is
read-only or not file-visiting."
(unless (or (bound-and-true-p global-whitespace-mode)
(bound-and-true-p whitespace-mode)
(eq major-mode 'fundamental-mode)
(eq (get major-mode 'mode-class) 'special)
(derived-mode-p 'special-mode)
buffer-read-only)
buffer-read-only
(null buffer-file-name))
(require 'whitespace)
(set (make-local-variable 'whitespace-style)
(if (bound-and-true-p whitespace-newline-mode)