Implement `interrupt-process-functions'
commit01844e40dc43baf1fdc088ef6400343e908ea449
authorMichael Albinus <michael.albinus@gmx.de>
Mon, 21 Aug 2017 15:30:33 +0000 (21 17:30 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Mon, 21 Aug 2017 15:30:33 +0000 (21 17:30 +0200)
tree65ffb9b54340522908591de90a01f402b6226b8d
parent76fbe2f4541b11af8bcb0b5e57bb155b796b8d8e
Implement `interrupt-process-functions'

* lisp/net/tramp.el (tramp-interrupt-process): Rename from
`tramp-advice-interrupt-process'.  Adapt according to changed API.
(top): Add it to `interrupt-process-functions'.

* src/process.c (Finternal_default_interrupt_process): New defun.
(Finterrupt_process): Change implementation, based on
Vinterrupt_process_functions.
(Vinterrupt_process_functions): New defvar.

* test/lisp/net/tramp-tests.el (tramp-test40-unload): Do not
test removal of advice.
lisp/net/tramp.el
src/process.c
test/lisp/net/tramp-tests.el