diff options
| author | Michael Albinus | 2008-03-15 21:50:58 +0000 |
|---|---|---|
| committer | Michael Albinus | 2008-03-15 21:50:58 +0000 |
| commit | e3ea58b7ea4bde720c47d1d04ca06c1e935ba7e2 (patch) | |
| tree | 1c131c66e2fcc69c4fce54d84709fa5ea1459ac8 | |
| parent | 39f4444267b7175a5b4b73d23d1f509bf36409c6 (diff) | |
| download | emacs-e3ea58b7ea4bde720c47d1d04ca06c1e935ba7e2.tar.gz emacs-e3ea58b7ea4bde720c47d1d04ca06c1e935ba7e2.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/net/tramp-compat.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el index 7c75fbb2eb6..b07ffd5f56d 100644 --- a/lisp/net/tramp-compat.el +++ b/lisp/net/tramp-compat.el | |||
| @@ -217,9 +217,9 @@ Add the extension of FILENAME, if existing." | |||
| 217 | (copy-file filename newname ok-if-already-exists keep-date))) | 217 | (copy-file filename newname ok-if-already-exists keep-date))) |
| 218 | 218 | ||
| 219 | ;; `copy-tree' is a built-in function in XEmacs. In Emacs 21, it is | 219 | ;; `copy-tree' is a built-in function in XEmacs. In Emacs 21, it is |
| 220 | ;; an auoloaded function in cl-extra.el. Since Emacs 22, it is part | 220 | ;; an autoloaded function in cl-extra.el. Since Emacs 22, it is part |
| 221 | ;; of subr.el. There are problems when autoloading, therefore we test | 221 | ;; of subr.el. There are problems when autoloading, therefore we test |
| 222 | ;; for for `subrp' and `symbol-file'. Implementation is taken from Emacs23. | 222 | ;; for `subrp' and `symbol-file'. Implementation is taken from Emacs23. |
| 223 | (defun tramp-compat-copy-tree (tree) | 223 | (defun tramp-compat-copy-tree (tree) |
| 224 | "Make a copy of TREE (compat function)." | 224 | "Make a copy of TREE (compat function)." |
| 225 | (if (or (subrp 'copy-tree) (symbol-file 'copy-tree)) | 225 | (if (or (subrp 'copy-tree) (symbol-file 'copy-tree)) |