mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(term-emulate-terminal): Let term-handle-ansi-terminal-messages override

Browse Source 
what Bash says about its current directory.
This commit is contained in:
Eli Zaretskii 2005-12-16 12:16:35 +00:00
parent 2ac7dc5505
commit 59be5828de
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/term.el
View File

@ -2687,13 +2687,17 @@ See `term-prompt-regexp'."
(buffer-undo-list t)
(selected (selected-window))
last-win
handled-ansi-message
(str-length (length str)))
(save-selected-window
;; Let's handle the messages. -mm
(setq str (term-handle-ansi-terminal-messages str))
(setq str-length (length str))
(let* ((newstr (term-handle-ansi-terminal-messages str)))
(if (not (eq str newstr))
(setq handled-ansi-message t
str newstr)))
(setq str-length (length str))
(if (marker-buffer term-pending-delete-marker)
(progn
@ -2849,7 +2853,8 @@ See `term-prompt-regexp'."
((eq char ?\017)) ; Shift In - ignored
((eq char ?\^G) ;; (terminfo: bel)
(beep t))
((eq char ?\032)
((and (eq char ?\032)
(not handled-ansi-message))
(let ((end (string-match "\r?$" str i)))
(if end
(funcall term-command-hook