# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 859847127 0
# Node ID b177ee3c4f0e4cf612a4c3d9b5f58bc17f2a3ca8
# Parent  c945c9845f013de9ecf3f25fd79aaec83219b4a9
(comint-delchar-or-maybe-eof): Check for null proc.

diff -r c945c9845f01 -r b177ee3c4f0e lisp/comint.el
--- 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))))