Revert "[Emacs] Remove ansi-term-color-vector stuff"

This reverts commit 8f0da57f67.
This commit is contained in:
Ivan Malison 2016-10-01 16:56:38 -07:00
parent 073c3dbb8a
commit 8d62c2a187
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -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) (defun imalison:after-load-theme (&rest _args)
(when (fboundp 'powerline-reset) (when (fboundp 'powerline-reset)
(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 (when t
(if (if
@ -4094,6 +4095,16 @@ Set the character used to represent spaces to ·, and the character used for tab
(imalison:after-load-theme)))) (imalison:after-load-theme))))
(when (file-exists-p custom-after-file) (load custom-after-file)) (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 #+END_SRC
* Frame Initialization * Frame Initialization
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp