/[tramp]/tramp/lisp/tramp.el
ViewVC logotype

Diff of /tramp/lisp/tramp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.162 by kai, Wed Jul 31 15:25:09 2002 UTC revision 2.163 by kai, Sat Aug 3 09:03:37 2002 UTC
# Line 635  various functions for details." Line 635  various functions for details."
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'.
# Line 2407  If KEEP-DATE is non-nil, preserve the ti Line 2406  If KEEP-DATE is non-nil, preserve the ti
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)

Legend:
Removed from v.2.162  
changed lines
  Added in v.2.163

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26