emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Highlight non-standard whitespace in file buffers

Browse source 
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
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
core/core-ui.el
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 e.g. If you indent with spaces by default, tabs will be highlighted. If you
indent with tabs, spaces at BOL are highlighted. indent with tabs, spaces at BOL are highlighted.
Does nothing if `whitespace-mode' is already active or the current major mode is Does nothing if `whitespace-mode' is already active or the current buffer is
derived from `special-mode'." read-only or not file-visiting."
(unless (or (bound-and-true-p global-whitespace-mode) (unless (or (bound-and-true-p global-whitespace-mode)
(bound-and-true-p whitespace-mode) (bound-and-true-p whitespace-mode)
(eq major-mode 'fundamental-mode) (eq major-mode 'fundamental-mode)
(eq (get major-mode 'mode-class) 'special) buffer-read-only
(derived-mode-p 'special-mode) (null buffer-file-name))
buffer-read-only)
(require 'whitespace) (require 'whitespace)
(set (make-local-variable 'whitespace-style) (set (make-local-variable 'whitespace-style)
(if (bound-and-true-p whitespace-newline-mode) (if (bound-and-true-p whitespace-newline-mode)