mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
Sync with Tramp 2.3.4. Do not merge with master
* doc/misc/trampver.texi: * lisp/net/trampver.el: Change version to "2.3.4". * lisp/net/tramp-smb.el (tramp-smb-handle-delete-directory): Check, that the directory has been removed indeed. * test/lisp/net/tramp-tests.el (tramp-test21-file-links): Adapt test. (tramp--test-emacs25-p): New defun. (tramp-test34-vc-registered): Use it.
This commit is contained in:
parent
d008ef3d0b
commit
1f5037925b
4 changed files with 20 additions and 11 deletions
|
|
@ -2771,7 +2771,7 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
|
|||
|
||||
;; Check `add-name-to-file'.
|
||||
(unwind-protect
|
||||
(progn
|
||||
(unless (tramp-smb-file-name-p tramp-test-temporary-file-directory)
|
||||
(write-region "foo" nil tmp-name1)
|
||||
(should (file-exists-p tmp-name1))
|
||||
(add-name-to-file tmp-name1 tmp-name2)
|
||||
|
|
@ -3802,11 +3802,9 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
|
|||
(vc-register
|
||||
(list (car vc-handled-backends)
|
||||
(list (file-name-nondirectory tmp-name2))))
|
||||
;; `vc-register' has changed its arguments in Emacs 25.1.
|
||||
(error
|
||||
(vc-register
|
||||
nil (list (car vc-handled-backends)
|
||||
(list (file-name-nondirectory tmp-name2))))))
|
||||
;; `vc-register' has changed its arguments in Emacs
|
||||
;; 25.1. Let's skip it for older Emacsen.
|
||||
(error (skip-unless (tramp--test-emacs25-p))))
|
||||
;; vc-git uses an own process sentinel, Tramp's sentinel
|
||||
;; for flushing the cache isn't used.
|
||||
(dired-uncache (concat (file-remote-p default-directory) "/"))
|
||||
|
|
@ -4053,6 +4051,12 @@ This tests also `make-symbolic-link', `file-truename' and `add-name-to-file'."
|
|||
(delete-directory tmp-file)
|
||||
(should-not (file-exists-p tmp-file))))
|
||||
|
||||
(defun tramp--test-emacs25-p ()
|
||||
"Check for Emacs version >= 25.1.
|
||||
Some semantics has been changed for there, w/o new functions or
|
||||
variables, so we check the Emacs version directly."
|
||||
(>= emacs-major-version 25))
|
||||
|
||||
(defun tramp--test-emacs26-p ()
|
||||
"Check for Emacs version >= 26.1.
|
||||
Some semantics has been changed for there, w/o new functions or
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue