Commit 2cc18f93 authored by Leo Liu's avatar Leo Liu
Browse files

* progmodes/octave.el (octave-kill-process): Don't ask twice

Fixes: debbugs:10564
parent 8c09f64b
......@@ -5,6 +5,7 @@
(octave-help-mode): Adapt to change to help-mode-finish to use
derived-mode-p on 2013-09-17.
(inferior-octave-prompt): Also match octave-gui.
(octave-kill-process): Don't ask twice. (Bug#10564)
2013-11-22 Leo Liu <sdl.web@gmail.com>
......
......@@ -1445,12 +1445,14 @@ entered without parens)."
(defun octave-kill-process ()
"Kill inferior Octave process and its buffer."
(interactive)
(or (yes-or-no-p "Kill the inferior Octave process and its buffer? ")
(user-error "Aborted"))
(when (inferior-octave-process-live-p)
(process-send-string inferior-octave-process "quit;\n")
(accept-process-output inferior-octave-process))
(when inferior-octave-buffer
(when (and (buffer-live-p (get-buffer inferior-octave-buffer))
(or (yes-or-no-p (format "Kill %S and its buffer? "
inferior-octave-process))
(user-error "Aborted")))
(when (inferior-octave-process-live-p)
(set-process-query-on-exit-flag inferior-octave-process nil)
(process-send-string inferior-octave-process "quit;\n")
(accept-process-output inferior-octave-process))
(kill-buffer inferior-octave-buffer)))
(defun octave-show-process-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