Commit 4b8b296e authored by Karl Heuer's avatar Karl Heuer
Browse files

(gud-basic-call): Detect error earlier.

parent 48c454c7
...@@ -1213,7 +1213,7 @@ Obeying it means displaying in another window the specified file and line." ...@@ -1213,7 +1213,7 @@ Obeying it means displaying in another window the specified file and line."
(gud-set-buffer) (gud-set-buffer)
(let ((command (concat command "\n")) (let ((command (concat command "\n"))
(proc (get-buffer-process gud-comint-buffer))) (proc (get-buffer-process gud-comint-buffer)))
(or proc (error "Current buffer has no process"))
;; Arrange for the current prompt to get deleted. ;; Arrange for the current prompt to get deleted.
(save-excursion (save-excursion
(set-buffer gud-comint-buffer) (set-buffer gud-comint-buffer)
......
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