(comint-delchar-or-maybe-eof): Check for null proc.

diff --git a/lisp/comint.el b/lisp/comint.el
index 7a2b2fbd0ea95c9a71b13f8388c210ece81c1493..2be96265d02ef28da8515c9e19c886cd863849ac 100644 (file)
--- 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))))