Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
2cc18f93
Commit
2cc18f93
authored
Nov 22, 2013
by
Leo Liu
Browse files
* progmodes/octave.el (octave-kill-process): Don't ask twice
Fixes: debbugs:10564
parent
8c09f64b
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
6 deletions
+9
-6
lisp/ChangeLog
lisp/ChangeLog
+1
-0
lisp/progmodes/octave.el
lisp/progmodes/octave.el
+8
-6
No files found.
lisp/ChangeLog
View file @
2cc18f93
...
...
@@ -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>
...
...
lisp/progmodes/octave.el
View file @
2cc18f93
...
...
@@ -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
()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment