equal
deleted
inserted
replaced
488 ) |
488 ) |
489 |
489 |
490 (ansi-color-for-comint-mode-on) |
490 (ansi-color-for-comint-mode-on) |
491 |
491 |
492 (defun my-ansi-color (&optional beg end) |
492 (defun my-ansi-color (&optional beg end) |
493 "Interpret ANSI color esacape sequence by colorifying cotent." |
493 "Interpret ANSI color esacape sequence by colorifying cotent. |
|
494 Operate on selected region on whole buffer." |
494 (interactive |
495 (interactive |
495 (if (use-region-p) |
496 (if (use-region-p) |
496 (list (region-beginning) (region-end)) |
497 (list (region-beginning) (region-end)) |
497 (list (point-min) (point-max)))) |
498 (list (point-min) (point-max)))) |
498 (ansi-color-apply-on-region beg end)) |
499 (ansi-color-apply-on-region beg end)) |
502 |
503 |
503 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
504 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
504 (message "term") |
505 (message "term") |
505 |
506 |
506 (setq term-buffer-maximum-size (lsh 1 14)) |
507 (setq term-buffer-maximum-size (lsh 1 14)) |
|
508 |
|
509 (setq term-scroll-show-maximum-output t) |
507 |
510 |
508 (my--eval-after-load term |
511 (my--eval-after-load term |
509 (define-key term-mode-map [?\t] #'term-dynamic-complete) |
512 (define-key term-mode-map [?\t] #'term-dynamic-complete) |
510 |
513 |
511 (defun my-term-send-delete-word-forward () (interactive) (term-send-raw-string "\ed")) |
514 (defun my-term-send-delete-word-forward () (interactive) (term-send-raw-string "\ed")) |