mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Karl Heuer 1997-03-31 22:25:27 +00:00
parent 80abd2a8dc
commit 90d6bfb921
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/comint.el
View File

@ -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))))