Mercurial > emacs

changeset 17269:b177ee3c4f0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(comint-delchar-or-maybe-eof): Check for null proc.
author Karl Heuer <kwzh@gnu.org>
date Mon, 31 Mar 1997 22:25:27 +0000
parents c945c9845f01
children 8899e9305c25
files lisp/comint.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))))