diff lisp/comint.el @ 17269:b177ee3c4f0e

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

--- a/lisp/comint.el	Sun Mar 30 22:23:58 1997 +0000
+++ b/lisp/comint.el	Mon Mar 31 22:25:27 1997 +0000
@@ -1548,8 +1548,8 @@
   "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))))