[Emacs] Remove ansi-term-color-vector stuff
This commit is contained in:
parent
7a0f96ef70
commit
8f0da57f67
@ -4042,8 +4042,7 @@ 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
|
||||||
@ -4052,16 +4051,6 @@ 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
|
||||||
|
Loading…
Reference in New Issue
Block a user