diff options
| author | Michael Albinus | 2022-11-23 12:00:35 +0100 |
|---|---|---|
| committer | Michael Albinus | 2022-11-23 12:00:35 +0100 |
| commit | 1524fe427d00c1cf255b9d68cc8565de45ea78df (patch) | |
| tree | 0559c302fe9656af628a933f2402f7ffe00b6824 /test | |
| parent | 9f4306cd8d086745750769d612df3f71defeea1e (diff) | |
| download | emacs-1524fe427d00c1cf255b9d68cc8565de45ea78df.tar.gz emacs-1524fe427d00c1cf255b9d68cc8565de45ea78df.zip | |
Restore tramp-achive's Emacs 26 compatibility
* lisp/net/tramp-archive.el (tramp-archive-autoload-file-name-regexp):
Special handling of Emacs 26. Simplify the other part.
* test/lisp/net/tramp-tests.el (tramp-test48-unload): Special case
of `tramp-register-archive-file-name-handler'.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/tramp-tests.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el index a5bae46a583..a79c47be723 100644 --- a/test/lisp/net/tramp-tests.el +++ b/test/lisp/net/tramp-tests.el | |||
| @@ -7630,6 +7630,9 @@ Since it unloads Tramp, it shall be the last test to run." | |||
| 7630 | (string-prefix-p "tramp" (symbol-name x)) | 7630 | (string-prefix-p "tramp" (symbol-name x)) |
| 7631 | ;; `tramp-completion-mode' is autoloaded in Emacs < 28.1. | 7631 | ;; `tramp-completion-mode' is autoloaded in Emacs < 28.1. |
| 7632 | (not (eq 'tramp-completion-mode x)) | 7632 | (not (eq 'tramp-completion-mode x)) |
| 7633 | ;; `tramp-register-archive-file-name-handler' is autoloaded | ||
| 7634 | ;; in Emacs < 29.1. | ||
| 7635 | (not (eq 'tramp-register-archive-file-name-handler x)) | ||
| 7633 | (not (string-match-p | 7636 | (not (string-match-p |
| 7634 | (rx bol "tramp" (? "-archive") (** 1 2 "-") "test") | 7637 | (rx bol "tramp" (? "-archive") (** 1 2 "-") "test") |
| 7635 | (symbol-name x))) | 7638 | (symbol-name x))) |