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.

1 files changed, 1 insertions, 4 deletions

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index dba553a2c5e..129bc1d65da 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -4072,10 +4072,7 @@ Since it unloads Tramp, it shall be the last test to run."
             (not (string-match "unload-hook$" (symbol-name x)))
             (consp (symbol-value x))
             (ignore-errors (all-completions "tramp" (symbol-value x)))
-            (ert-fail (format "Hook `%s' still contains Tramp function" x)))))
-    ;; The advice on `interrupt-process' shall be removed.
-    (should-not
-     (advice-member-p 'tramp-advice-interrupt-process 'interrupt-process))))
+            (ert-fail (format "Hook `%s' still contains Tramp function" x)))))))
 
 ;; TODO: