diff options
| author | Karl Heuer | 1997-03-31 22:25:27 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-03-31 22:25:27 +0000 |
| commit | 90d6bfb92193686160dc376f06875a7fbb8030ef (patch) | |
| tree | 343551e176bec5fbf1572b18c096b2464461a5a8 | |
| parent | 80abd2a8dca5dd5b49e28551d5eee6f837220bf2 (diff) | |
| download | emacs-90d6bfb92193686160dc376f06875a7fbb8030ef.tar.gz emacs-90d6bfb92193686160dc376f06875a7fbb8030ef.zip | |
(comint-delchar-or-maybe-eof): Check for null proc.
| -rw-r--r-- | lisp/comint.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 7a2b2fbd0ea..2be96265d02 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -1548,8 +1548,8 @@ Useful if you accidentally suspend the top-level process." | |||
| 1548 | "Delete ARG characters forward or send an EOF to subprocess. | 1548 | "Delete ARG characters forward or send an EOF to subprocess. |
| 1549 | Sends an EOF only if point is at the end of the buffer and there is no input." | 1549 | Sends an EOF only if point is at the end of the buffer and there is no input." |
| 1550 | (interactive "p") | 1550 | (interactive "p") |
| 1551 | (let ((pmark (process-mark (get-buffer-process (current-buffer))))) | 1551 | (let ((proc (get-buffer-process (current-buffer)))) |
| 1552 | (if (and (eobp) (= (point) (marker-position pmark))) | 1552 | (if (and (eobp) proc (= (point) (marker-position (process-mark proc)))) |
| 1553 | (process-send-eof) | 1553 | (process-send-eof) |
| 1554 | (delete-char arg)))) | 1554 | (delete-char arg)))) |
| 1555 | 1555 | ||