]> git.eshelyaron.com Git - emacs.git/commitdiff
Release Tramp 2.4.2
authorMichael Albinus <michael.albinus@gmx.de>
Sun, 30 Jun 2019 09:23:06 +0000 (11:23 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Sun, 30 Jun 2019 09:23:06 +0000 (11:23 +0200)
* 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.

lisp/net/tramp.el
test/lisp/net/tramp-tests.el

index 90f7491bf51a7d9543b5144f0e117a2f3a21edb0..b3a8b93e2a8a82aa01b413885de37b6dd04814d7 100644 (file)
@@ -7,7 +7,7 @@
 ;; Maintainer: Michael Albinus <michael.albinus@gmx.de>
 ;; Keywords: comm, processes
 ;; Package: tramp
-;; Version: 2.4.2-pre
+;; Version: 2.4.2
 ;; Package-Requires: ((emacs "24.4"))
 ;; URL: https://savannah.gnu.org/projects/tramp
 
index afe6488ea713fc012253103ddf70f1d58d84cf03..77b2c263ff83661b6bc999ae453a9e41048a55bc 100644 (file)
@@ -168,7 +168,10 @@ properly.  BODY shall not contain a timeout."
   `(let ((tramp-verbose (max (or ,verbose 0) (or tramp-verbose 0)))
         (tramp-message-show-message t)
         (debug-ignored-errors
-         (cons "^make-symbolic-link not supported$" debug-ignored-errors))
+         (append
+          '("^make-symbolic-link not supported$"
+            "^error with add-name-to-file")
+          debug-ignored-errors))
         inhibit-message)
      (unwind-protect
         (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'."
   (declare (indent defun) (debug (body)))
   `(condition-case err
        (progn ,@body)
-     ((error quit debug)
-      (unless (and (eq (car err) 'file-error)
-                  (string-match "^error with add-name-to-file"
-                                (error-message-string err)))
+     (file-error
+      (unless (string-match "^error with add-name-to-file"
+                           (error-message-string err))
        (signal (car err) (cdr err))))))
 
 (ert-deftest tramp-test21-file-links ()