/[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.41.4.2 by eliz, Sun Feb 3 11:40:06 2002 UTC revision 1.41.4.3 by eliz, Tue Apr 16 18:47:41 2002 UTC
# Line 2830  See `term-prompt-regexp'." Line 2830  See `term-prompt-regexp'."
2830                             ((eq char ?\^G)                             ((eq char ?\^G)
2831                              (beep t)) ; Bell                              (beep t)) ; Bell
2832                             ((eq char ?\032)                             ((eq char ?\032)
2833                              (let ((end (string-match "\r?$" str i)))                              (let ((end (string-match "\r?\n" str i)))
2834                                (if end                                (if end
2835                                    (progn (funcall term-command-hook                                    (funcall term-command-hook
2836                                                    (substring str (1+ i) end))                                             (prog1 (substring str (1+ i) end)
2837                                           (setq i (match-end 0)))                                               (setq i (match-end 0))))
2838                                  (setq term-terminal-parameter                                  (setq term-terminal-parameter
2839                                        (substring str i))                                        (substring str i))
2840                                  (setq term-terminal-state 4)                                  (setq term-terminal-state 4)

Legend:
Removed from v.1.41.4.2  
changed lines
  Added in v.1.41.4.3

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