diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-30 14:03:43 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-30 14:03:43 +0200 |
| commit | 2ece0f8d3c741bf27c6e035c5fcd2d60f164ab51 (patch) | |
| tree | 0a20cb72058232b40268404e95036dcededba4dd /lisp/comint.el | |
| parent | 920aaef9d95c7b6ac3cbb31f5d2217b620872cab (diff) | |
| download | emacs-2ece0f8d3c741bf27c6e035c5fcd2d60f164ab51.tar.gz emacs-2ece0f8d3c741bf27c6e035c5fcd2d60f164ab51.tar.bz2 emacs-2ece0f8d3c741bf27c6e035c5fcd2d60f164ab51.zip | |
Allow shell PROMPT strings to have ANSI codes
* lisp/comint.el (comint-output-filter): Don't overwrite ANSI
codes from the prompt command (bug#11883).
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 78012616215..40f58f2da7b 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -2157,9 +2157,9 @@ Make backspaces delete the previous character." 'comint-highlight-prompt)) (setq comint-last-prompt (cons (copy-marker prompt-start) (point-marker))) - (font-lock-prepend-text-property prompt-start (point) - 'font-lock-face - 'comint-highlight-prompt) + (font-lock-append-text-property prompt-start (point) + 'font-lock-face + 'comint-highlight-prompt) (add-text-properties prompt-start (point) `(rear-nonsticky ,comint--prompt-rear-nonsticky))) |