From 8d62c2a1871985cdfaff1fc6953d831a175dc710 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Sat, 1 Oct 2016 16:56:38 -0700 Subject: [PATCH] Revert "[Emacs] Remove ansi-term-color-vector stuff" This reverts commit 8f0da57f67f7211da9057df220a3beebf53f4d39. --- dotfiles/emacs.d/README.org | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index f22ea67f..12f9cf7d 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -4085,7 +4085,8 @@ Set the character used to represent spaces to ·, and the character used for tab (defun imalison:after-load-theme (&rest _args) (when (fboundp 'powerline-reset) (powerline-reset)) - (set-face-background 'fringe (face-background 'default))) + (set-face-background 'fringe (face-background 'default)) + (imalison:restore-ansi-term-color-vector)) (when t (if @@ -4094,6 +4095,16 @@ Set the character used to represent spaces to ·, and the character used for tab (imalison:after-load-theme)))) (when (file-exists-p custom-after-file) (load custom-after-file)) + +(defvar imalison:ansi-term-color-vector ansi-term-color-vector) + +(defun imalison:ansi-term-color-vector-broken? () + (--some (or (eq it 'unspecified) (not (symbolp it))) + (append ansi-term-color-vector nil))) + +(defun imalison:restore-ansi-term-color-vector (&optional force) + (when (or force (imalison:ansi-term-color-vector-broken?)) + (setq ansi-term-color-vector imalison:ansi-term-color-vector))) #+END_SRC * Frame Initialization #+BEGIN_SRC emacs-lisp