diff options
| -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)) |