aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2014-12-29 17:31:15 +0100
committerMichael Albinus2014-12-29 17:31:15 +0100
commite792450d4b723ea4ba0037125b52075b57d0ae84 (patch)
tree8a52c179b8ef66e68b5af158b8397fdb8d843766
parent2d17e122a1a369e03e31e54f757b4e10034c1f91 (diff)
downloademacs-e792450d4b723ea4ba0037125b52075b57d0ae84.tar.gz
emacs-e792450d4b723ea4ba0037125b52075b57d0ae84.zip
Sync with Tramp 2.2.11.
* net/tramp-compat.el (top): Require cl-macs for Emacs 22. Make an alias for `default-toplevel-value' if it doesn't exist. * net/tramp-smb.el (tramp-smb-handle-copy-directory): Use `tramp-compat-delete-directory'. * net/trampver.el: Update release number.
-rw-r--r--lisp/ChangeLog12
-rw-r--r--lisp/net/tramp-compat.el9
-rw-r--r--lisp/net/tramp-smb.el2
-rw-r--r--lisp/net/trampver.el4
4 files changed, 24 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7d98f81b0d0..74517345064 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
12014-12-29 Michael Albinus <michael.albinus@gmx.de>
2
3 Sync with Tramp 2.2.11.
4
5 * net/tramp-compat.el (top): Require cl-macs for Emacs 22.
6 Make an alias for `default-toplevel-value' if it doesn't exist.
7
8 * net/tramp-smb.el (tramp-smb-handle-copy-directory):
9 Use `tramp-compat-delete-directory'.
10
11 * net/trampver.el: Update release number.
12
12014-12-29 Filipp Gunbin <fgunbin@fastmail.fm> 132014-12-29 Filipp Gunbin <fgunbin@fastmail.fm>
2 14
3 * autorevert.el (auto-revert-handler): Fix auto-revert-tail-mode 15 * autorevert.el (auto-revert-handler): Fix auto-revert-tail-mode
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index de63d8c7c7a..62c1501a3de 100644
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -35,6 +35,11 @@
35 35
36(eval-and-compile 36(eval-and-compile
37 37
38 ;; GNU Emacs 22.
39 (unless (fboundp 'ignore-errors)
40 (load "cl" 'noerror)
41 (load "cl-macs" 'noerror))
42
38 ;; Some packages must be required for XEmacs, because we compile 43 ;; Some packages must be required for XEmacs, because we compile
39 ;; with -no-autoloads. 44 ;; with -no-autoloads.
40 (when (featurep 'xemacs) 45 (when (featurep 'xemacs)
@@ -586,6 +591,10 @@ and replace a sub-expression, e.g.
586 (setq matches (cons (substring string start l) matches)) ; leftover 591 (setq matches (cons (substring string start l) matches)) ; leftover
587 (apply #'concat (nreverse matches)))))) 592 (apply #'concat (nreverse matches))))))
588 593
594;; `default-toplevel-value' has been declared in Emacs 24.
595(unless (fboundp 'default-toplevel-value)
596 (defalias 'default-toplevel-value 'symbol-value))
597
589(add-hook 'tramp-unload-hook 598(add-hook 'tramp-unload-hook
590 (lambda () 599 (lambda ()
591 (unload-feature 'tramp-loaddefs 'force) 600 (unload-feature 'tramp-loaddefs 'force)
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index 3d48f47e58e..8f6a10221b6 100644
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -513,7 +513,7 @@ pass to the OPERATION."
513 ;; Reset the transfer process properties. 513 ;; Reset the transfer process properties.
514 (tramp-set-connection-property v "process-name" nil) 514 (tramp-set-connection-property v "process-name" nil)
515 (tramp-set-connection-property v "process-buffer" nil) 515 (tramp-set-connection-property v "process-buffer" nil)
516 (when t1 (delete-directory tmpdir 'recurse)))) 516 (when t1 (tramp-compat-delete-directory tmpdir 'recurse))))
517 517
518 ;; Handle KEEP-DATE argument. 518 ;; Handle KEEP-DATE argument.
519 (when keep-date 519 (when keep-date
diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el
index 065c3f33ebe..f1c36b8603e 100644
--- a/lisp/net/trampver.el
+++ b/lisp/net/trampver.el
@@ -31,7 +31,7 @@
31;; should be changed only there. 31;; should be changed only there.
32 32
33;;;###tramp-autoload 33;;;###tramp-autoload
34(defconst tramp-version "2.2.11-pre" 34(defconst tramp-version "2.2.11-24.5"
35 "This version of Tramp.") 35 "This version of Tramp.")
36 36
37;;;###tramp-autoload 37;;;###tramp-autoload
@@ -44,7 +44,7 @@
44 (= emacs-major-version 21) 44 (= emacs-major-version 21)
45 (>= emacs-minor-version 4))) 45 (>= emacs-minor-version 4)))
46 "ok" 46 "ok"
47 (format "Tramp 2.2.11-pre is not fit for %s" 47 (format "Tramp 2.2.11-24.5 is not fit for %s"
48 (when (string-match "^.*$" (emacs-version)) 48 (when (string-match "^.*$" (emacs-version))
49 (match-string 0 (emacs-version))))))) 49 (match-string 0 (emacs-version)))))))
50 (unless (string-match "\\`ok\\'" x) (error "%s" x))) 50 (unless (string-match "\\`ok\\'" x) (error "%s" x)))