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) |