/[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.46 by eliz, Sun Feb 3 11:25:23 2002 UTC revision 1.47 by eliz, Tue Apr 16 18:50:07 2002 UTC
# Line 2829  See `term-prompt-regexp'." Line 2829  See `term-prompt-regexp'."
2829                             ((eq char ?\032)                             ((eq char ?\032)
2830                              (let ((end (string-match "\r?$" str i)))                              (let ((end (string-match "\r?$" str i)))
2831                                (if end                                (if end
2832                                    (progn (funcall term-command-hook                                    (funcall term-command-hook
2833                                                    (substring str (1+ i) end))                                             (prog1 (substring str (1+ i) end)
2834                                           (setq i (match-end 0)))                                               (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.46  
changed lines
  Added in v.1.47

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