[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
tramp (2.2.6-pre); Persistent attempts to "go remote"
From: |
Dave Abrahams |
Subject: |
tramp (2.2.6-pre); Persistent attempts to "go remote" |
Date: |
Tue, 09 Oct 2012 21:31:08 -0400 |
Enter your bug report in this message, including as much detail
as you possibly can about the problem, what you did to cause it
and what the local and remote machines are.
If you can give a simple set of instructions to make this bug
happen reliably, please include those. Thank you for helping
kill bugs in Tramp.
Before reproducing the bug, you might apply
M-x tramp-cleanup-all-connections
This allows to investigate from a clean environment. Another
useful thing to do is to put
(setq tramp-verbose 9)
in the ~/.emacs file and to repeat the bug. Then, include the
contents of the *tramp/foo* buffer and the *debug tramp/foo*
buffer in your bug report.
--bug report follows this line--
Hi Michael,
Despite having done tramp-cleanup-all-connections and
tramp-cleanup-all-buffers, my use of `M-x shell-command ... &' with
something that invokes emacsclient is causing TRAMP to try to reconnect.
I'm not sure of the reasons; the stack trace seems to indicate that EDE
may be involved. I'll try to leave this Emacs process around so we can
debug it...
--8<---------------cut here---------------start------------->8---
tramp-process-actions(#<process *tramp/scpc io.local*> ["scpc" nil "io.local"
"/private/tmp/emacs-mac-mrNX/" nil] 89 ((tramp-login-prompt-regexp
tramp-action-login) (tramp-password-prompt-regexp tramp-action-password)
(tramp-wrong-passwd-regexp tramp-action-permission-denied)
(shell-prompt-pattern tramp-action-succeed) (tramp-shell-prompt-pattern
tramp-action-succeed) (tramp-yesno-prompt-regexp tramp-action-yesno)
(tramp-yn-prompt-regexp tramp-action-yn) (tramp-terminal-prompt-regexp
tramp-action-terminal) (tramp-process-alive-regexp tramp-action-process-alive))
60)
(let* ((hop (car target-alist)) (l-method (tramp-file-name-method hop))
(l-user (tramp-file-name-user hop)) (l-host (tramp-file-name-host hop)) (l-port
nil) (login-program (tramp-get-method-parameter l-method (quote
tramp-login-program))) (login-args (tramp-get-method-parameter l-method (quote
tramp-login-args))) (async-args (tramp-get-method-parameter l-method (quote
tramp-async-args))) (gw-args (tramp-get-method-parameter l-method (quote
tramp-gw-args))) (gw (tramp-get-file-property hop "" "gateway" nil)) (g-method
(and gw (tramp-file-name-method gw))) (g-user (and gw (tramp-file-name-user
gw))) (g-host (and gw (tramp-file-name-real-host gw))) (command login-program)
(tmpfile (tramp-set-connection-property p "temp-file" (make-temp-name
(expand-file-name tramp-temp-name-prefix
(tramp-compat-temporary-file-directory))))) spec) (when (and process-name
async-args) (setq login-args (append async-args login-args))) (when (and gw
gw-args) (setq login-args (append gw-args login-args))) (when (string-match
tramp-host-with-port-regexp l-host) (setq l-port (match-string 2 l-host) l-host
(match-string 1 l-host))) (setq tramp-current-method (or g-method l-method)
tramp-current-user (or g-user l-user) tramp-current-host (or g-host l-host))
(setq l-host (or l-host "") l-user (or l-user "") l-port (or l-port "") spec
(format-spec-make 104 l-host 117 l-user 112 l-port 116 tmpfile) command (concat
(unless (memq system-type (quote (windows-nt))) "exec ") command " " (mapconcat
(lambda (x) (setq x (mapcar (lambda ... ...) x)) (unless (member "" x)
(mapconcat (quote identity) x " "))) login-args " ") (if (memq system-type
(quote (windows-nt))) " && exit || exit"))) (tramp-message vec 3 "Sending
command `%s'" command) (tramp-send-command vec command t t)
(tramp-process-actions p vec pos tramp-actions-before-shell 60) (tramp-message
vec 3 "Found remote shell prompt on `%s'" l-host))
(while target-alist (let* ((hop (car target-alist)) (l-method
(tramp-file-name-method hop)) (l-user (tramp-file-name-user hop)) (l-host
(tramp-file-name-host hop)) (l-port nil) (login-program
(tramp-get-method-parameter l-method (quote tramp-login-program))) (login-args
(tramp-get-method-parameter l-method (quote tramp-login-args))) (async-args
(tramp-get-method-parameter l-method (quote tramp-async-args))) (gw-args
(tramp-get-method-parameter l-method (quote tramp-gw-args))) (gw
(tramp-get-file-property hop "" "gateway" nil)) (g-method (and gw
(tramp-file-name-method gw))) (g-user (and gw (tramp-file-name-user gw)))
(g-host (and gw (tramp-file-name-real-host gw))) (command login-program)
(tmpfile (tramp-set-connection-property p "temp-file" (make-temp-name
(expand-file-name tramp-temp-name-prefix
(tramp-compat-temporary-file-directory))))) spec) (when (and process-name
async-args) (setq login-args (append async-args login-args))) (when (and gw
gw-args) (setq login-args (append gw-args login-args))) (when (string-match
tramp-host-with-port-regexp l-host) (setq l-port (match-string 2 l-host) l-host
(match-string 1 l-host))) (setq tramp-current-method (or g-method l-method)
tramp-current-user (or g-user l-user) tramp-current-host (or g-host l-host))
(setq l-host (or l-host "") l-user (or l-user "") l-port (or l-port "") spec
(format-spec-make 104 l-host 117 l-user 112 l-port 116 tmpfile) command (concat
(unless (memq system-type (quote (windows-nt))) "exec ") command " " (mapconcat
(lambda (x) (setq x (mapcar ... x)) (unless (member "" x) (mapconcat ... x "
"))) login-args " ") (if (memq system-type (quote (windows-nt))) " && exit ||
exit"))) (tramp-message vec 3 "Sending command `%s'" command)
(tramp-send-command vec command t t) (tramp-process-actions p vec pos
tramp-actions-before-shell 60) (tramp-message vec 3 "Found remote shell prompt
on `%s'" l-host)) (setq target-alist (cdr target-alist)))
(let* ((target-alist (tramp-compute-multi-hops vec)) (process-connection-type
tramp-process-connection-type) (process-adaptive-read-buffering nil)
(coding-system-for-read nil) (p (let ((default-directory
(tramp-compat-temporary-file-directory))) (apply (quote start-process)
(tramp-get-connection-name vec) (tramp-get-connection-buffer vec) (if
tramp-encoding-command-interactive (list tramp-encoding-shell
tramp-encoding-command-interactive) (list tramp-encoding-shell))))))
(tramp-set-connection-property p "vector" vec) (set-process-sentinel p (quote
tramp-process-sentinel)) (tramp-compat-set-process-query-on-exit-flag p nil)
(setq tramp-current-connection (cons (butlast (append vec nil))
(current-time))) (tramp-message vec 6 "%s" (mapconcat (quote identity)
(process-command p) " ")) (tramp-barf-if-no-shell-prompt p 60 "Couldn't find
local shell prompt %s" tramp-encoding-shell) (while target-alist (let* ((hop
(car target-alist)) (l-method (tramp-file-name-method hop)) (l-user
(tramp-file-name-user hop)) (l-host (tramp-file-name-host hop)) (l-port nil)
(login-program (tramp-get-method-parameter l-method (quote
tramp-login-program))) (login-args (tramp-get-method-parameter l-method (quote
tramp-login-args))) (async-args (tramp-get-method-parameter l-method (quote
tramp-async-args))) (gw-args (tramp-get-method-parameter l-method (quote
tramp-gw-args))) (gw (tramp-get-file-property hop "" "gateway" nil)) (g-method
(and gw (tramp-file-name-method gw))) (g-user (and gw (tramp-file-name-user
gw))) (g-host (and gw (tramp-file-name-real-host gw))) (command login-program)
(tmpfile (tramp-set-connection-property p "temp-file" (make-temp-name
(expand-file-name tramp-temp-name-prefix ...)))) spec) (when (and process-name
async-args) (setq login-args (append async-args login-args))) (when (and gw
gw-args) (setq login-args (append gw-args login-args))) (when (string-match
tramp-host-with-port-regexp l-host) (setq l-port (match-string 2 l-host) l-host
(match-string 1 l-host))) (setq tramp-current-method (or g-method l-method)
tramp-current-user (or g-user l-user) tramp-current-host (or g-host l-host))
(setq l-host (or l-host "") l-user (or l-user "") l-port (or l-port "") spec
(format-spec-make 104 l-host 117 l-user 112 l-port 116 tmpfile) command (concat
(unless (memq system-type (quote ...)) "exec ") command " " (mapconcat (lambda
(x) (setq x ...) (unless ... ...)) login-args " ") (if (memq system-type (quote
...)) " && exit || exit"))) (tramp-message vec 3 "Sending command `%s'"
command) (tramp-send-command vec command t t) (tramp-process-actions p vec pos
tramp-actions-before-shell 60) (tramp-message vec 3 "Found remote shell prompt
on `%s'" l-host)) (setq target-alist (cdr target-alist)))
(tramp-open-connection-setup-interactive-shell p vec))
(let ((tramp-message-show-progress-reporter-message (and
tramp-message-show-progress-reporter-message (not tm)))) (when (and p (processp
p)) (delete-process p)) (setenv "TERM" tramp-terminal-type) (setenv "LC_ALL"
"C") (setenv "PROMPT_COMMAND") (setenv "PS1" tramp-initial-end-of-output) (let*
((target-alist (tramp-compute-multi-hops vec)) (process-connection-type
tramp-process-connection-type) (process-adaptive-read-buffering nil)
(coding-system-for-read nil) (p (let ((default-directory
(tramp-compat-temporary-file-directory))) (apply (quote start-process)
(tramp-get-connection-name vec) (tramp-get-connection-buffer vec) (if
tramp-encoding-command-interactive (list tramp-encoding-shell
tramp-encoding-command-interactive) (list tramp-encoding-shell))))))
(tramp-set-connection-property p "vector" vec) (set-process-sentinel p (quote
tramp-process-sentinel)) (tramp-compat-set-process-query-on-exit-flag p nil)
(setq tramp-current-connection (cons (butlast (append vec nil))
(current-time))) (tramp-message vec 6 "%s" (mapconcat (quote identity)
(process-command p) " ")) (tramp-barf-if-no-shell-prompt p 60 "Couldn't find
local shell prompt %s" tramp-encoding-shell) (while target-alist (let* ((hop
(car target-alist)) (l-method (tramp-file-name-method hop)) (l-user
(tramp-file-name-user hop)) (l-host (tramp-file-name-host hop)) (l-port nil)
(login-program (tramp-get-method-parameter l-method (quote
tramp-login-program))) (login-args (tramp-get-method-parameter l-method (quote
tramp-login-args))) (async-args (tramp-get-method-parameter l-method (quote
tramp-async-args))) (gw-args (tramp-get-method-parameter l-method (quote
tramp-gw-args))) (gw (tramp-get-file-property hop "" "gateway" nil)) (g-method
(and gw (tramp-file-name-method gw))) (g-user (and gw (tramp-file-name-user
gw))) (g-host (and gw (tramp-file-name-real-host gw))) (command login-program)
(tmpfile (tramp-set-connection-property p "temp-file" (make-temp-name ...)))
spec) (when (and process-name async-args) (setq login-args (append async-args
login-args))) (when (and gw gw-args) (setq login-args (append gw-args
login-args))) (when (string-match tramp-host-with-port-regexp l-host) (setq
l-port (match-string 2 l-host) l-host (match-string 1 l-host))) (setq
tramp-current-method (or g-method l-method) tramp-current-user (or g-user
l-user) tramp-current-host (or g-host l-host)) (setq l-host (or l-host "")
l-user (or l-user "") l-port (or l-port "") spec (format-spec-make 104 l-host
117 l-user 112 l-port 116 tmpfile) command (concat (unless (memq system-type
...) "exec ") command " " (mapconcat (lambda ... ... ...) login-args " ") (if
(memq system-type ...) " && exit || exit"))) (tramp-message vec 3 "Sending
command `%s'" command) (tramp-send-command vec command t t)
(tramp-process-actions p vec pos tramp-actions-before-shell 60) (tramp-message
vec 3 "Found remote shell prompt on `%s'" l-host)) (setq target-alist (cdr
target-alist))) (tramp-open-connection-setup-interactive-shell p vec)))
(unwind-protect (let ((tramp-message-show-progress-reporter-message (and
tramp-message-show-progress-reporter-message (not tm)))) (when (and p (processp
p)) (delete-process p)) (setenv "TERM" tramp-terminal-type) (setenv "LC_ALL"
"C") (setenv "PROMPT_COMMAND") (setenv "PS1" tramp-initial-end-of-output) (let*
((target-alist (tramp-compute-multi-hops vec)) (process-connection-type
tramp-process-connection-type) (process-adaptive-read-buffering nil)
(coding-system-for-read nil) (p (let ((default-directory ...)) (apply (quote
start-process) (tramp-get-connection-name vec) (tramp-get-connection-buffer
vec) (if tramp-encoding-command-interactive ... ...)))))
(tramp-set-connection-property p "vector" vec) (set-process-sentinel p (quote
tramp-process-sentinel)) (tramp-compat-set-process-query-on-exit-flag p nil)
(setq tramp-current-connection (cons (butlast (append vec nil))
(current-time))) (tramp-message vec 6 "%s" (mapconcat (quote identity)
(process-command p) " ")) (tramp-barf-if-no-shell-prompt p 60 "Couldn't find
local shell prompt %s" tramp-encoding-shell) (while target-alist (let* ((hop
(car target-alist)) (l-method (tramp-file-name-method hop)) (l-user
(tramp-file-name-user hop)) (l-host (tramp-file-name-host hop)) (l-port nil)
(login-program (tramp-get-method-parameter l-method ...)) (login-args
(tramp-get-method-parameter l-method ...)) (async-args
(tramp-get-method-parameter l-method ...)) (gw-args (tramp-get-method-parameter
l-method ...)) (gw (tramp-get-file-property hop "" "gateway" nil)) (g-method
(and gw ...)) (g-user (and gw ...)) (g-host (and gw ...)) (command
login-program) (tmpfile (tramp-set-connection-property p "temp-file" ...))
spec) (when (and process-name async-args) (setq login-args (append async-args
login-args))) (when (and gw gw-args) (setq login-args (append gw-args
login-args))) (when (string-match tramp-host-with-port-regexp l-host) (setq
l-port (match-string 2 l-host) l-host (match-string 1 l-host))) (setq
tramp-current-method (or g-method l-method) tramp-current-user (or g-user
l-user) tramp-current-host (or g-host l-host)) (setq l-host (or l-host "")
l-user (or l-user "") l-port (or l-port "") spec (format-spec-make 104 l-host
117 l-user 112 l-port 116 tmpfile) command (concat (unless ... "exec ") command
" " (mapconcat ... login-args " ") (if ... " && exit || exit"))) (tramp-message
vec 3 "Sending command `%s'" command) (tramp-send-command vec command t t)
(tramp-process-actions p vec pos tramp-actions-before-shell 60) (tramp-message
vec 3 "Found remote shell prompt on `%s'" l-host)) (setq target-alist (cdr
target-alist))) (tramp-open-connection-setup-interactive-shell p vec))) (if tm
(tramp-compat-funcall (quote cancel-timer) tm)) (tramp-message vec 3
"%s...done" (if (zerop (length (tramp-file-name-user vec))) (format "Opening
connection for %s using %s" (tramp-file-name-host vec) (tramp-file-name-method
vec)) (format "Opening connection for address@hidden using %s"
(tramp-file-name-user vec) (tramp-file-name-host vec) (tramp-file-name-method
vec)))))
(let (pr tm) (tramp-message vec 3 "%s..." (if (zerop (length
(tramp-file-name-user vec))) (format "Opening connection for %s using %s"
(tramp-file-name-host vec) (tramp-file-name-method vec)) (format "Opening
connection for address@hidden using %s" (tramp-file-name-user vec)
(tramp-file-name-host vec) (tramp-file-name-method vec)))) (when (and
tramp-message-show-progress-reporter-message tramp-message-show-message (<= 3
(min tramp-verbose 3))) (ignore-errors (setq pr (tramp-compat-funcall (quote
make-progress-reporter) (if (zerop (length ...)) (format "Opening connection
for %s using %s" (tramp-file-name-host vec) (tramp-file-name-method vec))
(format "Opening connection for address@hidden using %s" (tramp-file-name-user
vec) (tramp-file-name-host vec) (tramp-file-name-method vec)))) tm (when pr
(run-at-time 3 0.1 (quote tramp-progress-reporter-update) pr)))))
(unwind-protect (let ((tramp-message-show-progress-reporter-message (and
tramp-message-show-progress-reporter-message (not tm)))) (when (and p (processp
p)) (delete-process p)) (setenv "TERM" tramp-terminal-type) (setenv "LC_ALL"
"C") (setenv "PROMPT_COMMAND") (setenv "PS1" tramp-initial-end-of-output) (let*
((target-alist (tramp-compute-multi-hops vec)) (process-connection-type
tramp-process-connection-type) (process-adaptive-read-buffering nil)
(coding-system-for-read nil) (p (let (...) (apply ... ... ... ...))))
(tramp-set-connection-property p "vector" vec) (set-process-sentinel p (quote
tramp-process-sentinel)) (tramp-compat-set-process-query-on-exit-flag p nil)
(setq tramp-current-connection (cons (butlast (append vec nil))
(current-time))) (tramp-message vec 6 "%s" (mapconcat (quote identity)
(process-command p) " ")) (tramp-barf-if-no-shell-prompt p 60 "Couldn't find
local shell prompt %s" tramp-encoding-shell) (while target-alist (let* ((hop
...) (l-method ...) (l-user ...) (l-host ...) (l-port nil) (login-program ...)
(login-args ...) (async-args ...) (gw-args ...) (gw ...) (g-method ...) (g-user
...) (g-host ...) (command login-program) (tmpfile ...) spec) (when (and
process-name async-args) (setq login-args ...)) (when (and gw gw-args) (setq
login-args ...)) (when (string-match tramp-host-with-port-regexp l-host) (setq
l-port ... l-host ...)) (setq tramp-current-method (or g-method l-method)
tramp-current-user (or g-user l-user) tramp-current-host (or g-host l-host))
(setq l-host (or l-host "") l-user (or l-user "") l-port (or l-port "") spec
(format-spec-make 104 l-host 117 l-user 112 l-port 116 tmpfile) command (concat
... command " " ... ...)) (tramp-message vec 3 "Sending command `%s'" command)
(tramp-send-command vec command t t) (tramp-process-actions p vec pos
tramp-actions-before-shell 60) (tramp-message vec 3 "Found remote shell prompt
on `%s'" l-host)) (setq target-alist (cdr target-alist)))
(tramp-open-connection-setup-interactive-shell p vec))) (if tm
(tramp-compat-funcall (quote cancel-timer) tm)) (tramp-message vec 3
"%s...done" (if (zerop (length (tramp-file-name-user vec))) (format "Opening
connection for %s using %s" (tramp-file-name-host vec) (tramp-file-name-method
vec)) (format "Opening connection for address@hidden using %s"
(tramp-file-name-user vec) (tramp-file-name-host vec) (tramp-file-name-method
vec))))))
(tramp-with-progress-reporter vec 3 (if (zerop (length (tramp-file-name-user
vec))) (format "Opening connection for %s using %s" (tramp-file-name-host vec)
(tramp-file-name-method vec)) (format "Opening connection for address@hidden
using %s" (tramp-file-name-user vec) (tramp-file-name-host vec)
(tramp-file-name-method vec))) (when (and p (processp p)) (delete-process p))
(setenv "TERM" tramp-terminal-type) (setenv "LC_ALL" "C") (setenv
"PROMPT_COMMAND") (setenv "PS1" tramp-initial-end-of-output) (let*
((target-alist (tramp-compute-multi-hops vec)) (process-connection-type
tramp-process-connection-type) (process-adaptive-read-buffering nil)
(coding-system-for-read nil) (p (let ((default-directory
(tramp-compat-temporary-file-directory))) (apply (quote start-process)
(tramp-get-connection-name vec) (tramp-get-connection-buffer vec) (if
tramp-encoding-command-interactive (list tramp-encoding-shell
tramp-encoding-command-interactive) (list tramp-encoding-shell))))))
(tramp-set-connection-property p "vector" vec) (set-process-sentinel p (quote
tramp-process-sentinel)) (tramp-compat-set-process-query-on-exit-flag p nil)
(setq tramp-current-connection (cons (butlast (append vec nil))
(current-time))) (tramp-message vec 6 "%s" (mapconcat (quote identity)
(process-command p) " ")) (tramp-barf-if-no-shell-prompt p 60 "Couldn't find
local shell prompt %s" tramp-encoding-shell) (while target-alist (let* ((hop
(car target-alist)) (l-method (tramp-file-name-method hop)) (l-user
(tramp-file-name-user hop)) (l-host (tramp-file-name-host hop)) (l-port nil)
(login-program (tramp-get-method-parameter l-method (quote
tramp-login-program))) (login-args (tramp-get-method-parameter l-method (quote
tramp-login-args))) (async-args (tramp-get-method-parameter l-method (quote
tramp-async-args))) (gw-args (tramp-get-method-parameter l-method (quote
tramp-gw-args))) (gw (tramp-get-file-property hop "" "gateway" nil)) (g-method
(and gw (tramp-file-name-method gw))) (g-user (and gw (tramp-file-name-user
gw))) (g-host (and gw (tramp-file-name-real-host gw))) (command login-program)
(tmpfile (tramp-set-connection-property p "temp-file" (make-temp-name ...)))
spec) (when (and process-name async-args) (setq login-args (append async-args
login-args))) (when (and gw gw-args) (setq login-args (append gw-args
login-args))) (when (string-match tramp-host-with-port-regexp l-host) (setq
l-port (match-string 2 l-host) l-host (match-string 1 l-host))) (setq
tramp-current-method (or g-method l-method) tramp-current-user (or g-user
l-user) tramp-current-host (or g-host l-host)) (setq l-host (or l-host "")
l-user (or l-user "") l-port (or l-port "") spec (format-spec-make 104 l-host
117 l-user 112 l-port 116 tmpfile) command (concat (unless (memq system-type
...) "exec ") command " " (mapconcat (lambda ... ... ...) login-args " ") (if
(memq system-type ...) " && exit || exit"))) (tramp-message vec 3 "Sending
command `%s'" command) (tramp-send-command vec command t t)
(tramp-process-actions p vec pos tramp-actions-before-shell 60) (tramp-message
vec 3 "Found remote shell prompt on `%s'" l-host)) (setq target-alist (cdr
target-alist))) (tramp-open-connection-setup-interactive-shell p vec)))
(if (and p (processp p) (memq (process-status p) (quote (run open)))) nil
(tramp-get-buffer vec) (when (and (boundp (quote non-essential)) (symbol-value
(quote non-essential))) (throw (quote non-essential) (quote non-essential)))
(tramp-with-progress-reporter vec 3 (if (zerop (length (tramp-file-name-user
vec))) (format "Opening connection for %s using %s" (tramp-file-name-host vec)
(tramp-file-name-method vec)) (format "Opening connection for address@hidden
using %s" (tramp-file-name-user vec) (tramp-file-name-host vec)
(tramp-file-name-method vec))) (when (and p (processp p)) (delete-process p))
(setenv "TERM" tramp-terminal-type) (setenv "LC_ALL" "C") (setenv
"PROMPT_COMMAND") (setenv "PS1" tramp-initial-end-of-output) (let*
((target-alist (tramp-compute-multi-hops vec)) (process-connection-type
tramp-process-connection-type) (process-adaptive-read-buffering nil)
(coding-system-for-read nil) (p (let ((default-directory ...)) (apply (quote
start-process) (tramp-get-connection-name vec) (tramp-get-connection-buffer
vec) (if tramp-encoding-command-interactive ... ...)))))
(tramp-set-connection-property p "vector" vec) (set-process-sentinel p (quote
tramp-process-sentinel)) (tramp-compat-set-process-query-on-exit-flag p nil)
(setq tramp-current-connection (cons (butlast (append vec nil))
(current-time))) (tramp-message vec 6 "%s" (mapconcat (quote identity)
(process-command p) " ")) (tramp-barf-if-no-shell-prompt p 60 "Couldn't find
local shell prompt %s" tramp-encoding-shell) (while target-alist (let* ((hop
(car target-alist)) (l-method (tramp-file-name-method hop)) (l-user
(tramp-file-name-user hop)) (l-host (tramp-file-name-host hop)) (l-port nil)
(login-program (tramp-get-method-parameter l-method ...)) (login-args
(tramp-get-method-parameter l-method ...)) (async-args
(tramp-get-method-parameter l-method ...)) (gw-args (tramp-get-method-parameter
l-method ...)) (gw (tramp-get-file-property hop "" "gateway" nil)) (g-method
(and gw ...)) (g-user (and gw ...)) (g-host (and gw ...)) (command
login-program) (tmpfile (tramp-set-connection-property p "temp-file" ...))
spec) (when (and process-name async-args) (setq login-args (append async-args
login-args))) (when (and gw gw-args) (setq login-args (append gw-args
login-args))) (when (string-match tramp-host-with-port-regexp l-host) (setq
l-port (match-string 2 l-host) l-host (match-string 1 l-host))) (setq
tramp-current-method (or g-method l-method) tramp-current-user (or g-user
l-user) tramp-current-host (or g-host l-host)) (setq l-host (or l-host "")
l-user (or l-user "") l-port (or l-port "") spec (format-spec-make 104 l-host
117 l-user 112 l-port 116 tmpfile) command (concat (unless ... "exec ") command
" " (mapconcat ... login-args " ") (if ... " && exit || exit"))) (tramp-message
vec 3 "Sending command `%s'" command) (tramp-send-command vec command t t)
(tramp-process-actions p vec pos tramp-actions-before-shell 60) (tramp-message
vec 3 "Found remote shell prompt on `%s'" l-host)) (setq target-alist (cdr
target-alist))) (tramp-open-connection-setup-interactive-shell p vec))))
(unless (and p (processp p) (memq (process-status p) (quote (run open))))
(tramp-get-buffer vec) (when (and (boundp (quote non-essential)) (symbol-value
(quote non-essential))) (throw (quote non-essential) (quote non-essential)))
(tramp-with-progress-reporter vec 3 (if (zerop (length (tramp-file-name-user
vec))) (format "Opening connection for %s using %s" (tramp-file-name-host vec)
(tramp-file-name-method vec)) (format "Opening connection for address@hidden
using %s" (tramp-file-name-user vec) (tramp-file-name-host vec)
(tramp-file-name-method vec))) (when (and p (processp p)) (delete-process p))
(setenv "TERM" tramp-terminal-type) (setenv "LC_ALL" "C") (setenv
"PROMPT_COMMAND") (setenv "PS1" tramp-initial-end-of-output) (let*
((target-alist (tramp-compute-multi-hops vec)) (process-connection-type
tramp-process-connection-type) (process-adaptive-read-buffering nil)
(coding-system-for-read nil) (p (let ((default-directory ...)) (apply (quote
start-process) (tramp-get-connection-name vec) (tramp-get-connection-buffer
vec) (if tramp-encoding-command-interactive ... ...)))))
(tramp-set-connection-property p "vector" vec) (set-process-sentinel p (quote
tramp-process-sentinel)) (tramp-compat-set-process-query-on-exit-flag p nil)
(setq tramp-current-connection (cons (butlast (append vec nil))
(current-time))) (tramp-message vec 6 "%s" (mapconcat (quote identity)
(process-command p) " ")) (tramp-barf-if-no-shell-prompt p 60 "Couldn't find
local shell prompt %s" tramp-encoding-shell) (while target-alist (let* ((hop
(car target-alist)) (l-method (tramp-file-name-method hop)) (l-user
(tramp-file-name-user hop)) (l-host (tramp-file-name-host hop)) (l-port nil)
(login-program (tramp-get-method-parameter l-method ...)) (login-args
(tramp-get-method-parameter l-method ...)) (async-args
(tramp-get-method-parameter l-method ...)) (gw-args (tramp-get-method-parameter
l-method ...)) (gw (tramp-get-file-property hop "" "gateway" nil)) (g-method
(and gw ...)) (g-user (and gw ...)) (g-host (and gw ...)) (command
login-program) (tmpfile (tramp-set-connection-property p "temp-file" ...))
spec) (when (and process-name async-args) (setq login-args (append async-args
login-args))) (when (and gw gw-args) (setq login-args (append gw-args
login-args))) (when (string-match tramp-host-with-port-regexp l-host) (setq
l-port (match-string 2 l-host) l-host (match-string 1 l-host))) (setq
tramp-current-method (or g-method l-method) tramp-current-user (or g-user
l-user) tramp-current-host (or g-host l-host)) (setq l-host (or l-host "")
l-user (or l-user "") l-port (or l-port "") spec (format-spec-make 104 l-host
117 l-user 112 l-port 116 tmpfile) command (concat (unless ... "exec ") command
" " (mapconcat ... login-args " ") (if ... " && exit || exit"))) (tramp-message
vec 3 "Sending command `%s'" command) (tramp-send-command vec command t t)
(tramp-process-actions p vec pos tramp-actions-before-shell 60) (tramp-message
vec 3 "Found remote shell prompt on `%s'" l-host)) (setq target-alist (cdr
target-alist))) (tramp-open-connection-setup-interactive-shell p vec))))
(condition-case err (unless (and p (processp p) (memq (process-status p)
(quote (run open)))) (tramp-get-buffer vec) (when (and (boundp (quote
non-essential)) (symbol-value (quote non-essential))) (throw (quote
non-essential) (quote non-essential))) (tramp-with-progress-reporter vec 3 (if
(zerop (length (tramp-file-name-user vec))) (format "Opening connection for %s
using %s" (tramp-file-name-host vec) (tramp-file-name-method vec)) (format
"Opening connection for address@hidden using %s" (tramp-file-name-user vec)
(tramp-file-name-host vec) (tramp-file-name-method vec))) (when (and p
(processp p)) (delete-process p)) (setenv "TERM" tramp-terminal-type) (setenv
"LC_ALL" "C") (setenv "PROMPT_COMMAND") (setenv "PS1"
tramp-initial-end-of-output) (let* ((target-alist (tramp-compute-multi-hops
vec)) (process-connection-type tramp-process-connection-type)
(process-adaptive-read-buffering nil) (coding-system-for-read nil) (p (let
(...) (apply ... ... ... ...)))) (tramp-set-connection-property p "vector" vec)
(set-process-sentinel p (quote tramp-process-sentinel))
(tramp-compat-set-process-query-on-exit-flag p nil) (setq
tramp-current-connection (cons (butlast (append vec nil)) (current-time)))
(tramp-message vec 6 "%s" (mapconcat (quote identity) (process-command p) " "))
(tramp-barf-if-no-shell-prompt p 60 "Couldn't find local shell prompt %s"
tramp-encoding-shell) (while target-alist (let* ((hop ...) (l-method ...)
(l-user ...) (l-host ...) (l-port nil) (login-program ...) (login-args ...)
(async-args ...) (gw-args ...) (gw ...) (g-method ...) (g-user ...) (g-host
...) (command login-program) (tmpfile ...) spec) (when (and process-name
async-args) (setq login-args ...)) (when (and gw gw-args) (setq login-args
...)) (when (string-match tramp-host-with-port-regexp l-host) (setq l-port ...
l-host ...)) (setq tramp-current-method (or g-method l-method)
tramp-current-user (or g-user l-user) tramp-current-host (or g-host l-host))
(setq l-host (or l-host "") l-user (or l-user "") l-port (or l-port "") spec
(format-spec-make 104 l-host 117 l-user 112 l-port 116 tmpfile) command (concat
... command " " ... ...)) (tramp-message vec 3 "Sending command `%s'" command)
(tramp-send-command vec command t t) (tramp-process-actions p vec pos
tramp-actions-before-shell 60) (tramp-message vec 3 "Found remote shell prompt
on `%s'" l-host)) (setq target-alist (cdr target-alist)))
(tramp-open-connection-setup-interactive-shell p vec)))) (quit (tramp-cleanup
vec) (signal (car err) (cdr err))))
(let ((p (tramp-get-connection-process vec)) (process-name
(tramp-get-connection-property vec "process-name" nil)) (process-environment
(copy-sequence process-environment)) (pos (with-current-buffer
(tramp-get-connection-buffer vec) (point)))) (unless (or (and p (processp p)
(memq (process-status p) (quote (run open)))) (not (equal (butlast (append vec
nil)) (car tramp-current-connection))) (> (tramp-time-diff (current-time) (cdr
tramp-current-connection)) 5)) (throw (quote suppress) (quote suppress)))
(condition-case nil (when (and (> (tramp-time-diff (current-time)
(tramp-get-connection-property p "last-cmd-time" (quote ...))) 60) p (processp
p) (memq (process-status p) (quote (run open)))) (tramp-send-command vec "echo
are you awake" t t) (unless (and (memq (process-status p) (quote (run open)))
(tramp-wait-for-output p 10)) (tramp-error vec (quote file-error) "Awake did
fail"))) (file-error (tramp-cleanup vec) (setq p nil))) (condition-case err
(unless (and p (processp p) (memq (process-status p) (quote (run open))))
(tramp-get-buffer vec) (when (and (boundp (quote non-essential)) (symbol-value
(quote non-essential))) (throw (quote non-essential) (quote non-essential)))
(tramp-with-progress-reporter vec 3 (if (zerop (length (tramp-file-name-user
vec))) (format "Opening connection for %s using %s" (tramp-file-name-host vec)
(tramp-file-name-method vec)) (format "Opening connection for address@hidden
using %s" (tramp-file-name-user vec) (tramp-file-name-host vec)
(tramp-file-name-method vec))) (when (and p (processp p)) (delete-process p))
(setenv "TERM" tramp-terminal-type) (setenv "LC_ALL" "C") (setenv
"PROMPT_COMMAND") (setenv "PS1" tramp-initial-end-of-output) (let*
((target-alist (tramp-compute-multi-hops vec)) (process-connection-type
tramp-process-connection-type) (process-adaptive-read-buffering nil)
(coding-system-for-read nil) (p (let ... ...))) (tramp-set-connection-property
p "vector" vec) (set-process-sentinel p (quote tramp-process-sentinel))
(tramp-compat-set-process-query-on-exit-flag p nil) (setq
tramp-current-connection (cons (butlast ...) (current-time))) (tramp-message
vec 6 "%s" (mapconcat (quote identity) (process-command p) " "))
(tramp-barf-if-no-shell-prompt p 60 "Couldn't find local shell prompt %s"
tramp-encoding-shell) (while target-alist (let* (... ... ... ... ... ... ...
... ... ... ... ... ... ... ... spec) (when ... ...) (when ... ...) (when ...
...) (setq tramp-current-method ... tramp-current-user ... tramp-current-host
...) (setq l-host ... l-user ... l-port ... spec ... command ...)
(tramp-message vec 3 "Sending command `%s'" command) (tramp-send-command vec
command t t) (tramp-process-actions p vec pos tramp-actions-before-shell 60)
(tramp-message vec 3 "Found remote shell prompt on `%s'" l-host)) (setq
target-alist (cdr target-alist)))
(tramp-open-connection-setup-interactive-shell p vec)))) (quit (tramp-cleanup
vec) (signal (car err) (cdr err)))))
(catch (quote uname-changed) (let ((p (tramp-get-connection-process vec))
(process-name (tramp-get-connection-property vec "process-name" nil))
(process-environment (copy-sequence process-environment)) (pos
(with-current-buffer (tramp-get-connection-buffer vec) (point)))) (unless (or
(and p (processp p) (memq (process-status p) (quote (run open)))) (not (equal
(butlast (append vec nil)) (car tramp-current-connection))) (> (tramp-time-diff
(current-time) (cdr tramp-current-connection)) 5)) (throw (quote suppress)
(quote suppress))) (condition-case nil (when (and (> (tramp-time-diff
(current-time) (tramp-get-connection-property p "last-cmd-time" ...)) 60) p
(processp p) (memq (process-status p) (quote (run open)))) (tramp-send-command
vec "echo are you awake" t t) (unless (and (memq (process-status p) (quote
...)) (tramp-wait-for-output p 10)) (tramp-error vec (quote file-error) "Awake
did fail"))) (file-error (tramp-cleanup vec) (setq p nil))) (condition-case err
(unless (and p (processp p) (memq (process-status p) (quote (run open))))
(tramp-get-buffer vec) (when (and (boundp (quote non-essential)) (symbol-value
(quote non-essential))) (throw (quote non-essential) (quote non-essential)))
(tramp-with-progress-reporter vec 3 (if (zerop (length ...)) (format "Opening
connection for %s using %s" (tramp-file-name-host vec) (tramp-file-name-method
vec)) (format "Opening connection for address@hidden using %s"
(tramp-file-name-user vec) (tramp-file-name-host vec) (tramp-file-name-method
vec))) (when (and p (processp p)) (delete-process p)) (setenv "TERM"
tramp-terminal-type) (setenv "LC_ALL" "C") (setenv "PROMPT_COMMAND") (setenv
"PS1" tramp-initial-end-of-output) (let* ((target-alist ...)
(process-connection-type tramp-process-connection-type)
(process-adaptive-read-buffering nil) (coding-system-for-read nil) (p ...))
(tramp-set-connection-property p "vector" vec) (set-process-sentinel p (quote
tramp-process-sentinel)) (tramp-compat-set-process-query-on-exit-flag p nil)
(setq tramp-current-connection (cons ... ...)) (tramp-message vec 6 "%s"
(mapconcat ... ... " ")) (tramp-barf-if-no-shell-prompt p 60 "Couldn't find
local shell prompt %s" tramp-encoding-shell) (while target-alist (let* ... ...
... ... ... ... ... ... ... ...) (setq target-alist ...))
(tramp-open-connection-setup-interactive-shell p vec)))) (quit (tramp-cleanup
vec) (signal (car err) (cdr err))))))
tramp-maybe-open-connection(["scpc" nil "io.local"
"/private/tmp/emacs-mac-mrNX/" nil])
(if neveropen nil (tramp-maybe-open-connection vec))
(unless neveropen (tramp-maybe-open-connection vec))
tramp-send-command(["scpc" nil "io.local" "/private/tmp/emacs-mac-mrNX/" nil]
"echo \\\"`getconf PATH 2>/dev/null`\\\" 2>/dev/null; echo tramp_exit_status
$?")
tramp-send-command-and-check(["scpc" nil "io.local"
"/private/tmp/emacs-mac-mrNX/" nil] "echo \\\"`getconf PATH 2>/dev/null`\\\"")
(if noerror (tramp-send-command-and-check vec command)
(tramp-barf-unless-okay vec command "`%s' returns with error" command))
(if (if noerror (tramp-send-command-and-check vec command)
(tramp-barf-unless-okay vec command "`%s' returns with error" command)) (progn
(with-current-buffer (tramp-get-connection-buffer vec) (goto-char (point-min))
(condition-case nil (prog1 (read (current-buffer)) (when (re-search-forward
"\\S-" (point-at-eol) t) (error nil))) (error (unless noerror (tramp-error vec
(quote file-error) "`%s' does not return a valid Lisp expression: `%s'" command
(buffer-string))))))))
(when (if noerror (tramp-send-command-and-check vec command)
(tramp-barf-unless-okay vec command "`%s' returns with error" command))
(with-current-buffer (tramp-get-connection-buffer vec) (goto-char (point-min))
(condition-case nil (prog1 (read (current-buffer)) (when (re-search-forward
"\\S-" (point-at-eol) t) (error nil))) (error (unless noerror (tramp-error vec
(quote file-error) "`%s' does not return a valid Lisp expression: `%s'" command
(buffer-string)))))))
tramp-send-command-and-read(["scpc" nil "io.local"
"/private/tmp/emacs-mac-mrNX/" nil] "echo \\\"`getconf PATH 2>/dev/null`\\\""
noerror)
(or (tramp-send-command-and-read vec "echo \\\"`getconf PATH
2>/dev/null`\\\"" (quote noerror)) (progn (tramp-message vec 3 "`getconf PATH'
not successful, using default value \"%s\"." "/bin:/usr/bin") "/bin:/usr/bin"))
(progn (or (tramp-send-command-and-read vec "echo \\\"`getconf PATH
2>/dev/null`\\\"" (quote noerror)) (progn (tramp-message vec 3 "`getconf PATH'
not successful, using default value \"%s\"." "/bin:/usr/bin") "/bin:/usr/bin")))
(if elt1 (progn (or (tramp-send-command-and-read vec "echo \\\"`getconf PATH
2>/dev/null`\\\"" (quote noerror)) (progn (tramp-message vec 3 "`getconf PATH'
not successful, using default value \"%s\"." "/bin:/usr/bin")
"/bin:/usr/bin"))))
(when elt1 (or (tramp-send-command-and-read vec "echo \\\"`getconf PATH
2>/dev/null`\\\"" (quote noerror)) (progn (tramp-message vec 3 "`getconf PATH'
not successful, using default value \"%s\"." "/bin:/usr/bin") "/bin:/usr/bin")))
(let* ((remote-path (copy-tree tramp-remote-path)) (elt1 (memq (quote
tramp-default-remote-path) remote-path)) (elt2 (memq (quote
tramp-own-remote-path) remote-path)) (default-remote-path (when elt1 (or
(tramp-send-command-and-read vec "echo \\\"`getconf PATH 2>/dev/null`\\\""
(quote noerror)) (progn (tramp-message vec 3 "`getconf PATH' not successful,
using default value \"%s\"." "/bin:/usr/bin") "/bin:/usr/bin"))))
(own-remote-path (when elt2 (condition-case nil (tramp-send-command-and-read
vec "echo \\\"$PATH\\\"") (error (tramp-message vec 3 "$PATH not set, ignoring
`tramp-own-remote-path'.") nil))))) (when elt1 (setcdr elt1 (append
(tramp-compat-split-string default-remote-path ":") (cdr elt1))) (setq
remote-path (delq (quote tramp-default-remote-path) remote-path))) (when elt2
(setcdr elt2 (append (tramp-compat-split-string own-remote-path ":") (cdr
elt2))) (setq remote-path (delq (quote tramp-own-remote-path) remote-path)))
(setq elt1 remote-path) (while (consp elt1) (while (and (car elt1) (setq elt2
(member (car elt1) (cdr elt1)))) (setcar elt2 nil)) (setq elt1 (cdr elt1)))
(delq nil (mapcar (lambda (x) (and (stringp x) (file-directory-p
(tramp-make-tramp-file-name (tramp-file-name-method vec) (tramp-file-name-user
vec) (tramp-file-name-host vec) x)) x)) remote-path)))
(progn (let* ((remote-path (copy-tree tramp-remote-path)) (elt1 (memq (quote
tramp-default-remote-path) remote-path)) (elt2 (memq (quote
tramp-own-remote-path) remote-path)) (default-remote-path (when elt1 (or
(tramp-send-command-and-read vec "echo \\\"`getconf PATH 2>/dev/null`\\\""
(quote noerror)) (progn (tramp-message vec 3 "`getconf PATH' not successful,
using default value \"%s\"." "/bin:/usr/bin") "/bin:/usr/bin"))))
(own-remote-path (when elt2 (condition-case nil (tramp-send-command-and-read
vec "echo \\\"$PATH\\\"") (error (tramp-message vec 3 "$PATH not set, ignoring
`tramp-own-remote-path'.") nil))))) (when elt1 (setcdr elt1 (append
(tramp-compat-split-string default-remote-path ":") (cdr elt1))) (setq
remote-path (delq (quote tramp-default-remote-path) remote-path))) (when elt2
(setcdr elt2 (append (tramp-compat-split-string own-remote-path ":") (cdr
elt2))) (setq remote-path (delq (quote tramp-own-remote-path) remote-path)))
(setq elt1 remote-path) (while (consp elt1) (while (and (car elt1) (setq elt2
(member (car elt1) (cdr elt1)))) (setcar elt2 nil)) (setq elt1 (cdr elt1)))
(delq nil (mapcar (lambda (x) (and (stringp x) (file-directory-p
(tramp-make-tramp-file-name ... ... ... x)) x)) remote-path))))
(setq value (progn (let* ((remote-path (copy-tree tramp-remote-path)) (elt1
(memq (quote tramp-default-remote-path) remote-path)) (elt2 (memq (quote
tramp-own-remote-path) remote-path)) (default-remote-path (when elt1 (or
(tramp-send-command-and-read vec "echo \\\"`getconf PATH 2>/dev/null`\\\"" ...)
(progn ... "/bin:/usr/bin")))) (own-remote-path (when elt2 (condition-case nil
(tramp-send-command-and-read vec "echo \\\"$PATH\\\"") (error ... nil)))))
(when elt1 (setcdr elt1 (append (tramp-compat-split-string default-remote-path
":") (cdr elt1))) (setq remote-path (delq (quote tramp-default-remote-path)
remote-path))) (when elt2 (setcdr elt2 (append (tramp-compat-split-string
own-remote-path ":") (cdr elt2))) (setq remote-path (delq (quote
tramp-own-remote-path) remote-path))) (setq elt1 remote-path) (while (consp
elt1) (while (and (car elt1) (setq elt2 (member ... ...))) (setcar elt2 nil))
(setq elt1 (cdr elt1))) (delq nil (mapcar (lambda (x) (and (stringp x)
(file-directory-p ...) x)) remote-path)))))
(progn (setq value (progn (let* ((remote-path (copy-tree tramp-remote-path))
(elt1 (memq (quote tramp-default-remote-path) remote-path)) (elt2 (memq (quote
tramp-own-remote-path) remote-path)) (default-remote-path (when elt1 (or ...
...))) (own-remote-path (when elt2 (condition-case nil ... ...)))) (when elt1
(setcdr elt1 (append (tramp-compat-split-string default-remote-path ":") (cdr
elt1))) (setq remote-path (delq (quote tramp-default-remote-path)
remote-path))) (when elt2 (setcdr elt2 (append (tramp-compat-split-string
own-remote-path ":") (cdr elt2))) (setq remote-path (delq (quote
tramp-own-remote-path) remote-path))) (setq elt1 remote-path) (while (consp
elt1) (while (and (car elt1) (setq elt2 ...)) (setcar elt2 nil)) (setq elt1
(cdr elt1))) (delq nil (mapcar (lambda (x) (and ... ... x)) remote-path)))))
(tramp-set-connection-property (if (memq (quote tramp-own-remote-path)
tramp-remote-path) (tramp-get-connection-process vec) vec) "remote-path" value))
(if (eq value (quote undef)) (progn (setq value (progn (let* ((remote-path
(copy-tree tramp-remote-path)) (elt1 (memq ... remote-path)) (elt2 (memq ...
remote-path)) (default-remote-path (when elt1 ...)) (own-remote-path (when elt2
...))) (when elt1 (setcdr elt1 (append ... ...)) (setq remote-path (delq ...
remote-path))) (when elt2 (setcdr elt2 (append ... ...)) (setq remote-path
(delq ... remote-path))) (setq elt1 remote-path) (while (consp elt1) (while
(and ... ...) (setcar elt2 nil)) (setq elt1 (cdr elt1))) (delq nil (mapcar
(lambda ... ...) remote-path))))) (tramp-set-connection-property (if (memq
(quote tramp-own-remote-path) tramp-remote-path) (tramp-get-connection-process
vec) vec) "remote-path" value)))
(when (eq value (quote undef)) (setq value (progn (let* ((remote-path
(copy-tree tramp-remote-path)) (elt1 (memq (quote tramp-default-remote-path)
remote-path)) (elt2 (memq (quote tramp-own-remote-path) remote-path))
(default-remote-path (when elt1 (or ... ...))) (own-remote-path (when elt2
(condition-case nil ... ...)))) (when elt1 (setcdr elt1 (append
(tramp-compat-split-string default-remote-path ":") (cdr elt1))) (setq
remote-path (delq (quote tramp-default-remote-path) remote-path))) (when elt2
(setcdr elt2 (append (tramp-compat-split-string own-remote-path ":") (cdr
elt2))) (setq remote-path (delq (quote tramp-own-remote-path) remote-path)))
(setq elt1 remote-path) (while (consp elt1) (while (and (car elt1) (setq elt2
...)) (setcar elt2 nil)) (setq elt1 (cdr elt1))) (delq nil (mapcar (lambda (x)
(and ... ... x)) remote-path))))) (tramp-set-connection-property (if (memq
(quote tramp-own-remote-path) tramp-remote-path) (tramp-get-connection-process
vec) vec) "remote-path" value))
(let ((value (tramp-get-connection-property (if (memq (quote
tramp-own-remote-path) tramp-remote-path) (tramp-get-connection-process vec)
vec) "remote-path" (quote undef)))) (when (eq value (quote undef)) (setq value
(progn (let* ((remote-path (copy-tree tramp-remote-path)) (elt1 (memq ...
remote-path)) (elt2 (memq ... remote-path)) (default-remote-path (when elt1
...)) (own-remote-path (when elt2 ...))) (when elt1 (setcdr elt1 (append ...
...)) (setq remote-path (delq ... remote-path))) (when elt2 (setcdr elt2
(append ... ...)) (setq remote-path (delq ... remote-path))) (setq elt1
remote-path) (while (consp elt1) (while (and ... ...) (setcar elt2 nil)) (setq
elt1 (cdr elt1))) (delq nil (mapcar (lambda ... ...) remote-path)))))
(tramp-set-connection-property (if (memq (quote tramp-own-remote-path)
tramp-remote-path) (tramp-get-connection-process vec) vec) "remote-path"
value)) value)
(with-connection-property (if (memq (quote tramp-own-remote-path)
tramp-remote-path) (tramp-get-connection-process vec) vec) "remote-path" (let*
((remote-path (copy-tree tramp-remote-path)) (elt1 (memq (quote
tramp-default-remote-path) remote-path)) (elt2 (memq (quote
tramp-own-remote-path) remote-path)) (default-remote-path (when elt1 (or
(tramp-send-command-and-read vec "echo \\\"`getconf PATH 2>/dev/null`\\\""
(quote noerror)) (progn (tramp-message vec 3 "`getconf PATH' not successful,
using default value \"%s\"." "/bin:/usr/bin") "/bin:/usr/bin"))))
(own-remote-path (when elt2 (condition-case nil (tramp-send-command-and-read
vec "echo \\\"$PATH\\\"") (error (tramp-message vec 3 "$PATH not set, ignoring
`tramp-own-remote-path'.") nil))))) (when elt1 (setcdr elt1 (append
(tramp-compat-split-string default-remote-path ":") (cdr elt1))) (setq
remote-path (delq (quote tramp-default-remote-path) remote-path))) (when elt2
(setcdr elt2 (append (tramp-compat-split-string own-remote-path ":") (cdr
elt2))) (setq remote-path (delq (quote tramp-own-remote-path) remote-path)))
(setq elt1 remote-path) (while (consp elt1) (while (and (car elt1) (setq elt2
(member (car elt1) (cdr elt1)))) (setcar elt2 nil)) (setq elt1 (cdr elt1)))
(delq nil (mapcar (lambda (x) (and (stringp x) (file-directory-p
(tramp-make-tramp-file-name ... ... ... x)) x)) remote-path))))
tramp-get-remote-path(["scpc" nil "io.local" "/private/tmp/emacs-mac-mrNX/"
nil])
(tramp-find-executable vec "readlink" (tramp-get-remote-path vec))
(let ((result (tramp-find-executable vec "readlink" (tramp-get-remote-path
vec)))) (when (and result (tramp-send-command-and-check vec (format "%s
--canonicalize-missing /" result))) result))
(progn (tramp-message vec 5 "Finding a suitable `readlink' command") (let
((result (tramp-find-executable vec "readlink" (tramp-get-remote-path vec))))
(when (and result (tramp-send-command-and-check vec (format "%s
--canonicalize-missing /" result))) result)))
(setq value (progn (tramp-message vec 5 "Finding a suitable `readlink'
command") (let ((result (tramp-find-executable vec "readlink"
(tramp-get-remote-path vec)))) (when (and result (tramp-send-command-and-check
vec (format "%s --canonicalize-missing /" result))) result))))
(progn (setq value (progn (tramp-message vec 5 "Finding a suitable `readlink'
command") (let ((result (tramp-find-executable vec "readlink"
(tramp-get-remote-path vec)))) (when (and result (tramp-send-command-and-check
vec (format "%s --canonicalize-missing /" result))) result))))
(tramp-set-connection-property vec "readlink" value))
(if (eq value (quote undef)) (progn (setq value (progn (tramp-message vec 5
"Finding a suitable `readlink' command") (let ((result (tramp-find-executable
vec "readlink" ...))) (when (and result (tramp-send-command-and-check vec ...))
result)))) (tramp-set-connection-property vec "readlink" value)))
(when (eq value (quote undef)) (setq value (progn (tramp-message vec 5
"Finding a suitable `readlink' command") (let ((result (tramp-find-executable
vec "readlink" (tramp-get-remote-path vec)))) (when (and result
(tramp-send-command-and-check vec (format "%s --canonicalize-missing /"
result))) result)))) (tramp-set-connection-property vec "readlink" value))
(let ((value (tramp-get-connection-property vec "readlink" (quote undef))))
(when (eq value (quote undef)) (setq value (progn (tramp-message vec 5 "Finding
a suitable `readlink' command") (let ((result (tramp-find-executable vec
"readlink" ...))) (when (and result (tramp-send-command-and-check vec ...))
result)))) (tramp-set-connection-property vec "readlink" value)) value)
(with-connection-property vec "readlink" (tramp-message vec 5 "Finding a
suitable `readlink' command") (let ((result (tramp-find-executable vec
"readlink" (tramp-get-remote-path vec)))) (when (and result
(tramp-send-command-and-check vec (format "%s --canonicalize-missing /"
result))) result)))
tramp-get-remote-readlink(["scpc" nil "io.local"
"/private/tmp/emacs-mac-mrNX/" nil])
(cond ((tramp-get-remote-readlink v) (setq result
(tramp-send-command-and-read v (format "echo \"\\\"`%s --canonicalize-missing
%s`\\\"\"" (tramp-get-remote-readlink v) (tramp-shell-quote-argument
localname))))) ((and (tramp-get-remote-perl v) (tramp-get-connection-property v
"perl-file-spec" nil) (tramp-get-connection-property v "perl-cwd-realpath"
nil)) (tramp-maybe-send-script v tramp-perl-file-truename
"tramp_perl_file_truename") (setq result (tramp-send-command-and-read v (format
"tramp_perl_file_truename %s" (tramp-shell-quote-argument localname))))) (t
(let* ((directory-sep-char 47) (steps (tramp-compat-split-string localname
"/")) (localnamedir (tramp-run-real-handler (quote file-name-as-directory)
(list localname))) (is-dir (string= localname localnamedir)) (thisstep nil)
(numchase 0) (numchase-limit 20) symlink-target) (while (and steps (< numchase
numchase-limit)) (setq thisstep (pop steps)) (tramp-message v 5 "Check %s"
(mapconcat (quote identity) (append (quote ...) (reverse result) (list
thisstep)) "/")) (setq symlink-target (nth 0 (file-attributes
(tramp-make-tramp-file-name method user host ...)))) (cond ((string= "."
thisstep) (tramp-message v 5 "Ignoring step `.'")) ((string= ".." thisstep)
(tramp-message v 5 "Processing step `..'") (pop result)) ((stringp
symlink-target) (tramp-message v 5 "Follow symlink to %s" symlink-target) (setq
numchase (1+ numchase)) (when (file-name-absolute-p symlink-target) (setq
result nil)) (when (tramp-tramp-file-p symlink-target) (unless ... ...) (setq
symlink-target localname)) (setq steps (append ... steps))) (t (setq result
(cons thisstep result))))) (when (>= numchase numchase-limit) (tramp-error v
(quote file-error) "Maximum number (%d) of symlinks exceeded" numchase-limit))
(setq result (reverse result)) (setq result (if result (mapconcat (quote
identity) (cons "" result) "/") "/")) (when (and is-dir (or (string= "" result)
(not (string= ... "/")))) (setq result (concat result "/"))))))
(let ((result nil)) (tramp-message v 4 "Finding true name for `%s'" filename)
(cond ((tramp-get-remote-readlink v) (setq result (tramp-send-command-and-read
v (format "echo \"\\\"`%s --canonicalize-missing %s`\\\"\""
(tramp-get-remote-readlink v) (tramp-shell-quote-argument localname))))) ((and
(tramp-get-remote-perl v) (tramp-get-connection-property v "perl-file-spec"
nil) (tramp-get-connection-property v "perl-cwd-realpath" nil))
(tramp-maybe-send-script v tramp-perl-file-truename "tramp_perl_file_truename")
(setq result (tramp-send-command-and-read v (format "tramp_perl_file_truename
%s" (tramp-shell-quote-argument localname))))) (t (let* ((directory-sep-char
47) (steps (tramp-compat-split-string localname "/")) (localnamedir
(tramp-run-real-handler (quote file-name-as-directory) (list localname)))
(is-dir (string= localname localnamedir)) (thisstep nil) (numchase 0)
(numchase-limit 20) symlink-target) (while (and steps (< numchase
numchase-limit)) (setq thisstep (pop steps)) (tramp-message v 5 "Check %s"
(mapconcat (quote identity) (append ... ... ...) "/")) (setq symlink-target
(nth 0 (file-attributes ...))) (cond ((string= "." thisstep) (tramp-message v 5
"Ignoring step `.'")) ((string= ".." thisstep) (tramp-message v 5 "Processing
step `..'") (pop result)) ((stringp symlink-target) (tramp-message v 5 "Follow
symlink to %s" symlink-target) (setq numchase ...) (when ... ...) (when ... ...
...) (setq steps ...)) (t (setq result ...)))) (when (>= numchase
numchase-limit) (tramp-error v (quote file-error) "Maximum number (%d) of
symlinks exceeded" numchase-limit)) (setq result (reverse result)) (setq result
(if result (mapconcat (quote identity) (cons "" result) "/") "/")) (when (and
is-dir (or (string= "" result) (not ...))) (setq result (concat result
"/")))))) (tramp-message v 4 "True name of `%s' is `%s'" localname result)
result)
(progn (let ((result nil)) (tramp-message v 4 "Finding true name for `%s'"
filename) (cond ((tramp-get-remote-readlink v) (setq result
(tramp-send-command-and-read v (format "echo \"\\\"`%s --canonicalize-missing
%s`\\\"\"" (tramp-get-remote-readlink v) (tramp-shell-quote-argument
localname))))) ((and (tramp-get-remote-perl v) (tramp-get-connection-property v
"perl-file-spec" nil) (tramp-get-connection-property v "perl-cwd-realpath"
nil)) (tramp-maybe-send-script v tramp-perl-file-truename
"tramp_perl_file_truename") (setq result (tramp-send-command-and-read v (format
"tramp_perl_file_truename %s" (tramp-shell-quote-argument localname))))) (t
(let* ((directory-sep-char 47) (steps (tramp-compat-split-string localname
"/")) (localnamedir (tramp-run-real-handler ... ...)) (is-dir (string=
localname localnamedir)) (thisstep nil) (numchase 0) (numchase-limit 20)
symlink-target) (while (and steps (< numchase numchase-limit)) (setq thisstep
(pop steps)) (tramp-message v 5 "Check %s" (mapconcat ... ... "/")) (setq
symlink-target (nth 0 ...)) (cond (... ...) (... ... ...) (... ... ... ... ...
...) (t ...))) (when (>= numchase numchase-limit) (tramp-error v (quote
file-error) "Maximum number (%d) of symlinks exceeded" numchase-limit)) (setq
result (reverse result)) (setq result (if result (mapconcat ... ... "/") "/"))
(when (and is-dir (or ... ...)) (setq result (concat result "/"))))))
(tramp-message v 4 "True name of `%s' is `%s'" localname result) result))
(setq value (progn (let ((result nil)) (tramp-message v 4 "Finding true name
for `%s'" filename) (cond ((tramp-get-remote-readlink v) (setq result
(tramp-send-command-and-read v (format "echo \"\\\"`%s --canonicalize-missing
%s`\\\"\"" ... ...)))) ((and (tramp-get-remote-perl v)
(tramp-get-connection-property v "perl-file-spec" nil)
(tramp-get-connection-property v "perl-cwd-realpath" nil))
(tramp-maybe-send-script v tramp-perl-file-truename "tramp_perl_file_truename")
(setq result (tramp-send-command-and-read v (format "tramp_perl_file_truename
%s" ...)))) (t (let* ((directory-sep-char 47) (steps ...) (localnamedir ...)
(is-dir ...) (thisstep nil) (numchase 0) (numchase-limit 20) symlink-target)
(while (and steps ...) (setq thisstep ...) (tramp-message v 5 "Check %s" ...)
(setq symlink-target ...) (cond ... ... ... ...)) (when (>= numchase
numchase-limit) (tramp-error v ... "Maximum number (%d) of symlinks exceeded"
numchase-limit)) (setq result (reverse result)) (setq result (if result ...
"/")) (when (and is-dir ...) (setq result ...))))) (tramp-message v 4 "True
name of `%s' is `%s'" localname result) result)))
(progn (setq value (progn (let ((result nil)) (tramp-message v 4 "Finding
true name for `%s'" filename) (cond ((tramp-get-remote-readlink v) (setq result
(tramp-send-command-and-read v ...))) ((and (tramp-get-remote-perl v)
(tramp-get-connection-property v "perl-file-spec" nil)
(tramp-get-connection-property v "perl-cwd-realpath" nil))
(tramp-maybe-send-script v tramp-perl-file-truename "tramp_perl_file_truename")
(setq result (tramp-send-command-and-read v ...))) (t (let* (... ... ... ...
... ... ... symlink-target) (while ... ... ... ... ...) (when ... ...) (setq
result ...) (setq result ...) (when ... ...)))) (tramp-message v 4 "True name
of `%s' is `%s'" localname result) result))) (tramp-set-file-property v
localname "file-truename" value))
(if (eq value (quote undef)) (progn (setq value (progn (let ((result nil))
(tramp-message v 4 "Finding true name for `%s'" filename) (cond
((tramp-get-remote-readlink v) (setq result ...)) ((and ... ... ...)
(tramp-maybe-send-script v tramp-perl-file-truename "tramp_perl_file_truename")
(setq result ...)) (t (let* ... ... ... ... ... ...))) (tramp-message v 4 "True
name of `%s' is `%s'" localname result) result))) (tramp-set-file-property v
localname "file-truename" value)))
(when (eq value (quote undef)) (setq value (progn (let ((result nil))
(tramp-message v 4 "Finding true name for `%s'" filename) (cond
((tramp-get-remote-readlink v) (setq result (tramp-send-command-and-read v
...))) ((and (tramp-get-remote-perl v) (tramp-get-connection-property v
"perl-file-spec" nil) (tramp-get-connection-property v "perl-cwd-realpath"
nil)) (tramp-maybe-send-script v tramp-perl-file-truename
"tramp_perl_file_truename") (setq result (tramp-send-command-and-read v ...)))
(t (let* (... ... ... ... ... ... ... symlink-target) (while ... ... ... ...
...) (when ... ...) (setq result ...) (setq result ...) (when ... ...))))
(tramp-message v 4 "True name of `%s' is `%s'" localname result) result)))
(tramp-set-file-property v localname "file-truename" value))
(let ((value (tramp-get-file-property v localname "file-truename" (quote
undef)))) (when (eq value (quote undef)) (setq value (progn (let ((result nil))
(tramp-message v 4 "Finding true name for `%s'" filename) (cond
((tramp-get-remote-readlink v) (setq result ...)) ((and ... ... ...)
(tramp-maybe-send-script v tramp-perl-file-truename "tramp_perl_file_truename")
(setq result ...)) (t (let* ... ... ... ... ... ...))) (tramp-message v 4 "True
name of `%s' is `%s'" localname result) result))) (tramp-set-file-property v
localname "file-truename" value)) value)
(if (file-name-absolute-p localname) (let ((value (tramp-get-file-property v
localname "file-truename" (quote undef)))) (when (eq value (quote undef)) (setq
value (progn (let ((result nil)) (tramp-message v 4 "Finding true name for
`%s'" filename) (cond (... ...) (... ... ...) (t ...)) (tramp-message v 4 "True
name of `%s' is `%s'" localname result) result))) (tramp-set-file-property v
localname "file-truename" value)) value) (let ((result nil)) (tramp-message v 4
"Finding true name for `%s'" filename) (cond ((tramp-get-remote-readlink v)
(setq result (tramp-send-command-and-read v (format "echo \"\\\"`%s
--canonicalize-missing %s`\\\"\"" (tramp-get-remote-readlink v)
(tramp-shell-quote-argument localname))))) ((and (tramp-get-remote-perl v)
(tramp-get-connection-property v "perl-file-spec" nil)
(tramp-get-connection-property v "perl-cwd-realpath" nil))
(tramp-maybe-send-script v tramp-perl-file-truename "tramp_perl_file_truename")
(setq result (tramp-send-command-and-read v (format "tramp_perl_file_truename
%s" (tramp-shell-quote-argument localname))))) (t (let* ((directory-sep-char
47) (steps (tramp-compat-split-string localname "/")) (localnamedir
(tramp-run-real-handler ... ...)) (is-dir (string= localname localnamedir))
(thisstep nil) (numchase 0) (numchase-limit 20) symlink-target) (while (and
steps (< numchase numchase-limit)) (setq thisstep (pop steps)) (tramp-message v
5 "Check %s" (mapconcat ... ... "/")) (setq symlink-target (nth 0 ...)) (cond
(... ...) (... ... ...) (... ... ... ... ... ...) (t ...))) (when (>= numchase
numchase-limit) (tramp-error v (quote file-error) "Maximum number (%d) of
symlinks exceeded" numchase-limit)) (setq result (reverse result)) (setq result
(if result (mapconcat ... ... "/") "/")) (when (and is-dir (or ... ...)) (setq
result (concat result "/")))))) (tramp-message v 4 "True name of `%s' is `%s'"
localname result) result))
(with-file-property v localname "file-truename" (let ((result nil))
(tramp-message v 4 "Finding true name for `%s'" filename) (cond
((tramp-get-remote-readlink v) (setq result (tramp-send-command-and-read v
(format "echo \"\\\"`%s --canonicalize-missing %s`\\\"\""
(tramp-get-remote-readlink v) (tramp-shell-quote-argument localname))))) ((and
(tramp-get-remote-perl v) (tramp-get-connection-property v "perl-file-spec"
nil) (tramp-get-connection-property v "perl-cwd-realpath" nil))
(tramp-maybe-send-script v tramp-perl-file-truename "tramp_perl_file_truename")
(setq result (tramp-send-command-and-read v (format "tramp_perl_file_truename
%s" (tramp-shell-quote-argument localname))))) (t (let* ((directory-sep-char
47) (steps (tramp-compat-split-string localname "/")) (localnamedir
(tramp-run-real-handler ... ...)) (is-dir (string= localname localnamedir))
(thisstep nil) (numchase 0) (numchase-limit 20) symlink-target) (while (and
steps (< numchase numchase-limit)) (setq thisstep (pop steps)) (tramp-message v
5 "Check %s" (mapconcat ... ... "/")) (setq symlink-target (nth 0 ...)) (cond
(... ...) (... ... ...) (... ... ... ... ... ...) (t ...))) (when (>= numchase
numchase-limit) (tramp-error v (quote file-error) "Maximum number (%d) of
symlinks exceeded" numchase-limit)) (setq result (reverse result)) (setq result
(if result (mapconcat ... ... "/") "/")) (when (and is-dir (or ... ...)) (setq
result (concat result "/")))))) (tramp-message v 4 "True name of `%s' is `%s'"
localname result) result))
(tramp-make-tramp-file-name method user host (with-file-property v localname
"file-truename" (let ((result nil)) (tramp-message v 4 "Finding true name for
`%s'" filename) (cond ((tramp-get-remote-readlink v) (setq result
(tramp-send-command-and-read v (format "echo \"\\\"`%s --canonicalize-missing
%s`\\\"\"" ... ...)))) ((and (tramp-get-remote-perl v)
(tramp-get-connection-property v "perl-file-spec" nil)
(tramp-get-connection-property v "perl-cwd-realpath" nil))
(tramp-maybe-send-script v tramp-perl-file-truename "tramp_perl_file_truename")
(setq result (tramp-send-command-and-read v (format "tramp_perl_file_truename
%s" ...)))) (t (let* ((directory-sep-char 47) (steps ...) (localnamedir ...)
(is-dir ...) (thisstep nil) (numchase 0) (numchase-limit 20) symlink-target)
(while (and steps ...) (setq thisstep ...) (tramp-message v 5 "Check %s" ...)
(setq symlink-target ...) (cond ... ... ... ...)) (when (>= numchase
numchase-limit) (tramp-error v ... "Maximum number (%d) of symlinks exceeded"
numchase-limit)) (setq result (reverse result)) (setq result (if result ...
"/")) (when (and is-dir ...) (setq result ...))))) (tramp-message v 4 "True
name of `%s' is `%s'" localname result) result)))
(let* ((v (tramp-dissect-file-name (expand-file-name filename))) (method
(tramp-file-name-method v)) (user (tramp-file-name-user v)) (host
(tramp-file-name-host v)) (localname (tramp-file-name-localname v)) (hop
(tramp-file-name-hop v))) (tramp-make-tramp-file-name method user host
(with-file-property v localname "file-truename" (let ((result nil))
(tramp-message v 4 "Finding true name for `%s'" filename) (cond
((tramp-get-remote-readlink v) (setq result (tramp-send-command-and-read v
...))) ((and (tramp-get-remote-perl v) (tramp-get-connection-property v
"perl-file-spec" nil) (tramp-get-connection-property v "perl-cwd-realpath"
nil)) (tramp-maybe-send-script v tramp-perl-file-truename
"tramp_perl_file_truename") (setq result (tramp-send-command-and-read v ...)))
(t (let* (... ... ... ... ... ... ... symlink-target) (while ... ... ... ...
...) (when ... ...) (setq result ...) (setq result ...) (when ... ...))))
(tramp-message v 4 "True name of `%s' is `%s'" localname result) result))))
(with-parsed-tramp-file-name (expand-file-name filename) nil
(tramp-make-tramp-file-name method user host (with-file-property v localname
"file-truename" (let ((result nil)) (tramp-message v 4 "Finding true name for
`%s'" filename) (cond ((tramp-get-remote-readlink v) (setq result
(tramp-send-command-and-read v ...))) ((and (tramp-get-remote-perl v)
(tramp-get-connection-property v "perl-file-spec" nil)
(tramp-get-connection-property v "perl-cwd-realpath" nil))
(tramp-maybe-send-script v tramp-perl-file-truename "tramp_perl_file_truename")
(setq result (tramp-send-command-and-read v ...))) (t (let* (... ... ... ...
... ... ... symlink-target) (while ... ... ... ... ...) (when ... ...) (setq
result ...) (setq result ...) (when ... ...)))) (tramp-message v 4 "True name
of `%s' is `%s'" localname result) result))))
tramp-sh-handle-file-truename("/scpc:io.local:/private/tmp/emacs-mac-mrNX/")
apply(tramp-sh-handle-file-truename
"/scpc:io.local:/private/tmp/emacs-mac-mrNX/")
(if fn (apply (cdr fn) args) (tramp-run-real-handler operation args))
(let ((fn (assoc operation tramp-sh-file-name-handler-alist))) (if fn (apply
(cdr fn) args) (tramp-run-real-handler operation args)))
(progn (let ((fn (assoc operation tramp-sh-file-name-handler-alist))) (if fn
(apply (cdr fn) args) (tramp-run-real-handler operation args))))
(unwind-protect (progn (let ((fn (assoc operation
tramp-sh-file-name-handler-alist))) (if fn (apply (cdr fn) args)
(tramp-run-real-handler operation args)))) (set-match-data
save-match-data-internal (quote evaporate)))
(let ((save-match-data-internal (match-data))) (unwind-protect (progn (let
((fn (assoc operation tramp-sh-file-name-handler-alist))) (if fn (apply (cdr
fn) args) (tramp-run-real-handler operation args)))) (set-match-data
save-match-data-internal (quote evaporate))))
(save-match-data (let ((fn (assoc operation
tramp-sh-file-name-handler-alist))) (if fn (apply (cdr fn) args)
(tramp-run-real-handler operation args))))
(let ((tramp-locker t)) (save-match-data (let ((fn (assoc operation
tramp-sh-file-name-handler-alist))) (if fn (apply (cdr fn) args)
(tramp-run-real-handler operation args)))))
(progn (setq tramp-locked t) (let ((tramp-locker t)) (save-match-data (let
((fn (assoc operation tramp-sh-file-name-handler-alist))) (if fn (apply (cdr
fn) args) (tramp-run-real-handler operation args))))))
(unwind-protect (progn (setq tramp-locked t) (let ((tramp-locker t))
(save-match-data (let ((fn (assoc operation tramp-sh-file-name-handler-alist)))
(if fn (apply (cdr fn) args) (tramp-run-real-handler operation args)))))) (setq
tramp-locked tl))
(let ((tl tramp-locked)) (unwind-protect (progn (setq tramp-locked t) (let
((tramp-locker t)) (save-match-data (let ((fn ...)) (if fn (apply ... args)
(tramp-run-real-handler operation args)))))) (setq tramp-locked tl)))
tramp-sh-file-name-handler(file-truename
"/scpc:io.local:/private/tmp/emacs-mac-mrNX/")
apply(tramp-sh-file-name-handler file-truename
"/scpc:io.local:/private/tmp/emacs-mac-mrNX/")
(catch (quote suppress) (apply foreign operation args))
(catch (quote non-essential) (catch (quote suppress) (apply foreign operation
args)))
(setq result (catch (quote non-essential) (catch (quote suppress) (apply
foreign operation args))))
(let ((sf (symbol-function foreign)) result) (when (and (listp sf) (eq (car
sf) (quote autoload))) (let ((default-directory
(tramp-compat-temporary-file-directory))) (load (cadr sf) (quote noerror)
(quote nomessage)))) (setq result (catch (quote non-essential) (catch (quote
suppress) (apply foreign operation args)))) (cond ((eq result (quote
non-essential)) (tramp-message v 5 "Non-essential received in operation %s"
(append (list operation) args)) (tramp-run-real-handler operation args)) ((eq
result (quote suppress)) (let (tramp-message-show-message) (tramp-message v 1
"Suppress received in operation %s" (append (list operation) args))
(tramp-cleanup v) (tramp-run-real-handler operation args))) (t result)))
(lambda nil (let ((sf (symbol-function foreign)) result) (when (and (listp
sf) (eq (car sf) (quote autoload))) (let ((default-directory
(tramp-compat-temporary-file-directory))) (load (cadr sf) (quote noerror)
(quote nomessage)))) (setq result (catch (quote non-essential) (catch (quote
suppress) (apply foreign operation args)))) (cond ((eq result (quote
non-essential)) (tramp-message v 5 "Non-essential received in operation %s"
(append (list operation) args)) (tramp-run-real-handler operation args)) ((eq
result (quote suppress)) (let (tramp-message-show-message) (tramp-message v 1
"Suppress received in operation %s" (append (list operation) args))
(tramp-cleanup v) (tramp-run-real-handler operation args))) (t result))))()
funcall((lambda nil (let ((sf (symbol-function foreign)) result) (when (and
(listp sf) (eq (car sf) (quote autoload))) (let ((default-directory
(tramp-compat-temporary-file-directory))) (load (cadr sf) (quote noerror)
(quote nomessage)))) (setq result (catch (quote non-essential) (catch (quote
suppress) (apply foreign operation args)))) (cond ((eq result (quote
non-essential)) (tramp-message v 5 "Non-essential received in operation %s"
(append (list operation) args)) (tramp-run-real-handler operation args)) ((eq
result (quote suppress)) (let (tramp-message-show-message) (tramp-message v 1
"Suppress received in operation %s" (append (list operation) args))
(tramp-cleanup v) (tramp-run-real-handler operation args))) (t result)))))
(condition-case err (funcall body) ((debug quit) (let
(tramp-message-show-message) (tramp-message v 1 "Interrupt received in
operation %s" (append (list operation) args))) (signal (car err) (cdr err)))
(error (cond ((and completion (zerop (length localname)) (memq operation (quote
(file-exists-p file-directory-p)))) t) ((and completion (zerop (length
localname)) (memq operation (quote (expand-file-name file-name-as-directory))))
filename) (t (signal (car err) (cdr err))))))
(if debug-on-error (funcall body) (condition-case err (funcall body) ((debug
quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received
in operation %s" (append (list operation) args))) (signal (car err) (cdr err)))
(error (cond ((and completion (zerop (length localname)) (memq operation (quote
...))) t) ((and completion (zerop (length localname)) (memq operation (quote
...))) filename) (t (signal (car err) (cdr err)))))))
(let ((body (lambda nil (let ((sf (symbol-function foreign)) result) (when
(and (listp sf) (eq ... ...)) (let (...) (load ... ... ...))) (setq result
(catch (quote non-essential) (catch ... ...))) (cond ((eq result ...)
(tramp-message v 5 "Non-essential received in operation %s" ...)
(tramp-run-real-handler operation args)) ((eq result ...) (let ... ... ...
...)) (t result)))))) (if debug-on-error (funcall body) (condition-case err
(funcall body) ((debug quit) (let (tramp-message-show-message) (tramp-message v
1 "Interrupt received in operation %s" (append (list operation) args))) (signal
(car err) (cdr err))) (error (cond ((and completion (zerop ...) (memq operation
...)) t) ((and completion (zerop ...) (memq operation ...)) filename) (t
(signal (car err) (cdr err))))))))
(tramp-compat-condition-case-unless-debug err (let ((sf (symbol-function
foreign)) result) (when (and (listp sf) (eq (car sf) (quote autoload))) (let
((default-directory (tramp-compat-temporary-file-directory))) (load (cadr sf)
(quote noerror) (quote nomessage)))) (setq result (catch (quote non-essential)
(catch (quote suppress) (apply foreign operation args)))) (cond ((eq result
(quote non-essential)) (tramp-message v 5 "Non-essential received in operation
%s" (append (list operation) args)) (tramp-run-real-handler operation args))
((eq result (quote suppress)) (let (tramp-message-show-message) (tramp-message
v 1 "Suppress received in operation %s" (append (list operation) args))
(tramp-cleanup v) (tramp-run-real-handler operation args))) (t result)))
((debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt
received in operation %s" (append (list operation) args))) (signal (car err)
(cdr err))) (error (cond ((and completion (zerop (length localname)) (memq
operation (quote (file-exists-p file-directory-p)))) t) ((and completion (zerop
(length localname)) (memq operation (quote (expand-file-name
file-name-as-directory)))) filename) (t (signal (car err) (cdr err))))))
(if foreign (tramp-compat-condition-case-unless-debug err (let ((sf
(symbol-function foreign)) result) (when (and (listp sf) (eq (car sf) (quote
autoload))) (let ((default-directory (tramp-compat-temporary-file-directory)))
(load (cadr sf) (quote noerror) (quote nomessage)))) (setq result (catch (quote
non-essential) (catch (quote suppress) (apply foreign operation args)))) (cond
((eq result (quote non-essential)) (tramp-message v 5 "Non-essential received
in operation %s" (append (list operation) args)) (tramp-run-real-handler
operation args)) ((eq result (quote suppress)) (let
(tramp-message-show-message) (tramp-message v 1 "Suppress received in operation
%s" (append ... args)) (tramp-cleanup v) (tramp-run-real-handler operation
args))) (t result))) ((debug quit) (let (tramp-message-show-message)
(tramp-message v 1 "Interrupt received in operation %s" (append (list
operation) args))) (signal (car err) (cdr err))) (error (cond ((and completion
(zerop (length localname)) (memq operation (quote ...))) t) ((and completion
(zerop (length localname)) (memq operation (quote ...))) filename) (t (signal
(car err) (cdr err)))))) (tramp-run-real-handler operation args))
(let* ((v (tramp-dissect-file-name filename)) (method (tramp-file-name-method
v)) (user (tramp-file-name-user v)) (host (tramp-file-name-host v)) (localname
(tramp-file-name-localname v)) (hop (tramp-file-name-hop v))) (if foreign
(tramp-compat-condition-case-unless-debug err (let ((sf (symbol-function
foreign)) result) (when (and (listp sf) (eq (car sf) (quote autoload))) (let
((default-directory ...)) (load (cadr sf) (quote noerror) (quote nomessage))))
(setq result (catch (quote non-essential) (catch (quote suppress) (apply
foreign operation args)))) (cond ((eq result (quote non-essential))
(tramp-message v 5 "Non-essential received in operation %s" (append ... args))
(tramp-run-real-handler operation args)) ((eq result (quote suppress)) (let
(tramp-message-show-message) (tramp-message v 1 "Suppress received in operation
%s" ...) (tramp-cleanup v) (tramp-run-real-handler operation args))) (t
result))) ((debug quit) (let (tramp-message-show-message) (tramp-message v 1
"Interrupt received in operation %s" (append (list operation) args))) (signal
(car err) (cdr err))) (error (cond ((and completion (zerop ...) (memq operation
...)) t) ((and completion (zerop ...) (memq operation ...)) filename) (t
(signal (car err) (cdr err)))))) (tramp-run-real-handler operation args)))
(with-parsed-tramp-file-name filename nil (if foreign
(tramp-compat-condition-case-unless-debug err (let ((sf (symbol-function
foreign)) result) (when (and (listp sf) (eq (car sf) (quote autoload))) (let
((default-directory ...)) (load (cadr sf) (quote noerror) (quote nomessage))))
(setq result (catch (quote non-essential) (catch (quote suppress) (apply
foreign operation args)))) (cond ((eq result (quote non-essential))
(tramp-message v 5 "Non-essential received in operation %s" (append ... args))
(tramp-run-real-handler operation args)) ((eq result (quote suppress)) (let
(tramp-message-show-message) (tramp-message v 1 "Suppress received in operation
%s" ...) (tramp-cleanup v) (tramp-run-real-handler operation args))) (t
result))) ((debug quit) (let (tramp-message-show-message) (tramp-message v 1
"Interrupt received in operation %s" (append (list operation) args))) (signal
(car err) (cdr err))) (error (cond ((and completion (zerop ...) (memq operation
...)) t) ((and completion (zerop ...) (memq operation ...)) filename) (t
(signal (car err) (cdr err)))))) (tramp-run-real-handler operation args)))
(let* ((filename (tramp-replace-environment-variables (apply (quote
tramp-file-name-for-operation) operation args))) (completion
(tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler
filename))) (with-parsed-tramp-file-name filename nil (if foreign
(tramp-compat-condition-case-unless-debug err (let ((sf (symbol-function
foreign)) result) (when (and (listp sf) (eq ... ...)) (let (...) (load ... ...
...))) (setq result (catch (quote non-essential) (catch ... ...))) (cond ((eq
result ...) (tramp-message v 5 "Non-essential received in operation %s" ...)
(tramp-run-real-handler operation args)) ((eq result ...) (let ... ... ...
...)) (t result))) ((debug quit) (let (tramp-message-show-message)
(tramp-message v 1 "Interrupt received in operation %s" (append ... args)))
(signal (car err) (cdr err))) (error (cond ((and completion ... ...) t) ((and
completion ... ...) filename) (t (signal ... ...))))) (tramp-run-real-handler
operation args))))
(progn (let* ((filename (tramp-replace-environment-variables (apply (quote
tramp-file-name-for-operation) operation args))) (completion
(tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler
filename))) (with-parsed-tramp-file-name filename nil (if foreign
(tramp-compat-condition-case-unless-debug err (let ((sf ...) result) (when (and
... ...) (let ... ...)) (setq result (catch ... ...)) (cond (... ... ...) (...
...) (t result))) ((debug quit) (let (tramp-message-show-message)
(tramp-message v 1 "Interrupt received in operation %s" ...)) (signal (car err)
(cdr err))) (error (cond (... t) (... filename) (t ...))))
(tramp-run-real-handler operation args)))))
(unwind-protect (progn (let* ((filename (tramp-replace-environment-variables
(apply (quote tramp-file-name-for-operation) operation args))) (completion
(tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler
filename))) (with-parsed-tramp-file-name filename nil (if foreign
(tramp-compat-condition-case-unless-debug err (let (... result) (when ... ...)
(setq result ...) (cond ... ... ...)) ((debug quit) (let ... ...) (signal ...
...)) (error (cond ... ... ...))) (tramp-run-real-handler operation args)))))
(set-match-data save-match-data-internal (quote evaporate)))
(let ((save-match-data-internal (match-data))) (unwind-protect (progn (let*
((filename (tramp-replace-environment-variables (apply ... operation args)))
(completion (tramp-completion-mode-p)) (foreign
(tramp-find-foreign-file-name-handler filename))) (with-parsed-tramp-file-name
filename nil (if foreign (tramp-compat-condition-case-unless-debug err (let ...
... ... ...) (... ... ...) (error ...)) (tramp-run-real-handler operation
args))))) (set-match-data save-match-data-internal (quote evaporate))))
(save-match-data (let* ((filename (tramp-replace-environment-variables (apply
(quote tramp-file-name-for-operation) operation args))) (completion
(tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler
filename))) (with-parsed-tramp-file-name filename nil (if foreign
(tramp-compat-condition-case-unless-debug err (let ((sf ...) result) (when (and
... ...) (let ... ...)) (setq result (catch ... ...)) (cond (... ... ...) (...
...) (t result))) ((debug quit) (let (tramp-message-show-message)
(tramp-message v 1 "Interrupt received in operation %s" ...)) (signal (car err)
(cdr err))) (error (cond (... t) (... filename) (t ...))))
(tramp-run-real-handler operation args)))))
(if tramp-mode (save-match-data (let* ((filename
(tramp-replace-environment-variables (apply (quote
tramp-file-name-for-operation) operation args))) (completion
(tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler
filename))) (with-parsed-tramp-file-name filename nil (if foreign
(tramp-compat-condition-case-unless-debug err (let (... result) (when ... ...)
(setq result ...) (cond ... ... ...)) ((debug quit) (let ... ...) (signal ...
...)) (error (cond ... ... ...))) (tramp-run-real-handler operation args)))))
(tramp-run-real-handler operation args))
tramp-file-name-handler(file-truename
"/scpc:io.local:/private/tmp/emacs-mac-mrNX/")
file-truename("/scpc:io.local:/private/tmp/emacs-mac-mrNX/")
ede-directory-get-toplevel-open-project("/var/folders/b2/w0_x7_854hz82sbrdxqqd6gr0000gn/T/")
ede-directory-get-open-project("/var/folders/b2/w0_x7_854hz82sbrdxqqd6gr0000gn/T/"
ROOT)
ede-initialize-state-current-buffer()
ede-minor-mode(1)
ede-turn-on-hook()
run-hooks(find-file-hook)
after-find-file(nil t)
find-file-noselect-1(#<buffer 0publish-lIS4Ml.xml>
"/var/folders/b2/w0_x7_854hz82sbrdxqqd6gr0000gn/T/0publish-lIS4Ml.xml" nil nil
"/private/var/folders/b2/w0_x7_854hz82sbrdxqqd6gr0000gn/T/0publish-lIS4Ml.xml"
(108180587 234881035))
find-file-noselect("/var/folders/b2/w0_x7_854hz82sbrdxqqd6gr0000gn/T/0publish-lIS4Ml.xml")
server-visit-files((("/var/folders/b2/w0_x7_854hz82sbrdxqqd6gr0000gn/T/0publish-lIS4Ml.xml"))
#<process server <10>> nil)
#[0 "\301\205
.\307\301\300\302#\310\311\303\237\"\210\302\203.\312\313\300\"\210\314\300!\210\2020.\304\2040.\211\2040.\312\315\300\"\210\314\300!\210.\204h.\316
\204h.\305\203L.\211\204L.\317\320\321\322!\"address@hidden@A#\210\325\326!\210\302\204h.\317\320\321\327!\"\210\305\205t.\306?\205t.\330\305!\207"
[#<process server <10>>
(("/var/folders/b2/w0_x7_854hz82sbrdxqqd6gr0000gn/T/0publish-lIS4Ml.xml")) nil
nil nil nil nil server-visit-files mapc funcall server-log "Close nowait
client" server-delete-client "Close empty client" minibufferp message "%s"
substitute-command-keys "When done with this frame, type \\[delete-frame]"
server-switch-buffer nil run-hooks server-switch-hook "When done with a buffer,
type \\[server-edit]" server-unselect-display isearch-mode] 5 "\n\n(fn)"]()
funcall(#[0 "\301\205
.\307\301\300\302#\310\311\303\237\"\210\302\203.\312\313\300\"\210\314\300!\210\2020.\304\2040.\211\2040.\312\315\300\"\210\314\300!\210.\204h.\316
\204h.\305\203L.\211\204L.\317\320\321\322!\"address@hidden@A#\210\325\326!\210\302\204h.\317\320\321\327!\"\210\305\205t.\306?\205t.\330\305!\207"
[#<process server <10>>
(("/var/folders/b2/w0_x7_854hz82sbrdxqqd6gr0000gn/T/0publish-lIS4Ml.xml")) nil
nil nil nil nil server-visit-files mapc funcall server-log "Close nowait
client" server-delete-client "Close empty client" minibufferp message "%s"
substitute-command-keys "When done with this frame, type \\[delete-frame]"
server-switch-buffer nil run-hooks server-switch-hook "When done with a buffer,
type \\[server-edit]" server-unselect-display isearch-mode] 5 "\n\n(fn)"])
#[0
"\307.\310\311\312\313\314\315\316\300\301\302\303\304\305\306&\317\"\320\321%D\322\311\312\323\324\315\316\300!\325\"\326\327%\310EDC\217)\207"
[#<process server <10>>
(("/var/folders/b2/w0_x7_854hz82sbrdxqqd6gr0000gn/T/0publish-lIS4Ml.xml")) nil
nil nil nil nil nil err funcall make-byte-code 0 "\301\205
.\307\301\300\302#\310\311\303\237\"\210\302\203.\312\313\300\"\210\314\300!\210\2020.\304\2040.\211\2040.\312\315\300\"\210\314\300!\210.\204h.\316
\204h.\305\203L.\211\204L.\317\320\321\322!\"address@hidden@A#\210\325\326!\210\302\204h.\317\320\321\327!\"\210\305\205t.\306?\205t.\330\305!\207"
vconcat vector [server-visit-files mapc funcall server-log "Close nowait
client" server-delete-client "Close empty client" minibufferp message "%s"
substitute-command-keys "When done with this frame, type \\[delete-frame]"
server-switch-buffer nil run-hooks server-switch-hook "When done with a buffer,
type \\[server-edit]" server-unselect-display isearch-mode] 5 "\n\n(fn)" (quit
error) 257 "address@hidden"\207" [quit message "Quit emacsclient request"
server-return-error] 4 "\n\n(fn ERR)" inhibit-quit] 14 "\n\n(fn)"]()
funcall(#[0
"\307.\310\311\312\313\314\315\316\300\301\302\303\304\305\306&\317\"\320\321%D\322\311\312\323\324\315\316\300!\325\"\326\327%\310EDC\217)\207"
[#<process server <10>>
(("/var/folders/b2/w0_x7_854hz82sbrdxqqd6gr0000gn/T/0publish-lIS4Ml.xml")) nil
nil nil nil nil nil err funcall make-byte-code 0 "\301\205
.\307\301\300\302#\310\311\303\237\"\210\302\203.\312\313\300\"\210\314\300!\210\2020.\304\2040.\211\2040.\312\315\300\"\210\314\300!\210.\204h.\316
\204h.\305\203L.\211\204L.\317\320\321\322!\"address@hidden@A#\210\325\326!\210\302\204h.\317\320\321\327!\"\210\305\205t.\306?\205t.\330\305!\207"
vconcat vector [server-visit-files mapc funcall server-log "Close nowait
client" server-delete-client "Close empty client" minibufferp message "%s"
substitute-command-keys "When done with this frame, type \\[delete-frame]"
server-switch-buffer nil run-hooks server-switch-hook "When done with a buffer,
type \\[server-edit]" server-unselect-display isearch-mode] 5 "\n\n(fn)" (quit
error) 257 "address@hidden"\207" [quit message "Quit emacsclient request"
server-return-error] 4 "\n\n(fn ERR)" inhibit-quit] 14 "\n\n(fn)"])
server-execute(#<process server <10>>
(("/var/folders/b2/w0_x7_854hz82sbrdxqqd6gr0000gn/T/0publish-lIS4Ml.xml")) nil
nil nil nil nil)
#[0
"address@hidden@address@hidden@address@hidden@address@hidden@\306@&*\207"
[#<process server <10>> (nil) (nil) (nil) (nil)
("/Users/dave/src/ryppl/feeds/") (nil)
((("/var/folders/b2/w0_x7_854hz82sbrdxqqd6gr0000gn/T/0publish-lIS4Ml.xml")))
get-buffer-create file-directory-p server-execute server-buffer
default-directory] 8 "\n\n(fn)"]()
#[0 "\300 \207" [#[0
"address@hidden@address@hidden@address@hidden@address@hidden@\306@&*\207"
[#<process server <10>> (nil) (nil) (nil) (nil)
("/Users/dave/src/ryppl/feeds/") (nil)
((("/var/folders/b2/w0_x7_854hz82sbrdxqqd6gr0000gn/T/0publish-lIS4Ml.xml")))
get-buffer-create file-directory-p server-execute server-buffer
default-directory] 8 "\n\n(fn)"]] 1 "\n\n(fn)"]()
funcall(#[0 "\300 \207" [#[0
"address@hidden@address@hidden@address@hidden@address@hidden@\306@&*\207"
[#<process server <10>> (nil) (nil) (nil) (nil)
("/Users/dave/src/ryppl/feeds/") (nil)
((("/var/folders/b2/w0_x7_854hz82sbrdxqqd6gr0000gn/T/0publish-lIS4Ml.xml")))
get-buffer-create file-directory-p server-execute server-buffer
default-directory] 8 "\n\n(fn)"]] 1 "\n\n(fn)"])
server-execute-continuation(#<process server <10>>)
#[0 "\301\300!\207" [#<process server <10>> server-execute-continuation] 2
"\n\n(fn)"]()
apply(#[0 "\301\300!\207" [#<process server <10>>
server-execute-continuation] 2 "\n\n(fn)"] nil)
byte-code("r\301\302H\303H\"\210)\301\207" [timer apply 5 6] 4)
timer-event-handler([t 20596 53085 837296 nil #[0 "\301\300!\207" [#<process
server <10>> server-execute-continuation] 2 "\n\n(fn)"] nil nil])
--8<---------------cut here---------------end--------------->8---
Emacs : GNU Emacs 24.2.1 (x86_64-apple-darwin11.4.0, Carbon Version 1.6.0
AppKit 1138.47)
of 2012-09-20 on pluto.luannocracy.com
Package: tramp (2.2.6-pre)
current state:
==============
(setq
backup-by-copying nil
backup-by-copying-when-linked nil
backup-by-copying-when-mismatch t
backup-by-copying-when-privileged-mismatch 200
backup-directory-alist '(("." . "~/.emacs.d/backups"))
file-name-handler-alist
'(("\\(?:\\.dz\\|\\.xz\\|\\.lzma\\|\\.lz\\|\\.g?z\\|\\.\\(?:tgz\\|svgz\\|sifz\\)\\|\\.tbz2?\\|\\.bz2\\|\\.Z\\)\\(?:~\\|\\.~[-[:alnum:]:address@hidden(?:~[[:digit:]]+\\)?~\\)?\\'"
. jka-compr-handler)
("\\.gpg\\(~\\|\\.~[0-9]+~\\)?\\'" .
epa-file-handler)
("\\`/[^/]*\\'" . tramp-completion-file-name-handler)
("\\`/\\([^[/|:]+\\|[^/|]+]\\):" .
tramp-file-name-handler)
("\\`/:" . file-name-non-special))
password-cache t
password-cache-expiry 16
remote-file-name-inhibit-cache 10
shell-prompt-pattern "^[^#$%>\n]*[#$%>] *"
tramp-actions-before-shell '((tramp-login-prompt-regexp tramp-action-login)
(tramp-password-prompt-regexp
tramp-action-password)
(tramp-wrong-passwd-regexp
tramp-action-permission-denied)
(shell-prompt-pattern tramp-action-succeed)
(tramp-shell-prompt-pattern tramp-action-succeed)
(tramp-yesno-prompt-regexp tramp-action-yesno)
(tramp-yn-prompt-regexp tramp-action-yn)
(tramp-terminal-prompt-regexp
tramp-action-terminal)
(tramp-process-alive-regexp
tramp-action-process-alive))
tramp-actions-copy-out-of-band '((tramp-password-prompt-regexp
tramp-action-password)
(tramp-wrong-passwd-regexp
tramp-action-permission-denied)
(tramp-copy-failed-regexp
tramp-action-permission-denied)
(tramp-process-alive-regexp
tramp-action-out-of-band))
tramp-auto-save-directory nil
tramp-backup-directory-alist '(("." . "~/.emacs.d/backups"))
tramp-bug-report-address "address@hidden"
tramp-cache-data '(("#<process *tramp/scpc io.local*>"
("vector" ["scpc" nil "io.local"
"/private/tmp/emacs-mac-mrNX/" nil])
("temp-file"
"/var/folders/b2/w0_x7_854hz82sbrdxqqd6gr0000gn/T/tramp.4635hAj")
("last-cmd-time" (20596 52590 898627)))
)
tramp-cache-data-changed t
tramp-cache-unload-hook '((lambda nil
(remove-hook (quote kill-emacs-hook)
(quote tramp-dump-connection-properties))
)
(lambda nil
(remove-hook (quote before-revert-hook) (quote
tramp-flush-file-function))
(remove-hook (quote eshell-pre-command-hook)
(quote tramp-flush-file-function))
(remove-hook (quote kill-buffer-hook) (quote
tramp-flush-file-function)))
)
tramp-chunksize nil
;; Variable encoded due to non-printable characters.
tramp-color-escape-sequence-regexp (base64-decode-string "G1tbOzAtOV0rbQ==")
tramp-completion-file-name-handler-alist '((file-name-all-completions .
tramp-completion-handle-file-name-all-completions)
(file-name-completion .
tramp-completion-handle-file-name-completion)
)
tramp-completion-file-name-regexp "\\`/[^/]*\\'"
tramp-completion-file-name-regexp-separate "\\`/\\([[][^]]*\\)?\\'"
tramp-completion-file-name-regexp-unified "\\`/[^/]*\\'"
tramp-completion-file-name-regexp-url
"\\`/[^/:]+\\(:\\(/\\(/[^/]*\\)?\\)?\\)?\\'"
tramp-completion-function-alist '(("fcp" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("pscp" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("plink1" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("plink" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("krlogin" (tramp-parse-rhosts
"/etc/hosts.equiv"))
("ksu" (tramp-parse-passwd "/etc/passwd"))
("sudo" (tramp-parse-passwd "/etc/passwd"))
("su" (tramp-parse-passwd "/etc/passwd"))
("telnet" (tramp-parse-hosts "/etc/hosts"))
("sshx" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("ssh2_old" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("ssh1_old" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("ssh2" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("ssh1" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("ssh" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("remsh" (tramp-parse-rhosts
"/etc/hosts.equiv"))
("rsh" (tramp-parse-rhosts
"/etc/hosts.equiv"))
("rsyncc" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("rsync" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("sftp" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("scpx" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("scpc" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("scp2" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("scp1" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("scp" (tramp-parse-rhosts
"/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
("remcp" (tramp-parse-rhosts
"/etc/hosts.equiv"))
("rcp" (tramp-parse-rhosts
"/etc/hosts.equiv"))
("ftp" (tramp-parse-netrc "~/.netrc"))
("smb" (tramp-parse-netrc "~/.netrc")))
tramp-completion-function-alist-putty '((tramp-parse-putty
"~/.putty/sessions"))
tramp-completion-function-alist-rsh '((tramp-parse-rhosts "/etc/hosts.equiv"))
tramp-completion-function-alist-ssh '((tramp-parse-rhosts "/etc/hosts.equiv")
(tramp-parse-sconfig "/etc/ssh_config")
(tramp-parse-shosts "~/.ssh/known_hosts")
(tramp-parse-sconfig "~/.ssh/config"))
tramp-completion-function-alist-su '((tramp-parse-passwd "/etc/passwd"))
tramp-completion-function-alist-telnet '((tramp-parse-hosts "/etc/hosts"))
tramp-completion-mode nil
tramp-completion-reread-directory-timeout 10
tramp-copy-failed-regexp "\\(.+: \\(No such file or directory\\|Permission
denied\\|is a directory\\|not a regular file\\)\\)\\s-*"
tramp-copy-size-limit 10240
tramp-current-connection '(("scpc" nil "io.local"
"/private/tmp/emacs-mac-mrNX/") 20596 52776 360147)
tramp-current-host "io.local"
tramp-current-method "scpc"
tramp-current-user nil
tramp-debug-outline-regexp "[0-9]+:[0-9]+:[0-9]+\\.[0-9]+ [a-z0-9-]+
(\\([0-9]+\\)) #"
tramp-default-host "localhost"
tramp-default-method "scpc"
tramp-default-method-alist '((nil "%" "smb")
("\\`\\(127\\.0\\.0\\.1\\|::1\\|localhost6?\\|pluto\\.luannocracy\\.com\\)\\'"
"\\`root\\'" "su")
(nil "\\`\\(anonymous\\|ftp\\)\\'" "ftp")
("\\`ftp\\." nil "ftp"))
tramp-default-proxies-alist '(("\\`localhost\\'" nil nil)
("\\`206.217.198.21\\'" nil nil)
("\\`.+\\'" "\\`root\\'" "/ssh:%h:"))
tramp-default-user nil
tramp-default-user-alist '(("\\`smb\\'" nil nil)
("\\`\\(?:fcp\\|krlogin\\|r\\(?:cp\\|emcp\\|sh\\)\\|telnet\\)\\'" nil
"dave")
("\\`\\(?:ksu\\|su\\(?:do\\)?\\)\\'" nil "root")
("\\`\\(?:socks\\|tunnel\\)\\'" nil "dave")
("\\`synce\\'" nil nil))
tramp-devices 2
tramp-domain-regexp "[-a-zA-Z0-9_.]+"
tramp-echo-mark "_echo"
tramp-echo-mark-marker "_echo"
tramp-echo-mark-marker-length 5
tramp-echoed-echo-mark-regexp "_echo\\(\\( \\)?\\)\\{5\\}"
tramp-efs-method "ftp"
tramp-encoding-command-interactive "-i"
tramp-encoding-command-switch "-c"
tramp-encoding-shell "/bin/sh"
tramp-end-of-output "///85dcfddf95da9e8c884bad1dc6290e0d#$"
tramp-file-mode-type-map '((0 . "-") (1 . "p") (2 . "c") (3 . "m") (4 . "d")
(5 . "?") (6 . "b")
(7 . "?") (8 . "-") (9 . "n") (10 . "l") (11 . "?")
(12 . "s") (13 . "D")
(14 . "w"))
tramp-file-name-regexp "\\`/\\([^[/|:]+\\|[^/|]+]\\):"
tramp-file-name-regexp-separate "\\`/\\[.*\\]"
tramp-file-name-regexp-unified "\\`/\\([^[/|:]+\\|[^/|]+]\\):"
tramp-file-name-regexp-url "\\`/[^/|:]+://"
tramp-file-name-structure
'("^/\\(\\(?:\\(?:\\([a-zA-Z_0-9-]+\\):\\)?\\(?:\\([^/|:
]+\\)@\\)?\\(\\(?:[a-zA-Z0-9_.-]+\\|\\[\\(?:\\(?:[a-zA-Z0-9]+\\)?:\\)+[a-zA-Z0-9.]+]\\)\\(?:#[0-9]+\\)?\\)?|\\)+\\)?\\(?:\\([a-zA-Z_0-9-]+\\):\\)?\\(?:\\([^/|:
]+\\)@\\)?\\(\\(?:[a-zA-Z0-9_.-]+\\|\\[\\(?:\\(?:[a-zA-Z0-9]+\\)?:\\)+[a-zA-Z0-9.]+]\\)\\(?:#[0-9]+\\)?\\)?:\\(.*$\\)"
5 6 7 8 1)
tramp-foreign-file-name-handler-alist '((tramp-smb-file-name-p .
tramp-smb-file-name-handler)
(tramp-gvfs-file-name-p .
tramp-gvfs-file-name-handler)
(tramp-ftp-file-name-p .
tramp-ftp-file-name-handler)
(identity .
tramp-sh-file-name-handler))
tramp-ftp-method "ftp"
tramp-gvfs-methods '("dav" "davs" "obex" "synce")
tramp-gw-socks-method "socks"
tramp-gw-tunnel-method "tunnel"
tramp-half-a-year '(241 17024)
tramp-handle-file-local-copy-hook nil
tramp-handle-write-region-hook nil
tramp-host-regexp "[a-zA-Z0-9_.-]+"
tramp-host-with-port-regexp "\\([a-zA-Z0-9_.-]+\\)#\\([0-9]+\\)"
tramp-initial-end-of-output "#$ "
tramp-inline-compress-commands '(("gzip" "gzip -d") ("bzip2" "bzip2 -d") ("xz"
"xz -d")
("compress" "compress -d"))
tramp-inline-compress-start-size 4096
tramp-inodes 0
tramp-ipv6-regexp "\\(?:\\(?:[a-zA-Z0-9]+\\)?:\\)+[a-zA-Z0-9.]+"
tramp-local-coding-commands '((b64 base64-encode-region base64-decode-region)
(uu tramp-uuencode-region uudecode-decode-region)
(pack
"perl -e 'binmode STDIN; binmode STDOUT; print
pack(q{u*}, join q{}, <>)'" "perl -e 'binmode STDIN; binmode STDOUT; print
unpack(q{u*}, join q{}, <>)'")
)
tramp-local-end-of-line "\n"
tramp-local-host-regexp
"\\`\\(127\\.0\\.0\\.1\\|::1\\|localhost6?\\|pluto\\.luannocracy\\.com\\)\\'"
tramp-localname-regexp ".*$"
tramp-locked nil
tramp-locker nil
tramp-login-prompt-regexp ".*ogin\\( .*\\)?: *"
tramp-message-show-message t
tramp-message-show-progress-reporter-message t
tramp-method-regexp "[a-zA-Z_0-9-]+"
tramp-methods '(("smb" (tramp-remote-shell "") (tramp-tmpdir "/C$/Temp"))
("fcp" (tramp-login-program "fsh") (tramp-login-args (("%h")
("-l" "%u") ("sh" "-i")))
(tramp-remote-shell "/bin/sh") (tramp-remote-shell-args
("-i") ("-c"))
(tramp-copy-program "fcp") (tramp-copy-args (("-p" "%k")))
(tramp-copy-keep-date t))
("psftp" (tramp-login-program "plink")
(tramp-login-args (("-l" "%u") ("-P" "%p") ("-ssh") ("%h")))
(tramp-remote-shell "/bin/sh") (tramp-remote-shell-args
("-c"))
(tramp-copy-program "pscp")
(tramp-copy-args (("-l" "%u") ("-P" "%p") ("-sftp") ("-p"
"%k") ("-q") ("-r")))
(tramp-copy-keep-date t) (tramp-copy-recursive t))
("pscp" (tramp-login-program "plink")
(tramp-login-args (("-l" "%u") ("-P" "%p") ("-ssh") ("%h")))
(tramp-remote-shell "/bin/sh") (tramp-remote-shell-args
("-c"))
(tramp-copy-program "pscp")
(tramp-copy-args (("-l" "%u") ("-P" "%p") ("-scp") ("-p"
"%k") ("-q") ("-r")))
(tramp-copy-keep-date t) (tramp-copy-recursive t)
(tramp-default-port 22))
("plinkx" (tramp-login-program "plink")
(tramp-login-args
(("-load") ("%h") ("-t") ("env 'TERM=dumb' 'PROMPT_COMMAND='
'PS1=#$ '") ("/bin/sh"))
)
(tramp-remote-shell "/bin/sh") (tramp-remote-shell-args
("-c")))
("plink1" (tramp-login-program "plink")
(tramp-login-args (("-l" "%u") ("-P" "%p") ("-1" "-ssh")
("%h")))
(tramp-remote-shell "/bin/sh") (tramp-remote-shell-args
("-c"))
(tramp-default-port 22))
("plink" (tramp-login-program "plink")
(tramp-login-args (("-l" "%u") ("-P" "%p") ("-ssh") ("%h")))
(tramp-remote-shell "/bin/sh") (tramp-remote-shell-args
("-c"))
(tramp-default-port 22))
("krlogin" (tramp-login-program "krlogin")
(tramp-login-args (("%h") ("-l" "%u") ("-x")))
(tramp-remote-shell "/bin/sh")
(tramp-remote-shell-args ("-c")))
("ksu" (tramp-login-program "ksu") (tramp-login-args (("%u")
("-q")))
(tramp-remote-shell "/bin/sh") (tramp-remote-shell-args
("-c")))
("sudo" (tramp-login-program "sudo")
(tramp-login-args (("-u" "%u") ("-s") ("-H") ("-p"
"Password:")))
(tramp-remote-shell "/bin/sh") (tramp-remote-shell-args
("-c")))
("su" (tramp-login-program "su") (tramp-login-args (("-")
("%u")))
(tramp-remote-shell "/bin/sh") (tramp-remote-shell-args
("-c")))
("telnet" (tramp-login-program "telnet") (tramp-login-args
(("%h") ("%p")))
(tramp-remote-shell "/bin/sh") (tramp-remote-shell-args
("-c"))
(tramp-default-port 23))
("sshx" (tramp-login-program "ssh")
(tramp-login-args
(("-l" "%u") ("-p" "%p") ("-e" "none") ("-t" "-t") ("%h")
("/bin/sh")))
(tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh")
(tramp-remote-shell-args ("-c"))
(tramp-gw-args
(("-o" "GlobalKnownHostsFile=/dev/null") ("-o"
"UserKnownHostsFile=/dev/null")
("-o" "StrictHostKeyChecking=no"))
)
(tramp-default-port 22))
("ssh2" (tramp-login-program "ssh")
(tramp-login-args (("-l" "%u") ("-p" "%p") ("-2") ("-e"
"none") ("%h")))
(tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh")
(tramp-remote-shell-args ("-c"))
(tramp-gw-args
(("-o" "GlobalKnownHostsFile=/dev/null") ("-o"
"UserKnownHostsFile=/dev/null")
("-o" "StrictHostKeyChecking=no"))
)
(tramp-default-port 22))
("ssh1" (tramp-login-program "ssh")
(tramp-login-args (("-l" "%u") ("-p" "%p") ("-1") ("-e"
"none") ("%h")))
(tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh")
(tramp-remote-shell-args ("-c"))
(tramp-gw-args
(("-o" "GlobalKnownHostsFile=/dev/null") ("-o"
"UserKnownHostsFile=/dev/null")
("-o" "StrictHostKeyChecking=no"))
)
(tramp-default-port 22))
("ssh" (tramp-login-program "ssh")
(tramp-login-args (("-l" "%u") ("-p" "%p") ("-e" "none")
("%h")))
(tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh")
(tramp-remote-shell-args ("-c"))
(tramp-gw-args
(("-o" "GlobalKnownHostsFile=/dev/null") ("-o"
"UserKnownHostsFile=/dev/null")
("-o" "StrictHostKeyChecking=no"))
)
(tramp-default-port 22))
("remsh" (tramp-login-program "remsh") (tramp-login-args
(("%h") ("-l" "%u")))
(tramp-remote-shell "/bin/sh") (tramp-remote-shell-args
("-c")))
("rsh" (tramp-login-program "rsh") (tramp-login-args (("%h")
("-l" "%u")))
(tramp-remote-shell "/bin/sh") (tramp-remote-shell-args
("-c")))
("rsyncc" (tramp-login-program "ssh")
(tramp-login-args
(("-l" "%u") ("-p" "%p") ("-o" "address@hidden:%%p")
("-o" "ControlMaster=yes") ("-e" "none") ("%h"))
)
(tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh")
(tramp-remote-shell-args ("-c")) (tramp-copy-program "rsync")
(tramp-copy-args (("-t" "%k") ("-r")))
(tramp-copy-env
(("RSYNC_RSH") ("ssh -o address@hidden:%%p -o
ControlMaster=auto")))
(tramp-copy-keep-date t) (tramp-copy-keep-tmpfile t)
(tramp-copy-recursive t))
("rsync" (tramp-login-program "ssh")
(tramp-login-args (("-l" "%u") ("-p" "%p") ("-e" "none")
("%h")))
(tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh")
(tramp-remote-shell-args ("-c")) (tramp-copy-program "rsync")
(tramp-copy-args (("-e" "ssh") ("-t" "%k") ("-r")))
(tramp-copy-keep-date t)
(tramp-copy-keep-tmpfile t) (tramp-copy-recursive t))
("sftp" (tramp-login-program "ssh")
(tramp-login-args (("-l" "%u") ("-p" "%p") ("-e" "none")
("%h")))
(tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh")
(tramp-remote-shell-args ("-c")) (tramp-copy-program "sftp"))
("scpx" (tramp-login-program "ssh")
(tramp-login-args
(("-l" "%u") ("-p" "%p") ("-e" "none") ("-t" "-t") ("%h")
("/bin/sh")))
(tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh")
(tramp-remote-shell-args ("-c")) (tramp-copy-program "scp")
(tramp-copy-args (("-P" "%p") ("-p" "%k") ("-q") ("-r")))
(tramp-copy-keep-date t)
(tramp-copy-recursive t)
(tramp-gw-args
(("-o" "GlobalKnownHostsFile=/dev/null") ("-o"
"UserKnownHostsFile=/dev/null")
("-o" "StrictHostKeyChecking=no"))
)
(tramp-default-port 22))
("scpc" (tramp-login-program "ssh")
(tramp-login-args
(("-l" "%u") ("-p" "%p") ("-o" "address@hidden:%%p")
("-o" "ControlMaster=yes") ("-e" "none") ("%h"))
)
(tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh")
(tramp-remote-shell-args ("-c")) (tramp-copy-program "scp")
(tramp-copy-args
(("-P" "%p") ("-p" "%k") ("-q") ("-r") ("-o"
"address@hidden:%%p")
("-o" "ControlMaster=auto"))
)
(tramp-copy-keep-date t) (tramp-copy-recursive t)
(tramp-gw-args
(("-o" "GlobalKnownHostsFile=/dev/null") ("-o"
"UserKnownHostsFile=/dev/null")
("-o" "StrictHostKeyChecking=no"))
)
(tramp-default-port 22))
("scp2" (tramp-login-program "ssh")
(tramp-login-args (("-l" "%u") ("-p" "%p") ("-2") ("-e"
"none") ("%h")))
(tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh")
(tramp-remote-shell-args ("-c")) (tramp-copy-program "scp")
(tramp-copy-args (("-2") ("-P" "%p") ("-p" "%k") ("-q")
("-r")))
(tramp-copy-keep-date t) (tramp-copy-recursive t)
(tramp-gw-args
(("-o" "GlobalKnownHostsFile=/dev/null") ("-o"
"UserKnownHostsFile=/dev/null")
("-o" "StrictHostKeyChecking=no"))
)
(tramp-default-port 22))
("scp1" (tramp-login-program "ssh")
(tramp-login-args (("-l" "%u") ("-p" "%p") ("-1") ("-e"
"none") ("%h")))
(tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh")
(tramp-remote-shell-args ("-c")) (tramp-copy-program "scp")
(tramp-copy-args (("-1") ("-P" "%p") ("-p" "%k") ("-q")
("-r")))
(tramp-copy-keep-date t) (tramp-copy-recursive t)
(tramp-gw-args
(("-o" "GlobalKnownHostsFile=/dev/null") ("-o"
"UserKnownHostsFile=/dev/null")
("-o" "StrictHostKeyChecking=no"))
)
(tramp-default-port 22))
("scp" (tramp-login-program "ssh")
(tramp-login-args (("-l" "%u") ("-p" "%p") ("-e" "none")
("%h")))
(tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh")
(tramp-remote-shell-args ("-c")) (tramp-copy-program "scp")
(tramp-copy-args (("-P" "%p") ("-p" "%k") ("-q") ("-r")))
(tramp-copy-keep-date t)
(tramp-copy-recursive t)
(tramp-gw-args
(("-o" "GlobalKnownHostsFile=/dev/null") ("-o"
"UserKnownHostsFile=/dev/null")
("-o" "StrictHostKeyChecking=no"))
)
(tramp-default-port 22))
("remcp" (tramp-login-program "remsh") (tramp-login-args
(("%h") ("-l" "%u")))
(tramp-remote-shell "/bin/sh") (tramp-remote-shell-args
("-c"))
(tramp-copy-program "rcp") (tramp-copy-args (("-p" "%k")))
(tramp-copy-keep-date t))
("rcp" (tramp-login-program "rsh") (tramp-login-args (("%h")
("-l" "%u")))
(tramp-remote-shell "/bin/sh") (tramp-remote-shell-args
("-c"))
(tramp-copy-program "rcp") (tramp-copy-args (("-p" "%k")
("-r")))
(tramp-copy-keep-date t) (tramp-copy-recursive t))
("synce") ("obex") ("davs") ("dav") ("ftp"))
tramp-mode t
tramp-operation-not-permitted-regexp "\\(preserving times.*\\|set
mode\\):\\s-*\\(Operation not permitted\\)"
tramp-parse-time-months '(("jan" . 1) ("feb" . 2) ("mar" . 3) ("apr" . 4)
("may" . 5) ("jun" . 6)
("jul" . 7) ("aug" . 8) ("sep" . 9) ("oct" . 10)
("nov" . 11) ("dec" . 12))
;; Variable encoded due to non-printable characters.
tramp-password-prompt-regexp (base64-decode-string
"Xi4qXChbcFBdYXNzd29yZFx8W3BQXWFzc3BocmFzZVwpLio6AD8gKg==")
tramp-perl-decode "%s -e '\n# This script contributed by Juanma Barranquero
<address@hidden>.\n# Copyright (C) 2002-2012 Free Software Foundation,
Inc.\nuse strict;\n\nmy %%trans = do {\n my $i = 0;\n map {($_,
substr(unpack(q(B8), chr $i++), 2, 6))}\n split //,
q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/)\n};\n\nmy
%%bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 ..
255;\n\nbinmode(\\*STDOUT);\n\n# We are going to accumulate into $pending to
accept any line length\n# (we do not check they are <= 76 chars as the RFC
says)\nmy $pending = q();\n\nwhile (my $data = <STDIN>) {\n chomp $data;\n\n
# If we find one or two =, we have reached the end and\n # any following
data is to be discarded\n my $finished = $data =~ s/(==?).*/$1/;\n
$pending .= $data;\n\n my $len = length($pending);\n my $chunk =
substr($pending, 0, $len & ~3);\n $pending = substr($pending, $len & ~3 +
1);\n\n # Easy method: translate from chars to (pregenerated) six-bit
packets, join,\n # split in 8-bit chunks and convert back to char.\n
print join q(),\n map $bytes{$_},\n ((join q(), map {$trans{$_} ||
q()} split //, $chunk) =~ /......../g);\n\n last if $finished;\n}'
2>/dev/null"
tramp-perl-decode-with-module "%s -MMIME::Base64 -0777 -ne 'print
decode_base64($_)' 2>/dev/null"
tramp-perl-directory-files-and-attributes "%s -e '\nchdir($ARGV[0]) or
printf(\"\\\"Cannot change to $ARGV[0]: $''!''\\\"\\n\"),
exit();\nopendir(DIR,\".\") or printf(\"\\\"Cannot open directory $ARGV[0]:
$''!''\\\"\\n\"), exit();address@hidden = readdir(DIR);\nclosedir(DIR);\n$n =
scalar(@list);\nprintf(\"(\\n\");\nfor($i = 0; $i < $n; $i++)\n{\n $filename
= $list[$i];\n @stat = lstat($filename);\n if (($stat[2] & 0170000) ==
0120000)\n {\n $type = readlink($filename);\n $type =
\"\\\"$type\\\"\";\n }\n elsif (($stat[2] & 0170000) == 040000)\n {\n
$type = \"t\";\n }\n else\n {\n $type = \"nil\"\n };\n
$uid = ($ARGV[1] eq \"integer\") ? $stat[4] : \"\\\"\" . getpwuid($stat[4])
. \"\\\"\";\n $gid = ($ARGV[1] eq \"integer\") ? $stat[5] : \"\\\"\" .
getgrgid($stat[5]) . \"\\\"\";\n printf(\n \"(\\\"%%s\\\" %%s %%u %%s
%%s (%%u %%u) (%%u %%u) (%%u %%u) %%u.0 %%u t (%%u . %%u) (%%u . %%u))\\n\",\n
$filename,\n $type,\n $stat[3],\n $uid,\n
$gid,\n $stat[8] >> 16 & 0xffff,\n $stat[8] & 0xffff,\n
$stat[9] >> 16 & 0xffff,\n $stat[9] & 0xffff,\n $stat[10] >> 16 &
0xffff,\n $stat[10] & 0xffff,\n $stat[7],\n $stat[2],\n
$stat[1] >> 16 & 0xffff,\n $stat[1] & 0xffff,\n $stat[0] >>
16 & 0xffff,\n $stat[0] & 0xffff);\n}\nprintf(\")\\n\");' \"$1\" \"$2\"
2>/dev/null"
tramp-perl-encode "%s -e '\n# This script contributed by Juanma Barranquero
<address@hidden>.\n# Copyright (C) 2002-2012 Free Software Foundation,
Inc.\nuse strict;\n\nmy %%trans = do {\n my $i = 0;\n map
{(substr(unpack(q(B8), chr $i++), 2, 6), $_)}\n split //,
q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/);\n};\n\nbinmode(\\*STDIN);\n\n#
We read in chunks of 54 bytes, to generate output lines\n# of 72 chars (plus
end of line)\n$/ = \\54;\n\nwhile (my $data = <STDIN>) {\n my $pad =
q();\n\n # Only for the last chunk, and only if did not fill the last
three-byte packet\n if (eof) {\n my $mod = length($data) %% 3;\n
$pad = q(=) x (3 - $mod) if $mod;\n }\n\n # Not the fastest method, but
it is simple: unpack to binary string, split\n # by groups of 6 bits and
convert back from binary to byte; then map into\n # the translation table\n
print\n join q(),\n map($trans{$_},\n
(substr(unpack(q(B*), $data) . q(00000), 0, 432) =~ /....../g)),\n
$pad,\n qq(\\n);\n}' 2>/dev/null"
tramp-perl-encode-with-module "%s -MMIME::Base64 -0777 -ne 'print
encode_base64($_)' 2>/dev/null"
tramp-perl-file-attributes "%s -e 'address@hidden = lstat($ARGV[0]);\nif
(address@hidden) {\n print \"nil\\n\";\n exit 0;\n}\nif (($stat[2] &
0170000) == 0120000)\n{\n $type = readlink($ARGV[0]);\n $type =
\"\\\"$type\\\"\";\n}\nelsif (($stat[2] & 0170000) == 040000)\n{\n $type =
\"t\";\n}\nelse\n{\n $type = \"nil\"\n};\n$uid = ($ARGV[1] eq \"integer\") ?
$stat[4] : \"\\\"\" . getpwuid($stat[4]) . \"\\\"\";\n$gid = ($ARGV[1] eq
\"integer\") ? $stat[5] : \"\\\"\" . getgrgid($stat[5]) . \"\\\"\";\nprintf(\n
\"(%%s %%u %%s %%s (%%u %%u) (%%u %%u) (%%u %%u) %%u.0 %%u t (%%u . %%u)
-1)\\n\",\n $type,\n $stat[3],\n $uid,\n $gid,\n $stat[8] >> 16
& 0xffff,\n $stat[8] & 0xffff,\n $stat[9] >> 16 & 0xffff,\n $stat[9] &
0xffff,\n $stat[10] >> 16 & 0xffff,\n $stat[10] & 0xffff,\n
$stat[7],\n $stat[2],\n $stat[1] >> 16 & 0xffff,\n $stat[1] &
0xffff\n);' \"$1\" \"$2\" 2>/dev/null"
tramp-perl-file-name-all-completions "%s -e 'sub case {\n my $str = shift;\n
if ($ARGV[2]) {\n return lc($str);\n }\n else {\n return $str;\n
}\n}\nopendir(d, $ARGV[0]) || die(\"$ARGV[0]: $!\\nfail\\n\");address@hidden =
readdir(d); closedir(d);\nforeach $f (@files) {\n if (case(substr($f, 0,
length($ARGV[1]))) eq case($ARGV[1])) {\n if (-d \"$ARGV[0]/$f\") {\n print
\"$f/\\n\";\n }\n else {\n print \"$f\\n\";\n }\n }\n}\nprint \"ok\\n\"\n'
\"$1\" \"$2\" \"$3\" 2>/dev/null"
tramp-perl-file-truename "%s -e '\nuse File::Spec;\nuse Cwd
\"realpath\";\n\nsub recursive {\n my ($volume, @dirs) = @_;\n my $real =
realpath(File::Spec->catpath(\n $volume,
File::Spec->catdir(@dirs), \"\"));\n if ($real) {\n my ($vol, $dir) =
File::Spec->splitpath($real, 1);\n return ($vol,
File::Spec->splitdir($dir));\n }\n else {\n my $last =
pop(@dirs);\n ($volume, @dirs) = recursive($volume, @dirs);\n
push(@dirs, $last);\n return ($volume, @dirs);\n }\n}\n\n$result =
realpath($ARGV[0]);\nif (!$result) {\n my ($vol, $dir) =
File::Spec->splitpath($ARGV[0], 1);\n ($vol, @dirs) = recursive($vol,
File::Spec->splitdir($dir));\n\n $result = File::Spec->catpath($vol,
File::Spec->catdir(@dirs), \"\");\n}\n\nif ($ARGV[0] =~ /\\/$/) {\n $result
= $result . \"/\";\n}\n\nprint \"\\\"$result\\\"\\n\";\n' \"$1\" 2>/dev/null"
tramp-persistency-file-name "/Users/dave/.emacs.d/tramp"
tramp-port-regexp "[0-9]+"
tramp-postfix-hop-format "|"
tramp-postfix-hop-regexp "|"
tramp-postfix-host-format ":"
tramp-postfix-host-regexp ":"
tramp-postfix-ipv6-format "]"
tramp-postfix-ipv6-regexp "]"
tramp-postfix-method-format ":"
tramp-postfix-method-regexp ":"
tramp-postfix-user-format "@"
tramp-postfix-user-regexp "@"
tramp-prefix-domain-format "%"
tramp-prefix-domain-regexp "%"
tramp-prefix-format "/"
tramp-prefix-ipv6-format "["
tramp-prefix-ipv6-regexp "\\["
tramp-prefix-port-format "#"
tramp-prefix-port-regexp "#"
tramp-prefix-regexp "^/"
tramp-process-alive-regexp ""
tramp-process-connection-type t
tramp-remote-coding-commands '((b64 "base64" "base64 -d -i") (b64 "base64"
"base64 -d")
(b64 "mimencode -b" "mimencode -u -b")
(b64 "mmencode -b" "mmencode -u -b")
(b64 "recode data..base64" "recode
base64..data")
(b64 tramp-perl-encode-with-module
tramp-perl-decode-with-module)
(b64 tramp-perl-encode tramp-perl-decode)
(uu "uuencode xxx" "uudecode -o /dev/stdout"
"test -c /dev/stdout")
(uu "uuencode xxx" "uudecode -o -") (uu
"uuencode xxx" "uudecode -p")
(uu "uuencode xxx" tramp-uudecode)
(pack
"perl -e 'binmode STDIN; binmode STDOUT; print
pack(q{u*}, join q{}, <>)'" "perl -e 'binmode STDIN; binmode STDOUT; print
unpack(q{u*}, join q{}, <>)'")
)
tramp-remote-file-name-spec-regexp
"\\(?:\\([a-zA-Z_0-9-]+\\):\\)?\\(?:\\([^/|:
]+\\)@\\)?\\(\\(?:[a-zA-Z0-9_.-]+\\|\\[\\(?:\\(?:[a-zA-Z0-9]+\\)?:\\)+[a-zA-Z0-9.]+]\\)\\(?:#[0-9]+\\)?\\)?"
tramp-remote-path '(tramp-default-remote-path "/usr/sbin" "/usr/local/sbin"
"/usr/local/bin" "/sbin"
"/local/bin" "/local/freeware/bin" "/local/gnu/bin"
"/usr/freeware/bin"
"/usr/pkg/bin" "/usr/contrib/bin")
tramp-remote-process-environment '("HISTFILE=$HOME/.tramp_history"
"HISTSIZE=1" "LC_ALL=C" "TERM=dumb"
"EMACS=t"
"INSIDE_EMACS='24.2.1,tramp:2.2.6-pre'" "CDPATH="
"HISTORY=" "MAIL=" "MAILCHECK=" "MAILPATH="
"PAGER=\"\""
"autocorrect=" "correct=")
tramp-rfn-eshadow-overlay nil
tramp-rfn-eshadow-update-overlay-regexp "[^:/~]*\\(/\\|~\\)"
tramp-rsh-end-of-line "\n"
tramp-save-ad-hoc-proxies nil
tramp-sh-extra-args '(("/bash\\'" . "-norc -noprofile"))
tramp-sh-file-name-handler-alist '((load . tramp-handle-load)
(make-symbolic-link .
tramp-sh-handle-make-symbolic-link)
(file-name-as-directory .
tramp-handle-file-name-as-directory)
(file-name-directory .
tramp-handle-file-name-directory)
(file-name-nondirectory .
tramp-handle-file-name-nondirectory)
(file-truename .
tramp-sh-handle-file-truename)
(file-exists-p .
tramp-sh-handle-file-exists-p)
(file-directory-p .
tramp-sh-handle-file-directory-p)
(file-executable-p .
tramp-sh-handle-file-executable-p)
(file-readable-p .
tramp-sh-handle-file-readable-p)
(file-regular-p .
tramp-handle-file-regular-p)
(file-symlink-p .
tramp-handle-file-symlink-p)
(file-writable-p .
tramp-sh-handle-file-writable-p)
(file-ownership-preserved-p .
tramp-sh-handle-file-ownership-preserved-p)
(file-newer-than-file-p .
tramp-sh-handle-file-newer-than-file-p)
(file-attributes .
tramp-sh-handle-file-attributes)
(file-modes . tramp-handle-file-modes)
(directory-files .
tramp-handle-directory-files)
(directory-files-and-attributes .
tramp-sh-handle-directory-files-and-attributes)
(file-name-all-completions .
tramp-sh-handle-file-name-all-completions)
(file-name-completion .
tramp-handle-file-name-completion)
(add-name-to-file .
tramp-sh-handle-add-name-to-file)
(copy-file . tramp-sh-handle-copy-file)
(copy-directory .
tramp-sh-handle-copy-directory)
(rename-file . tramp-sh-handle-rename-file)
(set-file-modes .
tramp-sh-handle-set-file-modes)
(set-file-times .
tramp-sh-handle-set-file-times)
(make-directory .
tramp-sh-handle-make-directory)
(delete-directory .
tramp-sh-handle-delete-directory)
(delete-file . tramp-sh-handle-delete-file)
(directory-file-name .
tramp-handle-directory-file-name)
(executable-find .
tramp-sh-handle-executable-find)
(start-file-process .
tramp-sh-handle-start-file-process)
(process-file .
tramp-sh-handle-process-file)
(shell-command . tramp-handle-shell-command)
(insert-directory .
tramp-sh-handle-insert-directory)
(expand-file-name .
tramp-sh-handle-expand-file-name)
(substitute-in-file-name .
tramp-handle-substitute-in-file-name)
(file-local-copy .
tramp-sh-handle-file-local-copy)
(file-remote-p . tramp-handle-file-remote-p)
(insert-file-contents .
tramp-handle-insert-file-contents)
(insert-file-contents-literally .
tramp-sh-handle-insert-file-contents-literally)
(write-region .
tramp-sh-handle-write-region)
(find-backup-file-name .
tramp-handle-find-backup-file-name)
(make-auto-save-file-name .
tramp-sh-handle-make-auto-save-file-name)
(unhandled-file-name-directory .
tramp-handle-unhandled-file-name-directory)
(dired-compress-file .
tramp-sh-handle-dired-compress-file)
(dired-recursive-delete-directory .
tramp-sh-handle-dired-recursive-delete-directory)
(dired-uncache . tramp-handle-dired-uncache)
(set-visited-file-modtime .
tramp-sh-handle-set-visited-file-modtime)
(verify-visited-file-modtime .
tramp-sh-handle-verify-visited-file-modtime)
(file-selinux-context .
tramp-sh-handle-file-selinux-context)
(set-file-selinux-context .
tramp-sh-handle-set-file-selinux-context)
(vc-registered .
tramp-sh-handle-vc-registered))
;; Variable encoded due to non-printable characters.
tramp-shell-prompt-pattern (base64-decode-string
"XCg/Ol5cfA1cKVteXSMkJT4KXSojP1tdIyQlPl0gKlwoG1xbWzAtOTtdKlthLXpBLVpdICpcKSo=")
tramp-smb-method "smb"
tramp-syntax 'ftp
tramp-temp-buffer-file-name nil
tramp-temp-buffer-name " *tramp temp*"
tramp-temp-name-prefix "tramp."
tramp-terminal-prompt-regexp "\\(TERM = (.*)\\|Terminal type\\?
\\[.*\\]\\)\\s-*"
tramp-terminal-type "dumb"
tramp-unload-hook '((lambda nil (unload-feature (quote tramp-cmds) (quote
force)))
(lambda nil (unload-feature (quote tramp-cache) (quote
force)))
(lambda nil (unload-feature (quote tramp-sh) (quote
force)))
(lambda nil
(remove-hook (quote eshell-directory-change-hook)
(quote tramp-eshell-directory-change))
)
(lambda nil (remove-hook (quote find-file-hooks) (quote
tramp-set-auto-save)))
(lambda nil
(remove-hook (quote auto-save-hook) (quote
tramp-set-auto-save-file-modes)))
(lambda nil
(remove-hook (quote kill-buffer-hook) (quote
tramp-delete-temp-file-function)))
tramp-unload-file-name-handlers
(lambda nil
(remove-hook (quote rfn-eshadow-update-overlay-hook)
(quote tramp-rfn-eshadow-update-overlay))
)
(lambda nil
(remove-hook (quote rfn-eshadow-setup-minibuffer-hook)
(quote tramp-rfn-eshadow-setup-minibuffer))
)
(lambda nil (unload-feature (quote tramp-compat) (quote
force))))
tramp-user-regexp "[^/|: ]+"
tramp-user-with-domain-regexp "\\([^/|: ]+\\)%\\([-a-zA-Z0-9_.]+\\)"
tramp-uudecode "(echo begin 600 /tmp/tramp.$$; tail +2) | uudecode\ncat
/tmp/tramp.$$\nrm -f /tmp/tramp.$$"
tramp-vc-registered-file-names nil
tramp-vc-registered-read-file-names "echo \"(\"\nwhile read file; do\n if
%s \"$file\"; then\n echo \"(\\\"$file\\\" \\\"file-exists-p\\\" t)\"\n
else\n echo \"(\\\"$file\\\" \\\"file-exists-p\\\" nil)\"\n fi\n if %s
\"$file\"; then\n echo \"(\\\"$file\\\" \\\"file-readable-p\\\" t)\"\n
else\n echo \"(\\\"$file\\\" \\\"file-readable-p\\\" nil)\"\n
fi\ndone\necho \")\""
tramp-verbose 3
tramp-version "2.2.6-pre"
tramp-wrong-passwd-regexp "^.*\\(Connection
\\(?:\\(?:clo\\|refu\\)sed\\)\\|Host key verification failed\\.\\|Login
\\(?:[Ii]ncorrect\\)\\|N\\(?:ame or service not known\\|o supported
authentication methods left to try!\\)\\|Permission denied\\|\\(?:Sorry, try
again\\|Timeout, server not responding\\)\\.\\).*\\|^.*\\(Received signal
[0-9]+\\).*"
tramp-yesno-prompt-regexp "\\(Are you sure you want to continue connecting
(yes/no)\\?\\)\\s-*"
tramp-yn-prompt-regexp "\\(\\(?:Store key in cache\\? (y/\\|Update cached
key\\? (y/n, Return cancels connectio\\)n)\\)\\s-*"
)
--
Dave Abrahams
BoostPro Computing Software Development Training
http://www.boostpro.com Clang/LLVM/EDG Compilers C++ Boost
(setq
buffer-name "*tramp/scpc io.local*"
)
load-path shadows:
==================
/Users/dave/.emacs.d/el-get/tramp/share/emacs/site-lisp/trampver hides
/Applications/Emacs.app/Contents/Resources/lisp/net/trampver
/Users/dave/.emacs.d/el-get/tramp/share/emacs/site-lisp/tramp hides
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp
/Users/dave/.emacs.d/el-get/tramp/share/emacs/site-lisp/tramp-uu hides
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-uu
/Users/dave/.emacs.d/el-get/tramp/share/emacs/site-lisp/tramp-smb hides
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-smb
/Users/dave/.emacs.d/el-get/tramp/share/emacs/site-lisp/tramp-sh hides
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-sh
/Users/dave/.emacs.d/el-get/tramp/share/emacs/site-lisp/tramp-loaddefs hides
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-loaddefs
/Users/dave/.emacs.d/el-get/tramp/share/emacs/site-lisp/tramp-gw hides
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-gw
/Users/dave/.emacs.d/el-get/tramp/share/emacs/site-lisp/tramp-ftp hides
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-ftp
/Users/dave/.emacs.d/el-get/tramp/share/emacs/site-lisp/tramp-compat hides
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-compat
/Users/dave/.emacs.d/el-get/tramp/share/emacs/site-lisp/tramp-cmds hides
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-cmds
/Users/dave/.emacs.d/el-get/tramp/share/emacs/site-lisp/tramp-cache hides
/Applications/Emacs.app/Contents/Resources/lisp/net/tramp-cache
This is a special notion of the `gnus/message' package. If you
use another mail agent (by copying the contents of this buffer)
please ensure that the buffers are attached to your email.
txtzIDQJHSa2u.txt
Description: *tramp/scpc io.local*
- tramp (2.2.6-pre); Persistent attempts to "go remote",
Dave Abrahams <=
- Re: tramp (2.2.6-pre); Persistent attempts to "go remote", Michael Albinus, 2012/10/10
- Re: tramp (2.2.6-pre); Persistent attempts to "go remote", Dave Abrahams, 2012/10/10
- Re: tramp (2.2.6-pre); Persistent attempts to "go remote", Michael Albinus, 2012/10/10
- Re: tramp (2.2.6-pre); Persistent attempts to "go remote", Dave Abrahams, 2012/10/10
- Re: tramp (2.2.6-pre); Persistent attempts to "go remote", Michael Albinus, 2012/10/11
- Re: tramp (2.2.6-pre); Persistent attempts to "go remote", Dave Abrahams, 2012/10/11
- Re: tramp (2.2.6-pre); Persistent attempts to "go remote", Michael Albinus, 2012/10/11