diff options
author | Karl Heuer <[email protected]> | 1997-03-31 22:25:27 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1997-03-31 22:25:27 +0000 |
commit | 90d6bfb92193686160dc376f06875a7fbb8030ef (patch) | |
tree | 343551e176bec5fbf1572b18c096b2464461a5a8 | |
parent | 80abd2a8dca5dd5b49e28551d5eee6f837220bf2 (diff) |
(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 7a2b2fbd0e..2be96265d0 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1548,8 +1548,8 @@ Useful if you accidentally suspend the top-level process." "Delete ARG characters forward or send an EOF to subprocess. Sends an EOF only if point is at the end of the buffer and there is no input." (interactive "p") - (let ((pmark (process-mark (get-buffer-process (current-buffer))))) - (if (and (eobp) (= (point) (marker-position pmark))) + (let ((proc (get-buffer-process (current-buffer)))) + (if (and (eobp) proc (= (point) (marker-position (process-mark proc)))) (process-send-eof) (delete-char arg)))) |