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

Don't init prettify-symbols-mode in special modes

Browse source 
Or eshell, term and comint modes.
This commit is contained in:
Henrik Lissner 2018-07-08 13:43:18 +02:00
parent ee91748613
commit 04c66829eb
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
modules/ui/pretty-code/config.el
View file

@ -14,13 +14,15 @@ besides what is listed.")
(setq prettify-symbols-unprettify-at-point 'right-edge) (setq prettify-symbols-unprettify-at-point 'right-edge)
(defun +pretty-code|init-pretty-symbols () (defun +pretty-code|init-pretty-symbols ()
"Enabled `prettify-symbols-mode'. "Enable `prettify-symbols-mode'.
If the current major mode is disabled in `+pretty-code-enabled-modes', this If in fundamental-mode, or a mode derived from special, comint, eshell or term
function does nothing. Otherwise, it sets the value of modes, this function does nothing.
`prettify-code-symbols-alist' according to `+pretty-code-symbols-alist' for the
current major mode." Otherwise it builds `prettify-code-symbols-alist' according to
(unless (eq major-mode 'fundamental-mode) `+pretty-code-symbols-alist' for the current major-mode."
(unless (or (eq major-mode 'fundamental-mode)
(derived-mode-p 'special-mode 'comint-mode 'eshell-mode 'term-mode))
(when (or (eq +pretty-code-enabled-modes t) (when (or (eq +pretty-code-enabled-modes t)
(if (eq (car +pretty-code-enabled-modes) 'not) (if (eq (car +pretty-code-enabled-modes) 'not)
(not (memq major-mode (cdr +pretty-code-enabled-modes))) (not (memq major-mode (cdr +pretty-code-enabled-modes)))