Commit 90d6bfb9 authored by Karl Heuer's avatar Karl Heuer
Browse files

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

parent 80abd2a8
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment