diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2017-08-21 17:30:33 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2017-08-21 17:30:33 +0200 |
| commit | 01844e40dc43baf1fdc088ef6400343e908ea449 (patch) | |
| tree | 65ffb9b54340522908591de90a01f402b6226b8d /test/lisp/net | |
| parent | 76fbe2f4541b11af8bcb0b5e57bb155b796b8d8e (diff) | |
| download | emacs-01844e40dc43baf1fdc088ef6400343e908ea449.tar.gz emacs-01844e40dc43baf1fdc088ef6400343e908ea449.tar.bz2 emacs-01844e40dc43baf1fdc088ef6400343e908ea449.zip | |
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.
Diffstat (limited to 'test/lisp/net')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 5 |
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: |