app-emacs/tty-format/files/50tty-format-gentoo.el


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

(add-to-list 'load-path "@SITELISP@")
(autoload 'ansi-format-encode "tty-format")
(autoload 'ansi-format-decode "tty-format")
(autoload 'backspace-overstrike-encode "tty-format")
(autoload 'backspace-overstrike-decode "tty-format")
(autoload 'tty-format-guess "tty-format")

(add-to-list 'format-alist
	     '(ansi-colors
	       "ANSI SGR escape sequence colours and fonts."
	       nil
	       ansi-format-decode ansi-format-encode t nil))

(add-to-list 'format-alist
	     '(backspace-overstrike
	       "Backspace overstriking for bold and underline."
	       nil
	       backspace-overstrike-decode backspace-overstrike-encode t nil))

(custom-add-option 'find-file-hook 'tty-format-guess)