diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-03-31 22:25:27 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-03-31 22:25:27 +0000 |
| commit | 90d6bfb92193686160dc376f06875a7fbb8030ef (patch) | |
| tree | 343551e176bec5fbf1572b18c096b2464461a5a8 | |
| parent | 80abd2a8dca5dd5b49e28551d5eee6f837220bf2 (diff) | |
| download | emacs-90d6bfb92193686160dc376f06875a7fbb8030ef.tar.gz | |
(comint-delchar-or-maybe-eof): Check for null proc.
| -rw-r--r-- | lisp/comint.el | 4 |
1 files 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)))) |