emacs: lisp/net/tramp.el comparison

comparison lisp/net/tramp.el @ 107820:e97568b31550

Synchronize with Tramp repository. * net/tramp.el (tramp-completion-function-alist) (tramp-file-name-regexp, tramp-chunksize) (tramp-local-coding-commands, tramp-remote-coding-commands): Fix docstring. (tramp-remote-process-environment): Use `format' instead of `concat'. (tramp-handle-directory-files-and-attributes) (tramp-get-remote-path): Use `copy-tree'. (tramp-handle-file-name-all-completions): Backward/ XEmacs compatibility: Use `completion-ignore-case' if `read-file-name-completion-ignore-case' does not exist. (tramp-do-copy-or-rename-file-directly): Do not use `tramp-handle-file-remote-p'. (tramp-do-copy-or-rename-file-out-of-band): Use `tramp-compat-delete-directory'. (tramp-do-copy-or-rename-file-out-of-band) (tramp-compute-multi-hops, tramp-maybe-open-connection): Use `format-spec-make'. (tramp-find-foreign-file-name-handler) (tramp-advice-make-auto-save-file-name) (tramp-set-auto-save-file-modes): Remove superfluous check for `stringp'. This is done inside `tramp-tramp-file-p'. (tramp-debug-outline-regexp): New defconst. (tramp-get-debug-buffer): Use it. (tramp-check-for-regexp): Use (forward-line 1). (tramp-set-auto-save-file-modes): Adapt version check. * net/tramp-compat.el (tramp-advice-file-expand-wildcards): Wrap call of `featurep' for 2nd argument. (tramp-compat-make-temp-file): Simplify fallback implementation. (tramp-compat-copy-tree): Remove function. (tramp-compat-delete-directory): Provide implementation for older Emacsen. * net/tramp-fish.el (tramp-fish-handle-directory-files-and-attributes): Do not use `tramp-fish-handle-file-attributes. * net/trampver.el: Update release number.

author	Michael Albinus <albinus@detlef>
date	Sat, 10 Apr 2010 14:50:31 +0200
parents	75e87467a0db
children	02b5fe4a01fe

comparison

equal deleted inserted replaced

-:834292200403
+:e97568b31550
 ;; For more detailed instructions, please see the info file.
 ;;
 ;; Notes:
 ;; -----
 ;;
-;; This package only works for Emacs 21.1 and higher, and for XEmacs 21.4
+;; This package only works for Emacs 22.1 and higher, and for XEmacs 21.4
 ;; and higher.  For XEmacs 21, you need the package `fsf-compat' for
 ;; the `with-timeout' macro.
 ;;
 ;; Also see the todo list at the bottom of this file.
 ;;
 (add-hook 'tramp-unload-hook
 	  (lambda ()
 	    (when (featurep 'tramp-compat)
 	      (unload-feature 'tramp-compat 'force))))
-(require 'format-spec)                  ; from Gnus 5.8, also in tar ball
+(require 'format-spec)
 ;; As long as password.el is not part of (X)Emacs, it shouldn't
 ;; be mandatory
 (if (featurep 'xemacs)
 (load "password" 'noerror)
 (or (require 'password-cache nil 'noerror)
 "HKEY_CURRENT_USER\\Software\\SimonTatham\\PuTTY\\Sessions"))
 "Default list of (FUNCTION REGISTRY) pairs to be examined for putty methods.")
 (defvar tramp-completion-function-alist nil
 "*Alist of methods for remote files.
-This is a list of entries of the form (NAME PAIR1 PAIR2 ...).
+This is a list of entries of the form \(NAME PAIR1 PAIR2 ...\).
 Each NAME stands for a remote access method.  Each PAIR is of the form
-\(FUNCTION FILE).  FUNCTION is responsible to extract user names and host
+\(FUNCTION FILE\).  FUNCTION is responsible to extract user names and host
 names from FILE for completion.  The following predefined FUNCTIONs exists:
 * `tramp-parse-rhosts'      for \"~/.rhosts\" like files,
 * `tramp-parse-shosts'      for \"~/.ssh/known_hosts\" like files,
 * `tramp-parse-sconfig'     for \"~/.ssh/config\" like files,
 		  (const :tag "Private Directories" tramp-own-remote-path)
 		  (string :tag "Directory"))))
 (defcustom tramp-remote-process-environment
 `("HISTFILE=$HOME/.tramp_history" "HISTSIZE=1" "LC_ALL=C"
-,(concat "TERM=" tramp-terminal-type)
+,(format "TERM=%s" tramp-terminal-type)
 "EMACS=t" ;; Deprecated.
 ,(format "INSIDE_EMACS=%s,tramp:%s" emacs-version tramp-version)
 "CDPATH=" "HISTORY=" "MAIL=" "MAILCHECK=" "MAILPATH="
 "autocorrect=" "correct=")
 	((equal tramp-syntax 'sep) tramp-file-name-regexp-separate)
 	((equal tramp-syntax 'url) tramp-file-name-regexp-url)
 	(t (error "Wrong `tramp-syntax' defined")))
 "*Regular expression matching file names handled by Tramp.
 This regexp should match Tramp file names but no other file names.
-\(When tramp.el is loaded, this regular expression is prepended to
+When tramp.el is loaded, this regular expression is prepended to
 `file-name-handler-alist', and that is searched sequentially.  Thus,
 if the Tramp entry appears rather early in the `file-name-handler-alist'
 and is a bit too general, then some files might be considered Tramp
 files which are not really Tramp files.
 Please note that the entry in `file-name-handler-alist' is made when
-this file (tramp.el) is loaded.  This means that this variable must be set
+this file \(tramp.el\) is loaded.  This means that this variable must be set
 before loading tramp.el.  Alternatively, `file-name-handler-alist' can be
 updated after changing this variable.
 Also see `tramp-file-name-structure'.")
 (display-buffer (current-buffer))
 (sit-for 30))))
 In the Emacs normally running Tramp, evaluate the above code
 \(replace \"xxx\" and \"yyy\" by the remote user and host name,
-respectively).  You can do this, for example, by pasting it into
+respectively\).  You can do this, for example, by pasting it into
 the `*scratch*' buffer and then hitting C-j with the cursor after the
 last closing parenthesis.  Note that it works only if you have configured
-\"ssh\" to run without password query, see ssh-agent(1).
+\"ssh\" to run without password query, see ssh-agent\(1\).
 You will see the number of bytes sent successfully to the remote host.
 If that number exceeds 1000, you can stop the execution by hitting
 C-g, because your Emacs is likely clean.
 When it is necessary to set `tramp-chunksize', you might consider to
-use an out-of-the-band method (like \"scp\") instead of an internal one
+use an out-of-the-band method \(like \"scp\"\) instead of an internal one
-\(like \"ssh\"), because setting `tramp-chunksize' to non-nil decreases
+\(like \"ssh\"\), because setting `tramp-chunksize' to non-nil decreases
 performance.
 If your Emacs is buggy, the code stops and gives you an indication
 about the value `tramp-chunksize' should be set.  Maybe you could just
 experiment a bit, e.g. changing the values of `init' and `step'
 "Like `directory-files-and-attributes' for Tramp files."
 (unless id-format (setq id-format 'integer))
 (when (file-directory-p directory)
 (setq directory (expand-file-name directory))
 (let* ((temp
-	    (tramp-compat-copy-tree
+	    (copy-tree
 	     (with-parsed-tramp-file-name directory nil
 	       (with-file-property
 		   v localname
 		   (format "directory-files-and-attributes-%s" id-format)
 		 (save-excursion
 "tramp_perl_file_name_all_completions")
 (format "tramp_perl_file_name_all_completions %s %s %d"
 (tramp-shell-quote-argument localname)
 (tramp-shell-quote-argument filename)
 (if (symbol-value
-			       'read-file-name-completion-ignore-case)
+			       ;; `read-file-name-completion-ignore-case'
+			       ;; is introduced with Emacs 22.1.
+			       (if (boundp
+				    'read-file-name-completion-ignore-case)
+				   'read-file-name-completion-ignore-case
+				 'completion-ignore-case))
 			      1 0)))
 (format (concat
 "(\\cd %s 2>&1 && (%s %s -a 2>/dev/null"
 ;; `ls' with wildcard might fail with `Argument
 (tramp-set-file-property
 v (concat localname filename)
 "file-name-all-completions"
 result))))))))
-;; The following isn't needed for Emacs 20 but for 19.34?
 (defun tramp-handle-file-name-completion
 (filename directory &optional predicate)
 "Like `file-name-completion' for Tramp files."
 (unless (tramp-tramp-file-p directory)
 (error
 			(t (tramp-error
 			    v 'file-error
 			    "Unknown operation `%s', must be `copy' or `rename'"
 			    op))))
 	     (localname1
-	      (if t1 (tramp-handle-file-remote-p filename 'localname) filename))
+	      (if t1
+		  (tramp-file-name-handler 'file-remote-p filename 'localname)
+		filename))
 	     (localname2
-	      (if t2 (tramp-handle-file-remote-p newname 'localname) newname))
+	      (if t2
+		  (tramp-file-name-handler 'file-remote-p newname 'localname)
+		newname))
 	     (prefix (file-remote-p (if t1 filename newname)))
 cmd-result)
 	(cond
 	 ;; Both files are on a remote host, with same user.
 		  (tramp-do-copy-or-rename-file-out-of-band
 		   'rename tmpfile newname keep-date))
 	      ;; Save exit.
 	      (condition-case nil
 		  (if dir-flag
-		      (delete-directory
+		      (tramp-compat-delete-directory
 		       (expand-file-name ".." tmpfile) 'recursive)
 		    (delete-file tmpfile))
 		(error))))
 	;; Expand hops.  Might be necessary for gateway methods.
 	(setq host (tramp-file-name-real-host v)
 	      port (tramp-file-name-port v)
 	      port (or (and port (number-to-string port)) ""))
 	;; Compose copy command.
-	(setq spec `((?h . ,host) (?u . ,user) (?p . ,port)
+	(setq spec (format-spec-make
-		     (?t . ,(tramp-get-connection-property
+		    ?h host ?u user ?p port
-			     (tramp-get-connection-process v) "temp-file" ""))
+		    ?t (tramp-get-connection-property
-		     (?k . ,(if keep-date " " "")))
+			(tramp-get-connection-process v) "temp-file" "")
+		    ?k (if keep-date " " ""))
 	      copy-program (tramp-get-method-parameter
 			    method 'tramp-copy-program)
 	      copy-keep-date (tramp-get-method-parameter
 			      method 'tramp-copy-keep-date)
 	      copy-args
 ;; If the operation was `rename', delete the original file.
 (unless (eq op 'copy)
 	(if (file-regular-p filename)
 	    (delete-file filename)
-	  (delete-directory filename 'recursive))))))
+	  (tramp-compat-delete-directory filename 'recursive))))))
 (defun tramp-handle-make-directory (dir &optional parents)
 "Like `make-directory' for Tramp files."
 (setq dir (expand-file-name dir))
 (with-parsed-tramp-file-name dir nil
 (defun tramp-handle-find-backup-file-name (filename)
 "Like `find-backup-file-name' for Tramp files."
 (with-parsed-tramp-file-name filename nil
 ;; We set both variables. It doesn't matter whether it is
-;; Emacs or XEmacs
+;; Emacs or XEmacs.
 (let ((backup-directory-alist
-	   ;; Emacs case
+	   ;; Emacs case.
 	   (when (boundp 'backup-directory-alist)
 	     (if (symbol-value 'tramp-backup-directory-alist)
 		 (mapcar
 		  (lambda (x)
 		    (cons
 		       (cdr x))))
 		  (symbol-value 'tramp-backup-directory-alist))
 	       (symbol-value 'backup-directory-alist))))
 	  (bkup-backup-directory-info
-	   ;; XEmacs case
+	   ;; XEmacs case.
 	   (when (boundp 'bkup-backup-directory-info)
 	     (if (symbol-value 'tramp-bkup-backup-directory-info)
 		 (mapcar
 		  (lambda (x)
 		    (nconc
 ;; function as well but regexp only.
 (defun tramp-file-name-for-operation (operation &rest args)
 "Return file name related to OPERATION file primitive.
 ARGS are the arguments OPERATION has been called with."
 (cond
-; FILE resp DIRECTORY
+;; FILE resp DIRECTORY.
 ((member operation
 	    (list 'access-file 'byte-compiler-base-file-name 'delete-directory
 		  'delete-file 'diff-latest-backup-file 'directory-file-name
 		  'directory-files 'directory-files-and-attributes
 		  'dired-compress-file 'dired-uncache
 		  'file-writable-p 'find-backup-file-name 'find-file-noselect
 		  'get-file-buffer 'insert-directory 'insert-file-contents
 		  'load 'make-directory 'make-directory-internal
 		  'set-file-modes 'substitute-in-file-name
 		  'unhandled-file-name-directory 'vc-registered
-		  ; Emacs 22 only
+		  ;; Emacs 22+ only.
 		  'set-file-times
-		  ; XEmacs only
+		  ;; XEmacs only.
 		  'abbreviate-file-name 'create-file-buffer
 		  'dired-file-modtime 'dired-make-compressed-filename
 		  'dired-recursive-delete-directory 'dired-set-file-modtime
 		  'dired-shell-unhandle-file-name 'dired-uucode-file
 		  'insert-file-contents-literally 'make-temp-name 'recover-file
 		  'vm-imap-check-mail 'vm-pop-check-mail 'vm-spool-check-mail))
 (if (file-name-absolute-p (nth 0 args))
 	(nth 0 args)
 (expand-file-name (nth 0 args))))
-; FILE DIRECTORY resp FILE1 FILE2
+;; FILE DIRECTORY resp FILE1 FILE2.
 ((member operation
 	    (list 'add-name-to-file 'copy-file 'expand-file-name
 		  'file-name-all-completions 'file-name-completion
 		  'file-newer-than-file-p 'make-symbolic-link 'rename-file
-		  ; Emacs 23 only
+		  ;; Emacs 23+ only.
 		  'copy-directory
-		  ; XEmacs only
+		  ;; XEmacs only.
 		  'dired-make-relative-symlink
 		  'vm-imap-move-mail 'vm-pop-move-mail 'vm-spool-move-mail))
 (save-match-data
 (cond
 ((string-match tramp-file-name-regexp (nth 0 args)) (nth 0 args))
 ((string-match tramp-file-name-regexp (nth 1 args)) (nth 1 args))
 (t (buffer-file-name (current-buffer))))))
-; START END FILE
+;; START END FILE.
 ((eq operation 'write-region)
 (nth 2 args))
-; BUF
+;; BUFFER.
 ((member operation
 	    (list 'set-visited-file-modtime 'verify-visited-file-modtime
-; since Emacs 22 only
+;; Emacs 22+ only.
 		  'make-auto-save-file-name
-	          ; XEmacs only
+	          ;; XEmacs only.
 		  'backup-buffer))
 (buffer-file-name
 (if (bufferp (nth 0 args)) (nth 0 args) (current-buffer))))
-; COMMAND
+;; COMMAND.
 ((member operation
-	    (list ; not in Emacs 23
+	    (list ;; not in Emacs 23+.
 	          'dired-call-process
-; Emacs only
+;; Emacs only.
 		  'shell-command
-; since Emacs 22 only
+;; Emacs 22+ only.
 'process-file
-; since Emacs 23 only
+;; Emacs 23+ only.
 'start-file-process
-	          ; XEmacs only
+	          ;; XEmacs only.
 		  'dired-print-file 'dired-shell-call-process
-		  ; nowhere yet
+		  ;; nowhere yet.
 		  'executable-find 'start-process 'call-process))
 default-directory)
-; unknown file primitive
+;; Unknown file primitive.
 (t (error "unknown file I/O primitive: %s" operation))))
 (defun tramp-find-foreign-file-name-handler (filename)
 "Return foreign file name handler if exists."
-(when (and (stringp filename) (tramp-tramp-file-p filename))
+(when (tramp-tramp-file-p filename)
 (let ((v (tramp-dissect-file-name filename t))
 	  (handler tramp-foreign-file-name-handler-alist)
 	  elt res)
 ;; When we are not fully sure that filename completion is safe,
 ;; we should not return a handler.
 	(host   (tramp-file-name-real-host vec)))
 (if (not (zerop (length user)))
 	(format "*debug tramp/%s %s@%s*" method user host)
 (format "*debug tramp/%s %s*" method host))))
+(defconst tramp-debug-outline-regexp
+"[0-9]+:[0-9]+:[0-9]+\\.[0-9]+ [a-z0-9-]+ (\\([0-9]+\\)) #")
 (defun tramp-get-debug-buffer (vec)
 "Get the debug buffer for VEC."
 (with-current-buffer
 (get-buffer-create (tramp-debug-buffer-name vec))
 (when (bobp)
 (setq buffer-undo-list t)
-;; Activate outline-mode.  This runs `text-mode-hook' and
+;; Activate `outline-mode'.  This runs `text-mode-hook' and
 ;; `outline-mode-hook'.  We must prevent that local processes
-;; die.  Yes: I've seen `flyspell-mode', which starts "ispell"
+;; die.  Yes: I've seen `flyspell-mode', which starts "ispell".
-;; ...
+;; Furthermore, `outline-regexp' must have the correct value
-(let ((default-directory (tramp-compat-temporary-file-directory)))
+;; already, because it is used by `font-lock-compile-keywords'.
+(let ((default-directory (tramp-compat-temporary-file-directory))
+	    (outline-regexp tramp-debug-outline-regexp))
 	(outline-mode))
-(set (make-local-variable 'outline-regexp)
+(set (make-local-variable 'outline-regexp) tramp-debug-outline-regexp)
-	   "[0-9]+:[0-9]+:[0-9]+\\.[0-9]+ [a-z0-9-]+ (\\([0-9]+\\)) #")
-;      (set (make-local-variable 'outline-regexp)
-;	   "[a-z.-]+:[0-9]+: [a-z0-9-]+ (\\([0-9]+\\)) #")
 (set (make-local-variable 'outline-level) 'tramp-outline-level))
 (current-buffer)))
 (defun tramp-outline-level ()
 "Return the depth to which a statement is nested in the outline.
 	(goto-char (point-min))
 	(if (looking-at "^\\s-*1$")
 	    (setq result (concat "\\" progname))))
 (unless result
 	(when ignore-tilde
-	  ;; Remove all ~/foo directories from dirlist.  In Emacs 20,
+	  ;; Remove all ~/foo directories from dirlist.  In XEmacs,
 	  ;; `remove' is in CL, and we want to avoid CL dependencies.
 	  (let (newdl d)
 	    (while dirlist
 	      (setq d (car dirlist))
 	      (setq dirlist (cdr dirlist))
 (let ((begin (match-beginning 0)))
 	(when (re-search-forward tramp-echoed-echo-mark-regexp nil t)
 	  ;; Discard echo from remote output.
 	  (tramp-set-connection-property proc "check-remote-echo" nil)
 	  (tramp-message proc 5 "echo-mark found")
-	  (forward-line)
+	  (forward-line 1)
 	  (delete-region begin (point))
 	  (goto-char (point-min)))))
 (when (or (not (tramp-get-connection-property proc "check-remote-echo" nil))
 	      ;; Sometimes, the echo string is suppressed on the remote side.
 "perl -e 'binmode STDIN; binmode STDOUT; print pack(q{u*}, join q{}, <>)'"
 "perl -e 'binmode STDIN; binmode STDOUT; print unpack(q{u*}, join q{}, <>)'"))
 "List of local coding commands for inline transfer.
 Each item is a list that looks like this:
-\(FORMAT ENCODING DECODING)
+\(FORMAT ENCODING DECODING\)
 FORMAT is  symbol describing the encoding/decoding format.  It can be
 `b64' for base64 encoding, `uu' for uu encoding, or `pack' for simple packing.
 ENCODING and DECODING can be strings, giving commands, or symbols,
 "perl -e 'binmode STDIN; binmode STDOUT; print pack(q{u*}, join q{}, <>)'"
 "perl -e 'binmode STDIN; binmode STDOUT; print unpack(q{u*}, join q{}, <>)'"))
 "List of remote coding commands for inline transfer.
 Each item is a list that looks like this:
-\(FORMAT ENCODING DECODING)
+\(FORMAT ENCODING DECODING\)
 FORMAT is  symbol describing the encoding/decoding format.  It can be
 `b64' for base64 encoding, `uu' for uu encoding, or `pack' for simple packing.
 ENCODING and DECODING can be strings, giving commands, or symbols,
 	    (setq choices nil)
 	  ;; Replace placeholders.
 	  (setq proxy
 		(format-spec
 		 proxy
-		 `((?u . ,(or (tramp-file-name-user (car target-alist)) ""))
+		 (format-spec-make
-		   (?h . ,(or (tramp-file-name-host (car target-alist)) "")))))
+		  ?u (or (tramp-file-name-user (car target-alist)) "")
+		  ?h (or (tramp-file-name-host (car target-alist)) ""))))
 	  (with-parsed-tramp-file-name proxy l
 	    ;; Add the hop.
 	    (add-to-list 'target-alist l)
 	    ;; Start next search.
 	    (setq choices tramp-default-proxies-alist)))))
 	      ;; Replace login-args place holders.
 	      (setq
 	       l-host (or l-host "")
 	       l-user (or l-user "")
 	       l-port (or l-port "")
-	       spec `((?h . ,l-host) (?u . ,l-user) (?p . ,l-port)
+	       spec (format-spec-make ?h l-host ?u l-user ?p l-port ?t tmpfile)
-		      (?t . ,tmpfile))
 	       command
 	       (concat
 		;; We do not want to see the trailing local prompt in
 		;; `start-file-process'.
 		(unless (memq system-type '(windows-nt)) "exec ")
 ;; is cached persistently.
 (if (memq 'tramp-own-remote-path tramp-remote-path)
 	  (tramp-get-connection-process vec)
 	vec)
 "remote-path"
-(let* ((remote-path (tramp-compat-copy-tree tramp-remote-path))
+(let* ((remote-path (copy-tree tramp-remote-path))
 	   (elt1 (memq 'tramp-default-remote-path remote-path))
 	   (elt2 (memq 'tramp-own-remote-path remote-path))
 	   (default-remote-path
 	     (when elt1
 	       (condition-case nil
 (unless (tramp-exists-file-name-handler 'make-auto-save-file-name)
 (defadvice make-auto-save-file-name
 (around tramp-advice-make-auto-save-file-name () activate)
 "Invoke `tramp-handle-make-auto-save-file-name' for Tramp files."
-(if (and (buffer-file-name) (tramp-tramp-file-p (buffer-file-name)))
+(if (tramp-tramp-file-p (buffer-file-name))
 	;; We cannot call `tramp-handle-make-auto-save-file-name'
 	;; directly, because this would bypass the locking mechanism.
 	(setq ad-return-value
 	      (tramp-file-name-handler 'make-auto-save-file-name))
 ad-do-it))
 (ad-remove-advice
 'make-auto-save-file-name
 'around 'tramp-advice-make-auto-save-file-name)
 (ad-activate 'make-auto-save-file-name))))
-;; In Emacs < 22 and XEmacs < 21.5 autosaved remote files have
+;; In XEmacs < 21.5, autosaved remote files have permission 0666 minus
-;; permission 0666 minus umask. This is a security threat.
+;; umask. This is a security threat.
 (defun tramp-set-auto-save-file-modes ()
 "Set permissions of autosaved remote files to the original permissions."
 (let ((bfn (buffer-file-name)))
-(when (and (stringp bfn)
+(when (and (tramp-tramp-file-p bfn)
-	       (tramp-tramp-file-p bfn)
 	       (buffer-modified-p)
 	       (stringp buffer-auto-save-file-name)
 	       (not (equal bfn buffer-auto-save-file-name)))
 (unless (file-exists-p buffer-auto-save-file-name)
 	(write-region "" nil buffer-auto-save-file-name))
 ;; auto-saved file belonging to another original file.  This could
 ;; be a security threat.
 (set-file-modes buffer-auto-save-file-name
 		      (or (file-modes bfn) (tramp-octal-to-decimal "0600"))))))
-(unless (or (> emacs-major-version 21)
+(unless (and (featurep 'xemacs)
-	    (and (featurep 'xemacs)
+	     (= emacs-major-version 21)
-		 (= emacs-major-version 21)
+	     (> emacs-minor-version 4))
-		 (> emacs-minor-version 4)))
 (add-hook 'auto-save-hook 'tramp-set-auto-save-file-modes)
 (add-hook 'tramp-unload-hook
 	    (lambda ()
 	      (remove-hook 'auto-save-hook 'tramp-set-auto-save-file-modes))))
 ;;   improve Tramp to set LC_ALL to "C" only for commands where Tramp
 ;;   expects English?  Or just to set LC_MESSAGES to "C" if Tramp
 ;;   expects only English messages?  (Juri Linkov)
 ;; * Make shadowfile.el grok Tramp filenames.  (Bug#4526, Bug#4846)
 ;; * Do not handle files with drive letter as remote.  (Bug#5447)
-;; * Load Tramp subpackages only when needed.  (Bug#1529, Bug#5448)
+;; * Load Tramp subpackages only when needed.  (Bug#1529, Bug#5448, Bug#5705)
 ;; * Try telnet+curl as new method.  It might be useful for busybox,
 ;;   without built-in uuencode/uudecode.
 ;; * Let `shell-dynamic-complete-*' and `comint-dynamic-complete' work
 ;;   on remote hosts.
 ;; * Use secrets.el for password handling.

Mercurial > emacs

comparison lisp/net/tramp.el @ 107820:e97568b31550