635 |
:group 'tramp |
:group 'tramp |
636 |
:type '(repeat (list string function string))) |
:type '(repeat (list string function string))) |
637 |
|
|
638 |
(defcustom tramp-default-method "sm" |
(defcustom tramp-default-method "ssh" |
|
;;(if (featurep 'xemacs) "sm" "ftp") |
|
639 |
"*Default method to use for transferring files. |
"*Default method to use for transferring files. |
640 |
See `tramp-methods' for possibilities. |
See `tramp-methods' for possibilities. |
641 |
Also see `tramp-default-method-alist'. |
Also see `tramp-default-method-alist'. |
2406 |
(with-parsed-tramp-file-name dir nil |
(with-parsed-tramp-file-name dir nil |
2407 |
(when (tramp-ange-ftp-file-name-p multi-method method) |
(when (tramp-ange-ftp-file-name-p multi-method method) |
2408 |
(tramp-invoke-ange-ftp 'make-directory dir parents)) |
(tramp-invoke-ange-ftp 'make-directory dir parents)) |
2409 |
(tramp-barf-unless-okay |
(save-excursion |
2410 |
multi-method method user host |
(tramp-barf-unless-okay |
2411 |
(format " %s %s" |
multi-method method user host |
2412 |
(if parents "mkdir -p" "mkdir") |
(format " %s %s" |
2413 |
(tramp-shell-quote-argument path)) |
(if parents "mkdir -p" "mkdir") |
2414 |
nil 'file-error |
(tramp-shell-quote-argument path)) |
2415 |
"Couldn't make directory %s" dir))) |
nil 'file-error |
2416 |
|
"Couldn't make directory %s" dir)))) |
2417 |
|
|
2418 |
;; CCC error checking? |
;; CCC error checking? |
2419 |
(defun tramp-handle-delete-directory (directory) |
(defun tramp-handle-delete-directory (directory) |