diff options
| author | Michael Albinus | 2014-12-29 17:31:15 +0100 |
|---|---|---|
| committer | Michael Albinus | 2014-12-29 17:31:15 +0100 |
| commit | e792450d4b723ea4ba0037125b52075b57d0ae84 (patch) | |
| tree | 8a52c179b8ef66e68b5af158b8397fdb8d843766 | |
| parent | 2d17e122a1a369e03e31e54f757b4e10034c1f91 (diff) | |
| download | emacs-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/ChangeLog | 12 | ||||
| -rw-r--r-- | lisp/net/tramp-compat.el | 9 | ||||
| -rw-r--r-- | lisp/net/tramp-smb.el | 2 | ||||
| -rw-r--r-- | lisp/net/trampver.el | 4 |
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 @@ | |||
| 1 | 2014-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 | |||
| 1 | 2014-12-29 Filipp Gunbin <fgunbin@fastmail.fm> | 13 | 2014-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))) |