Mercurial > emacs
comparison lisp/pcvs.el @ 61206:9c95a69e7e08
(cvs-sentinel): Fix last change.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 01 Apr 2005 18:01:55 +0000 |
| parents | 7178fdb70eff |
| children | b8fb5fb4b960 7a3341d65a12 |
comparison
equal
deleted
inserted
replaced
| 61205:7178fdb70eff | 61206:9c95a69e7e08 |
|---|---|
| 644 (defun cvs-sentinel (proc msg) | 644 (defun cvs-sentinel (proc msg) |
| 645 "Sentinel for the cvs update process. | 645 "Sentinel for the cvs update process. |
| 646 This is responsible for parsing the output from the cvs update when | 646 This is responsible for parsing the output from the cvs update when |
| 647 it is finished." | 647 it is finished." |
| 648 (when (memq (process-status proc) '(signal exit)) | 648 (when (memq (process-status proc) '(signal exit)) |
| 649 (let ((cvs-postproc (process-get proc 'postprocess)) | 649 (let ((cvs-postproc (process-get proc 'cvs-postprocess)) |
| 650 (cvs-buf (process-get proc 'cvs-buffer))) | 650 (cvs-buf (process-get proc 'cvs-buffer))) |
| 651 ;; Since the buffer and mode line will show that the | 651 ;; Since the buffer and mode line will show that the |
| 652 ;; process is dead, we can delete it now. Otherwise it | 652 ;; process is dead, we can delete it now. Otherwise it |
| 653 ;; will stay around until M-x list-processes. | 653 ;; will stay around until M-x list-processes. |
| 654 (process-put proc 'postprocess nil) | 654 (process-put proc 'postprocess nil) |