|
Lines 195-200
Link Here
|
| 195 |
(unless (fboundp 'set-buffer-multibyte) |
195 |
(unless (fboundp 'set-buffer-multibyte) |
| 196 |
(defalias 'set-buffer-multibyte 'ignore))) |
196 |
(defalias 'set-buffer-multibyte 'ignore))) |
| 197 |
|
197 |
|
|
|
198 |
;; `copy-tree' is not defined in plain Emacs 21 |
| 199 |
(eval-and-compile |
| 200 |
(if (fboundp 'copy-tree) |
| 201 |
(fset 'tramp-copy-tree 'copy-tree) |
| 202 |
(defun tramp-copy-tree (tree &optional vecp) |
| 203 |
"Make a copy of TREE." |
| 204 |
(if (consp tree) |
| 205 |
(let (result) |
| 206 |
(while (consp tree) |
| 207 |
(let ((newcar (car tree))) |
| 208 |
(if (or (consp (car tree)) (and vecp (vectorp (car tree)))) |
| 209 |
(setq newcar (tramp-copy-tree (car tree) vecp))) |
| 210 |
(push newcar result)) |
| 211 |
(setq tree (cdr tree))) |
| 212 |
(nconc (nreverse result) tree)) |
| 213 |
(if (and vecp (vectorp tree)) |
| 214 |
(let ((i (length (setq tree (copy-sequence tree))))) |
| 215 |
(while (>= (setq i (1- i)) 0) |
| 216 |
(aset tree i (tramp-copy-tree (aref tree i) vecp))) |
| 217 |
tree) |
| 218 |
tree))))) |
| 219 |
|
| 198 |
;;; User Customizable Internal Variables: |
220 |
;;; User Customizable Internal Variables: |
| 199 |
|
221 |
|
| 200 |
(defgroup tramp nil |
222 |
(defgroup tramp nil |
|
Lines 2687-2693
Link Here
|
| 2687 |
(when (file-directory-p directory) |
2709 |
(when (file-directory-p directory) |
| 2688 |
(setq directory (expand-file-name directory)) |
2710 |
(setq directory (expand-file-name directory)) |
| 2689 |
(let* ((temp |
2711 |
(let* ((temp |
| 2690 |
(copy-tree |
2712 |
(tramp-copy-tree |
| 2691 |
(with-parsed-tramp-file-name directory nil |
2713 |
(with-parsed-tramp-file-name directory nil |
| 2692 |
(with-file-property |
2714 |
(with-file-property |
| 2693 |
v localname |
2715 |
v localname |
|
Lines 5083-5089
Link Here
|
| 5083 |
|
5105 |
|
| 5084 |
(with-current-buffer (tramp-get-connection-buffer vec) |
5106 |
(with-current-buffer (tramp-get-connection-buffer vec) |
| 5085 |
(set (make-local-variable 'tramp-remote-path) |
5107 |
(set (make-local-variable 'tramp-remote-path) |
| 5086 |
(copy-tree tramp-remote-path)) |
5108 |
(tramp-copy-tree tramp-remote-path)) |
| 5087 |
(let* ((elt (memq 'tramp-default-remote-path tramp-remote-path)) |
5109 |
(let* ((elt (memq 'tramp-default-remote-path tramp-remote-path)) |
| 5088 |
(tramp-default-remote-path |
5110 |
(tramp-default-remote-path |
| 5089 |
(with-connection-property vec "default-remote-path" |
5111 |
(with-connection-property vec "default-remote-path" |
