/[emacs]/emacs/lisp/term.el
ViewVC logotype

Diff of /emacs/lisp/term.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.45 by pj, Sun Jan 13 10:00:54 2002 UTC revision 1.46 by eliz, Sun Feb 3 11:25:23 2002 UTC
# Line 2827  See `term-prompt-regexp'." Line 2827  See `term-prompt-regexp'."
2827                             ((eq char ?\^G)                             ((eq char ?\^G)
2828                              (beep t)) ; Bell                              (beep t)) ; Bell
2829                             ((eq char ?\032)                             ((eq char ?\032)
2830                              (let ((end (string-match "\n" str i)))                              (let ((end (string-match "\r?$" str i)))
2831                                (if end                                (if end
2832                                    (progn (funcall term-command-hook                                    (progn (funcall term-command-hook
2833                                                    (substring str (1+ i) (1- end)))                                                    (substring str (1+ i) end))
2834                                           (setq i end))                                           (setq i (match-end 0)))
2835                                  (setq term-terminal-parameter                                  (setq term-terminal-parameter
2836                                        (substring str i))                                        (substring str i))
2837                                  (setq term-terminal-state 4)                                  (setq term-terminal-state 4)

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26