[Emacs-diffs] Changes to emacs/lisp/term.el

[Eli Zaretskii]

Index: emacs/lisp/term.el
diff -c emacs/lisp/term.el:1.45 emacs/lisp/term.el:1.46
*** emacs/lisp/term.el:1.45     Sun Jan 13 05:00:54 2002
--- emacs/lisp/term.el  Sun Feb  3 06:25:23 2002
***************
*** 2827,2837 ****
                           ((eq char ?\^G)
                            (beep t)) ; Bell
                           ((eq char ?\032)
!                           (let ((end (string-match "\n" str i)))
                              (if end
                                  (progn (funcall term-command-hook
!                                                 (substring str (1+ i) (1- 
end)))
!                                        (setq i end))
                                (setq term-terminal-parameter
                                      (substring str i))
                                (setq term-terminal-state 4)
--- 2827,2837 ----
                           ((eq char ?\^G)
                            (beep t)) ; Bell
                           ((eq char ?\032)
!                           (let ((end (string-match "\r?$" str i)))
                              (if end
                                  (progn (funcall term-command-hook
!                                                 (substring str (1+ i) end))
!                                        (setq i (match-end 0)))
                                (setq term-terminal-parameter
                                      (substring str i))
                                (setq term-terminal-state 4)