From 90d6bfb92193686160dc376f06875a7fbb8030ef Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 31 Mar 1997 22:25:27 +0000 Subject: [PATCH] (comint-delchar-or-maybe-eof): Check for null proc. --- lisp/comint.el | 4 ++-- 1 file 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." "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)))) -- 2.39.5