aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2019-06-30 11:23:06 +0200
committerMichael Albinus2019-06-30 11:23:06 +0200
commit10af8c58635ebc87fe1924e48bef47112ddbd96a (patch)
tree31d6704d8a108dd2fb8b830662a5e2c0be007aa9
parentefeaf19edfb34bfa517c7911449c5b61bfad17c2 (diff)
downloademacs-10af8c58635ebc87fe1924e48bef47112ddbd96a.tar.gz
emacs-10af8c58635ebc87fe1924e48bef47112ddbd96a.zip
Release Tramp 2.4.2
* lisp/net/tramp.el: Bump version. * test/lisp/net/tramp-tests.el (tramp--test-instrument-test-case): Add `add-name-to-file' error message. (tramp--test-ignore-add-name-to-file-error): Make error handler more explicit about the error.
-rw-r--r--lisp/net/tramp.el2
-rw-r--r--test/lisp/net/tramp-tests.el12
2 files changed, 8 insertions, 6 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 90f7491bf51..b3a8b93e2a8 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -7,7 +7,7 @@
7;; Maintainer: Michael Albinus <michael.albinus@gmx.de> 7;; Maintainer: Michael Albinus <michael.albinus@gmx.de>
8;; Keywords: comm, processes 8;; Keywords: comm, processes
9;; Package: tramp 9;; Package: tramp
10;; Version: 2.4.2-pre 10;; Version: 2.4.2
11;; Package-Requires: ((emacs "24.4")) 11;; Package-Requires: ((emacs "24.4"))
12;; URL: https://savannah.gnu.org/projects/tramp 12;; URL: https://savannah.gnu.org/projects/tramp
13 13
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index afe6488ea71..77b2c263ff8 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -168,7 +168,10 @@ properly. BODY shall not contain a timeout."
168 `(let ((tramp-verbose (max (or ,verbose 0) (or tramp-verbose 0))) 168 `(let ((tramp-verbose (max (or ,verbose 0) (or tramp-verbose 0)))
169 (tramp-message-show-message t) 169 (tramp-message-show-message t)
170 (debug-ignored-errors 170 (debug-ignored-errors
171 (cons "^make-symbolic-link not supported$" debug-ignored-errors)) 171 (append
172 '("^make-symbolic-link not supported$"
173 "^error with add-name-to-file")
174 debug-ignored-errors))
172 inhibit-message) 175 inhibit-message)
173 (unwind-protect 176 (unwind-protect
174 (let ((tramp--test-instrument-test-case-p t)) ,@body) 177 (let ((tramp--test-instrument-test-case-p t)) ,@body)
@@ -3162,10 +3165,9 @@ This tests also `file-executable-p', `file-writable-p' and `set-file-modes'."
3162 (declare (indent defun) (debug (body))) 3165 (declare (indent defun) (debug (body)))
3163 `(condition-case err 3166 `(condition-case err
3164 (progn ,@body) 3167 (progn ,@body)
3165 ((error quit debug) 3168 (file-error
3166 (unless (and (eq (car err) 'file-error) 3169 (unless (string-match "^error with add-name-to-file"
3167 (string-match "^error with add-name-to-file" 3170 (error-message-string err))
3168 (error-message-string err)))
3169 (signal (car err) (cdr err)))))) 3171 (signal (car err) (cdr err))))))
3170 3172
3171(ert-deftest tramp-test21-file-links () 3173(ert-deftest tramp-test21-file-links ()