[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
tramp (2.2.6-pre); Bad interaction with session.el
From: |
Dave Abrahams |
Subject: |
tramp (2.2.6-pre); Bad interaction with session.el |
Date: |
Mon, 15 Oct 2012 15:12:02 -0700 |
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--
I long since cleaned up all the buffers and connections, but session
remembers which files I had open, and now clicking in my menu bar
actually tries to re-establish a connnection. It's nasty to have
Emacs lock up on me just because I tried to use the menu.
--8<---------------cut here---------------start------------->8---
signal(file-error ("Process died"))
(let (tramp-message-show-message) (tramp-message vec-or-proc 1 "%s"
(error-message-string (list signal (get signal (quote error-message)) (apply
(quote format) fmt-string args)))) (signal signal (list (apply (quote format)
fmt-string args))))
tramp-error(["scpc" nil "sudo" "90-plugin.conf" nil] file-error "Process
died")
apply(tramp-error ["scpc" nil "sudo" "90-plugin.conf" nil] file-error
"Process died" nil)
(unwind-protect (apply (quote tramp-error) vec-or-proc signal fmt-string
args) (when (and vec-or-proc tramp-message-show-message (not (zerop
tramp-verbose)) (not (tramp-completion-mode-p))) (let
((enable-recursive-minibuffers t)) (pop-to-buffer (or (and (bufferp buffer)
buffer) (and (processp vec-or-proc) (process-buffer vec-or-proc))
(tramp-get-connection-buffer vec-or-proc))) (sit-for 30))))
(progn (unwind-protect (apply (quote tramp-error) vec-or-proc signal
fmt-string args) (when (and vec-or-proc tramp-message-show-message (not (zerop
tramp-verbose)) (not (tramp-completion-mode-p))) (let
((enable-recursive-minibuffers t)) (pop-to-buffer (or (and (bufferp buffer)
buffer) (and (processp vec-or-proc) (process-buffer vec-or-proc))
(tramp-get-connection-buffer vec-or-proc))) (sit-for 30)))))
(unwind-protect (progn (unwind-protect (apply (quote tramp-error) vec-or-proc
signal fmt-string args) (when (and vec-or-proc tramp-message-show-message (not
(zerop tramp-verbose)) (not (tramp-completion-mode-p))) (let
((enable-recursive-minibuffers t)) (pop-to-buffer (or (and ... buffer) (and ...
...) (tramp-get-connection-buffer vec-or-proc))) (sit-for 30)))))
(set-window-configuration wconfig))
(let ((wconfig (current-window-configuration))) (unwind-protect (progn
(unwind-protect (apply (quote tramp-error) vec-or-proc signal fmt-string args)
(when (and vec-or-proc tramp-message-show-message (not (zerop tramp-verbose))
(not (tramp-completion-mode-p))) (let ((enable-recursive-minibuffers t))
(pop-to-buffer (or ... ... ...)) (sit-for 30))))) (set-window-configuration
wconfig)))
(save-window-excursion (unwind-protect (apply (quote tramp-error) vec-or-proc
signal fmt-string args) (when (and vec-or-proc tramp-message-show-message (not
(zerop tramp-verbose)) (not (tramp-completion-mode-p))) (let
((enable-recursive-minibuffers t)) (pop-to-buffer (or (and (bufferp buffer)
buffer) (and (processp vec-or-proc) (process-buffer vec-or-proc))
(tramp-get-connection-buffer vec-or-proc))) (sit-for 30)))))
tramp-error-with-buffer(nil ["scpc" nil "sudo" "90-plugin.conf" nil]
file-error "Process died")
(if (eq exit (quote ok)) nil (tramp-clear-passwd vec)
(tramp-error-with-buffer nil vec (quote file-error) (cond ((eq exit (quote
permission-denied)) "Permission denied") ((eq exit (quote process-died))
"Process died") (t "Login failed"))))
(unless (eq exit (quote ok)) (tramp-clear-passwd vec)
(tramp-error-with-buffer nil vec (quote file-error) (cond ((eq exit (quote
permission-denied)) "Permission denied") ((eq exit (quote process-died))
"Process died") (t "Login failed"))))
(let (exit) (while (not exit) (tramp-message proc 3 "Waiting for prompts from
remote shell") (setq exit (catch (quote tramp-action) (if timeout (with-timeout
(timeout) (tramp-process-one-action proc vec actions))
(tramp-process-one-action proc vec actions))))) (with-current-buffer
(tramp-get-connection-buffer vec) (widen) (tramp-message vec 6 "\n%s"
(buffer-string))) (unless (eq exit (quote ok)) (tramp-clear-passwd vec)
(tramp-error-with-buffer nil vec (quote file-error) (cond ((eq exit (quote
permission-denied)) "Permission denied") ((eq exit (quote process-died))
"Process died") (t "Login failed")))) (when (numberp pos) (with-current-buffer
(tramp-get-connection-buffer vec) (let (buffer-read-only) (delete-region pos
(point))))))
(save-restriction (let (exit) (while (not exit) (tramp-message proc 3
"Waiting for prompts from remote shell") (setq exit (catch (quote tramp-action)
(if timeout (with-timeout (timeout) (tramp-process-one-action proc vec
actions)) (tramp-process-one-action proc vec actions))))) (with-current-buffer
(tramp-get-connection-buffer vec) (widen) (tramp-message vec 6 "\n%s"
(buffer-string))) (unless (eq exit (quote ok)) (tramp-clear-passwd vec)
(tramp-error-with-buffer nil vec (quote file-error) (cond ((eq exit (quote
permission-denied)) "Permission denied") ((eq exit (quote process-died))
"Process died") (t "Login failed")))) (when (numberp pos) (with-current-buffer
(tramp-get-connection-buffer vec) (let (buffer-read-only) (delete-region pos
(point)))))))
(progn (when with-temp-message (setq current-message (current-message))
(message "%s" with-temp-message)) (tramp-set-connection-property
(tramp-dissect-file-name (tramp-make-tramp-file-name tramp-current-method
tramp-current-user tramp-current-host "")) "first-password-request" t)
(save-restriction (let (exit) (while (not exit) (tramp-message proc 3 "Waiting
for prompts from remote shell") (setq exit (catch (quote tramp-action) (if
timeout (with-timeout ... ...) (tramp-process-one-action proc vec actions)))))
(with-current-buffer (tramp-get-connection-buffer vec) (widen) (tramp-message
vec 6 "\n%s" (buffer-string))) (unless (eq exit (quote ok)) (tramp-clear-passwd
vec) (tramp-error-with-buffer nil vec (quote file-error) (cond ((eq exit ...)
"Permission denied") ((eq exit ...) "Process died") (t "Login failed")))) (when
(numberp pos) (with-current-buffer (tramp-get-connection-buffer vec) (let
(buffer-read-only) (delete-region pos (point))))))))
(unwind-protect (progn (when with-temp-message (setq current-message
(current-message)) (message "%s" with-temp-message))
(tramp-set-connection-property (tramp-dissect-file-name
(tramp-make-tramp-file-name tramp-current-method tramp-current-user
tramp-current-host "")) "first-password-request" t) (save-restriction (let
(exit) (while (not exit) (tramp-message proc 3 "Waiting for prompts from remote
shell") (setq exit (catch (quote tramp-action) (if timeout ... ...))))
(with-current-buffer (tramp-get-connection-buffer vec) (widen) (tramp-message
vec 6 "\n%s" (buffer-string))) (unless (eq exit (quote ok)) (tramp-clear-passwd
vec) (tramp-error-with-buffer nil vec (quote file-error) (cond (... "Permission
denied") (... "Process died") (t "Login failed")))) (when (numberp pos)
(with-current-buffer (tramp-get-connection-buffer vec) (let (buffer-read-only)
(delete-region pos ...))))))) (and with-temp-message (if current-message
(message "%s" current-message) (message nil))))
(let ((with-temp-message "") (current-message)) (unwind-protect (progn (when
with-temp-message (setq current-message (current-message)) (message "%s"
with-temp-message)) (tramp-set-connection-property (tramp-dissect-file-name
(tramp-make-tramp-file-name tramp-current-method tramp-current-user
tramp-current-host "")) "first-password-request" t) (save-restriction (let
(exit) (while (not exit) (tramp-message proc 3 "Waiting for prompts from remote
shell") (setq exit (catch ... ...))) (with-current-buffer
(tramp-get-connection-buffer vec) (widen) (tramp-message vec 6 "\n%s"
(buffer-string))) (unless (eq exit (quote ok)) (tramp-clear-passwd vec)
(tramp-error-with-buffer nil vec (quote file-error) (cond ... ... ...))) (when
(numberp pos) (with-current-buffer (tramp-get-connection-buffer vec) (let ...
...)))))) (and with-temp-message (if current-message (message "%s"
current-message) (message nil)))))
(tramp-compat-with-temp-message "" (tramp-set-connection-property
(tramp-dissect-file-name (tramp-make-tramp-file-name tramp-current-method
tramp-current-user tramp-current-host "")) "first-password-request" t)
(save-restriction (let (exit) (while (not exit) (tramp-message proc 3 "Waiting
for prompts from remote shell") (setq exit (catch (quote tramp-action) (if
timeout (with-timeout ... ...) (tramp-process-one-action proc vec actions)))))
(with-current-buffer (tramp-get-connection-buffer vec) (widen) (tramp-message
vec 6 "\n%s" (buffer-string))) (unless (eq exit (quote ok)) (tramp-clear-passwd
vec) (tramp-error-with-buffer nil vec (quote file-error) (cond ((eq exit ...)
"Permission denied") ((eq exit ...) "Process died") (t "Login failed")))) (when
(numberp pos) (with-current-buffer (tramp-get-connection-buffer vec) (let
(buffer-read-only) (delete-region pos (point))))))))
tramp-process-actions(#<process *tramp/scpc sudo*> ["scpc" nil "sudo"
"90-plugin.conf" nil] 85 ((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 "sudo" "90-plugin.conf" nil])
(if neveropen nil (tramp-maybe-open-connection vec))
(unless neveropen (tramp-maybe-open-connection vec))
tramp-send-command(["scpc" nil "sudo" "90-plugin.conf" nil] "cd ~; pwd")
(progn (tramp-send-command v (format "cd %s; pwd" (tramp-shell-quote-argument
uname))) (with-current-buffer (tramp-get-buffer v) (goto-char (point-min))
(buffer-substring (point) (point-at-eol))))
(setq value (progn (tramp-send-command v (format "cd %s; pwd"
(tramp-shell-quote-argument uname))) (with-current-buffer (tramp-get-buffer v)
(goto-char (point-min)) (buffer-substring (point) (point-at-eol)))))
(progn (setq value (progn (tramp-send-command v (format "cd %s; pwd"
(tramp-shell-quote-argument uname))) (with-current-buffer (tramp-get-buffer v)
(goto-char (point-min)) (buffer-substring (point) (point-at-eol)))))
(tramp-set-connection-property v uname value))
(if (eq value (quote undef)) (progn (setq value (progn (tramp-send-command v
(format "cd %s; pwd" (tramp-shell-quote-argument uname))) (with-current-buffer
(tramp-get-buffer v) (goto-char (point-min)) (buffer-substring (point)
(point-at-eol))))) (tramp-set-connection-property v uname value)))
(when (eq value (quote undef)) (setq value (progn (tramp-send-command v
(format "cd %s; pwd" (tramp-shell-quote-argument uname))) (with-current-buffer
(tramp-get-buffer v) (goto-char (point-min)) (buffer-substring (point)
(point-at-eol))))) (tramp-set-connection-property v uname value))
(let ((value (tramp-get-connection-property v uname (quote undef)))) (when
(eq value (quote undef)) (setq value (progn (tramp-send-command v (format "cd
%s; pwd" (tramp-shell-quote-argument uname))) (with-current-buffer
(tramp-get-buffer v) (goto-char (point-min)) (buffer-substring (point)
(point-at-eol))))) (tramp-set-connection-property v uname value)) value)
(with-connection-property v uname (tramp-send-command v (format "cd %s; pwd"
(tramp-shell-quote-argument uname))) (with-current-buffer (tramp-get-buffer v)
(goto-char (point-min)) (buffer-substring (point) (point-at-eol))))
(setq uname (with-connection-property v uname (tramp-send-command v (format
"cd %s; pwd" (tramp-shell-quote-argument uname))) (with-current-buffer
(tramp-get-buffer v) (goto-char (point-min)) (buffer-substring (point)
(point-at-eol)))))
(let ((uname (match-string 1 localname)) (fname (match-string 2 localname)))
(when (and (string-equal uname "~") (string-match "\\`su\\(do\\)?\\'" method))
(setq uname (concat uname user))) (setq uname (with-connection-property v uname
(tramp-send-command v (format "cd %s; pwd" (tramp-shell-quote-argument uname)))
(with-current-buffer (tramp-get-buffer v) (goto-char (point-min))
(buffer-substring (point) (point-at-eol))))) (setq localname (concat uname
fname)))
(progn (let ((uname (match-string 1 localname)) (fname (match-string 2
localname))) (when (and (string-equal uname "~") (string-match
"\\`su\\(do\\)?\\'" method)) (setq uname (concat uname user))) (setq uname
(with-connection-property v uname (tramp-send-command v (format "cd %s; pwd"
(tramp-shell-quote-argument uname))) (with-current-buffer (tramp-get-buffer v)
(goto-char (point-min)) (buffer-substring (point) (point-at-eol))))) (setq
localname (concat uname fname))))
(if (string-match "\\`\\(~[^/]*\\)\\(.*\\)\\'" localname) (progn (let ((uname
(match-string 1 localname)) (fname (match-string 2 localname))) (when (and
(string-equal uname "~") (string-match "\\`su\\(do\\)?\\'" method)) (setq uname
(concat uname user))) (setq uname (with-connection-property v uname
(tramp-send-command v (format "cd %s; pwd" (tramp-shell-quote-argument uname)))
(with-current-buffer (tramp-get-buffer v) (goto-char (point-min))
(buffer-substring (point) (point-at-eol))))) (setq localname (concat uname
fname)))))
(when (string-match "\\`\\(~[^/]*\\)\\(.*\\)\\'" localname) (let ((uname
(match-string 1 localname)) (fname (match-string 2 localname))) (when (and
(string-equal uname "~") (string-match "\\`su\\(do\\)?\\'" method)) (setq uname
(concat uname user))) (setq uname (with-connection-property v uname
(tramp-send-command v (format "cd %s; pwd" (tramp-shell-quote-argument uname)))
(with-current-buffer (tramp-get-buffer v) (goto-char (point-min))
(buffer-substring (point) (point-at-eol))))) (setq localname (concat uname
fname))))
(let* ((v (tramp-dissect-file-name name)) (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))) (unless
(tramp-run-real-handler (quote file-name-absolute-p) (list localname)) (setq
localname (concat "~/" localname))) (when (string-match
"\\`\\(~[^/]*\\)\\(.*\\)\\'" localname) (let ((uname (match-string 1
localname)) (fname (match-string 2 localname))) (when (and (string-equal uname
"~") (string-match "\\`su\\(do\\)?\\'" method)) (setq uname (concat uname
user))) (setq uname (with-connection-property v uname (tramp-send-command v
(format "cd %s; pwd" (tramp-shell-quote-argument uname))) (with-current-buffer
(tramp-get-buffer v) (goto-char (point-min)) (buffer-substring (point)
(point-at-eol))))) (setq localname (concat uname fname)))) (while (string-match
"//" localname) (setq localname (replace-match "/" t t localname))) (let
((directory-sep-char 47) (default-directory
(tramp-compat-temporary-file-directory))) (tramp-make-tramp-file-name method
user host (tramp-drop-volume-letter (tramp-run-real-handler (quote
expand-file-name) (list localname))) hop)))
(with-parsed-tramp-file-name name nil (unless (tramp-run-real-handler (quote
file-name-absolute-p) (list localname)) (setq localname (concat "~/"
localname))) (when (string-match "\\`\\(~[^/]*\\)\\(.*\\)\\'" localname) (let
((uname (match-string 1 localname)) (fname (match-string 2 localname))) (when
(and (string-equal uname "~") (string-match "\\`su\\(do\\)?\\'" method)) (setq
uname (concat uname user))) (setq uname (with-connection-property v uname
(tramp-send-command v (format "cd %s; pwd" (tramp-shell-quote-argument uname)))
(with-current-buffer (tramp-get-buffer v) (goto-char (point-min))
(buffer-substring (point) (point-at-eol))))) (setq localname (concat uname
fname)))) (while (string-match "//" localname) (setq localname (replace-match
"/" t t localname))) (let ((directory-sep-char 47) (default-directory
(tramp-compat-temporary-file-directory))) (tramp-make-tramp-file-name method
user host (tramp-drop-volume-letter (tramp-run-real-handler (quote
expand-file-name) (list localname))) hop)))
(if (not (tramp-connectable-p name)) (tramp-run-real-handler (quote
expand-file-name) (list name nil)) (with-parsed-tramp-file-name name nil
(unless (tramp-run-real-handler (quote file-name-absolute-p) (list localname))
(setq localname (concat "~/" localname))) (when (string-match
"\\`\\(~[^/]*\\)\\(.*\\)\\'" localname) (let ((uname (match-string 1
localname)) (fname (match-string 2 localname))) (when (and (string-equal uname
"~") (string-match "\\`su\\(do\\)?\\'" method)) (setq uname (concat uname
user))) (setq uname (with-connection-property v uname (tramp-send-command v
(format "cd %s; pwd" ...)) (with-current-buffer (tramp-get-buffer v) (goto-char
...) (buffer-substring ... ...)))) (setq localname (concat uname fname))))
(while (string-match "//" localname) (setq localname (replace-match "/" t t
localname))) (let ((directory-sep-char 47) (default-directory
(tramp-compat-temporary-file-directory))) (tramp-make-tramp-file-name method
user host (tramp-drop-volume-letter (tramp-run-real-handler (quote
expand-file-name) (list localname))) hop))))
tramp-sh-handle-expand-file-name("/sudo:90-plugin.conf" nil)
apply(tramp-sh-handle-expand-file-name ("/sudo:90-plugin.conf" nil))
(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(expand-file-name "/sudo:90-plugin.conf" nil)
apply(tramp-sh-file-name-handler expand-file-name ("/sudo:90-plugin.conf"
nil))
(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)))))
(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 (edebug-after 0 18 foreign) (edebug-after (edebug-before 19) 20
(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))))))) (edebug-after (edebug-before 21) 24
(tramp-run-real-handler (edebug-after 0 22 operation) (edebug-after 0 23
args))))
(let* ((v (tramp-dissect-file-name (edebug-after 0 16 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))) (edebug-after (edebug-before 17) 25 (if (edebug-after
0 18 foreign) (edebug-after (edebug-before 19) 20
(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 ...))))) (edebug-after
(edebug-before 21) 24 (tramp-run-real-handler (edebug-after 0 22 operation)
(edebug-after 0 23 args))))))
(with-parsed-tramp-file-name (edebug-after 0 16 filename) nil (edebug-after
(edebug-before 17) 25 (if (edebug-after 0 18 foreign) (edebug-after
(edebug-before 19) 20 (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 ...))))) (edebug-after (edebug-before 21) 24
(tramp-run-real-handler (edebug-after 0 22 operation) (edebug-after 0 23
args))))))
(let* ((filename (edebug-after (edebug-before 4) 9
(tramp-replace-environment-variables (edebug-after (edebug-before 5) 8 (apply
(quote tramp-file-name-for-operation) (edebug-after 0 6 operation)
(edebug-after 0 7 args)))))) (completion (edebug-after (edebug-before 10) 11
(tramp-completion-mode-p))) (foreign (edebug-after (edebug-before 12) 14
(tramp-find-foreign-file-name-handler (edebug-after 0 13 filename)))))
(edebug-after (edebug-before 15) 26 (with-parsed-tramp-file-name (edebug-after
0 16 filename) nil (edebug-after (edebug-before 17) 25 (if (edebug-after 0 18
foreign) (edebug-after (edebug-before 19) 20
(tramp-compat-condition-case-unless-debug err (let ... ... ... ...) (... ...
...) (error ...))) (edebug-after (edebug-before 21) 24 (tramp-run-real-handler
(edebug-after 0 22 operation) (edebug-after 0 23 args))))))))
(progn (edebug-after (edebug-before 3) 27 (let* ((filename (edebug-after
(edebug-before 4) 9 (tramp-replace-environment-variables (edebug-after ... 8
...)))) (completion (edebug-after (edebug-before 10) 11
(tramp-completion-mode-p))) (foreign (edebug-after (edebug-before 12) 14
(tramp-find-foreign-file-name-handler (edebug-after 0 13 filename)))))
(edebug-after (edebug-before 15) 26 (with-parsed-tramp-file-name (edebug-after
0 16 filename) nil (edebug-after (edebug-before 17) 25 (if (edebug-after 0 18
foreign) (edebug-after ... 20 ...) (edebug-after ... 24 ...))))))))
(unwind-protect (progn (edebug-after (edebug-before 3) 27 (let* ((filename
(edebug-after (edebug-before 4) 9 (tramp-replace-environment-variables ...)))
(completion (edebug-after (edebug-before 10) 11 (tramp-completion-mode-p)))
(foreign (edebug-after (edebug-before 12) 14
(tramp-find-foreign-file-name-handler ...)))) (edebug-after (edebug-before 15)
26 (with-parsed-tramp-file-name (edebug-after 0 16 filename) nil (edebug-after
(edebug-before 17) 25 (if ... ... ...))))))) (set-match-data
save-match-data-internal (quote evaporate)))
(let ((save-match-data-internal (match-data))) (unwind-protect (progn
(edebug-after (edebug-before 3) 27 (let* ((filename (edebug-after ... 9 ...))
(completion (edebug-after ... 11 ...)) (foreign (edebug-after ... 14 ...)))
(edebug-after (edebug-before 15) 26 (with-parsed-tramp-file-name (edebug-after
0 16 filename) nil (edebug-after ... 25 ...)))))) (set-match-data
save-match-data-internal (quote evaporate))))
(save-match-data (edebug-after (edebug-before 3) 27 (let* ((filename
(edebug-after (edebug-before 4) 9 (tramp-replace-environment-variables
(edebug-after ... 8 ...)))) (completion (edebug-after (edebug-before 10) 11
(tramp-completion-mode-p))) (foreign (edebug-after (edebug-before 12) 14
(tramp-find-foreign-file-name-handler (edebug-after 0 13 filename)))))
(edebug-after (edebug-before 15) 26 (with-parsed-tramp-file-name (edebug-after
0 16 filename) nil (edebug-after (edebug-before 17) 25 (if (edebug-after 0 18
foreign) (edebug-after ... 20 ...) (edebug-after ... 24 ...))))))))
(if (edebug-after 0 1 tramp-mode) (edebug-after (edebug-before 2) 28
(save-match-data (edebug-after (edebug-before 3) 27 (let* ((filename
(edebug-after ... 9 ...)) (completion (edebug-after ... 11 ...)) (foreign
(edebug-after ... 14 ...))) (edebug-after (edebug-before 15) 26
(with-parsed-tramp-file-name (edebug-after 0 16 filename) nil (edebug-after ...
25 ...))))))) (edebug-after (edebug-before 29) 32 (tramp-run-real-handler
(edebug-after 0 30 operation) (edebug-after 0 31 args))))
tramp-file-name-handler(expand-file-name "/sudo:90-plugin.conf" nil)
expand-file-name("/sudo:90-plugin.conf" nil)
apply(expand-file-name ("/sudo:90-plugin.conf" nil))
(let* ((inhibit-file-name-handlers (\` (tramp-completion-file-name-handler
cygwin-mount-name-hook-function cygwin-mount-map-drive-hook-function \, (and
(eq inhibit-file-name-operation operation) inhibit-file-name-handlers))))
(inhibit-file-name-operation operation)) (apply operation args))
tramp-completion-run-real-handler(expand-file-name ("/sudo:90-plugin.conf"
nil))
(if (and fn tramp-mode (or (eq tramp-syntax (quote sep)) (featurep (quote
tramp)) (and (boundp (quote partial-completion-mode)) (symbol-value (quote
partial-completion-mode))) (featurep (quote ido)) (featurep (quote icicles))))
(save-match-data (apply (cdr fn) args)) (tramp-completion-run-real-handler
operation args))
(let ((directory-sep-char 47) (fn (assoc operation
tramp-completion-file-name-handler-alist))) (if (and fn tramp-mode (or (eq
tramp-syntax (quote sep)) (featurep (quote tramp)) (and (boundp (quote
partial-completion-mode)) (symbol-value (quote partial-completion-mode)))
(featurep (quote ido)) (featurep (quote icicles)))) (save-match-data (apply
(cdr fn) args)) (tramp-completion-run-real-handler operation args)))
tramp-completion-file-name-handler(expand-file-name "/sudo:90-plugin.conf"
nil)
get-file-buffer("/sudo:90-plugin.conf")
(let ((buf (get-file-buffer name))) (when buf (with-current-buffer buf (if
(consp buffer-undo-list) (if (buffer-modified-p) "c" "s") (if buffer-read-only
"r" "v")))))
(concat (and (sixth desc) "p") (let ((buf (get-file-buffer name))) (when buf
(with-current-buffer buf (if (consp buffer-undo-list) (if (buffer-modified-p)
"c" "s") (if buffer-read-only "r" "v"))))))
(vector (or (session-file-prune-name name max-string) name) (list find-fn
name) :keys (concat (and (sixth desc) "p") (let ((buf (get-file-buffer name)))
(when buf (with-current-buffer buf (if (consp buffer-undo-list) (if
(buffer-modified-p) "c" "s") (if buffer-read-only "r" "v")))))))
(cons (vector (or (session-file-prune-name name max-string) name) (list
find-fn name) :keys (concat (and (sixth desc) "p") (let ((buf (get-file-buffer
name))) (when buf (with-current-buffer buf (if (consp buffer-undo-list) (if ...
"c" "s") (if buffer-read-only "r" "v"))))))) menu)
(setq menu (cons (vector (or (session-file-prune-name name max-string) name)
(list find-fn name) :keys (concat (and (sixth desc) "p") (let ((buf
(get-file-buffer name))) (when buf (with-current-buffer buf (if ... ...
...)))))) menu))
(push (vector (or (session-file-prune-name name max-string) name) (list
find-fn name) :keys (concat (and (sixth desc) "p") (let ((buf (get-file-buffer
name))) (when buf (with-current-buffer buf (if (consp buffer-undo-list) (if ...
"c" "s") (if buffer-read-only "r" "v"))))))) menu)
(if (member name excl) nil (setq i (1- i)) (push name excl) (push (vector (or
(session-file-prune-name name max-string) name) (list find-fn name) :keys
(concat (and (sixth desc) "p") (let ((buf (get-file-buffer name))) (when buf
(with-current-buffer buf (if ... ... ...)))))) menu))
(unless (member name excl) (setq i (1- i)) (push name excl) (push (vector (or
(session-file-prune-name name max-string) name) (list find-fn name) :keys
(concat (and (sixth desc) "p") (let ((buf (get-file-buffer name))) (when buf
(with-current-buffer buf (if ... ... ...)))))) menu))
(let ((name (pop files)) desc) (when (consp name) (setq desc name name (car
name))) (setq name (session-abbrev-file-name (directory-file-name name)))
(unless (member name excl) (setq i (1- i)) (push name excl) (push (vector (or
(session-file-prune-name name max-string) name) (list find-fn name) :keys
(concat (and (sixth desc) "p") (let ((buf ...)) (when buf (with-current-buffer
buf ...))))) menu)))
(while (and files (> i 0)) (let ((name (pop files)) desc) (when (consp name)
(setq desc name name (car name))) (setq name (session-abbrev-file-name
(directory-file-name name))) (unless (member name excl) (setq i (1- i)) (push
name excl) (push (vector (or (session-file-prune-name name max-string) name)
(list find-fn name) :keys (concat (and (sixth desc) "p") (let (...) (when buf
...)))) menu))))
(let ((excl nil) (menu nil) (i session-menu-max-size) (max-string (max (cond
((natnump session-file-menu-max-string) session-file-menu-max-string)
((integerp session-file-menu-max-string) (- 0 session-file-menu-max-string
(length ...))) ((consp session-file-menu-max-string) (- (car
session-file-menu-max-string) (max ... 0))) (t 50)) 16))) (while (and files (>
i 0)) (let ((name (pop files)) desc) (when (consp name) (setq desc name name
(car name))) (setq name (session-abbrev-file-name (directory-file-name name)))
(unless (member name excl) (setq i (1- i)) (push name excl) (push (vector (or
(session-file-prune-name name max-string) name) (list find-fn name) :keys
(concat (and ... "p") (let ... ...))) menu)))) (session-menu-maybe-accelerator
menu-items (nreverse menu)))
session-file-changed-menu-filter((["Move File Names Of All Buffers To Top"
session-file-opened-recompute] "---")
("~/.emacs.d/el-get/tramp/share/emacs/site-lisp/"
"~/.emacs.d/el-get/tramp/share/emacs/site-lisp/tramp.el"
"~/.emacs.d/el-get/tramp/share/emacs/site-lisp/tramp-cmds.el"
"~/src/ryppl/feeds/ryppl/ryppl.xml" "~/Notes/modules.org" "~/Notes/modules.org"
"~/Documents/C++/2012-09/notes.org" "/sudo:address@hidden:/etc/postfix/main.cf"
"/sudo::/etc/postfix/main.cf" "~/.emacs.d/el-get/nognus/lisp/gnus-agent.el"
"~/.emacs.d/el-get/nognus/lisp/message.el"
"/sudo:address@hidden:/opt/local/etc/pdnsd/pdnsd.conf"
"/sudo::/opt/local/etc/pdnsd/pdnsd.conf"
"/sudo:address@hidden:/usr/local/etc/dovecot/conf.d/10-mail.conf"
"/sudo::/usr/local/etc/dovecot/conf.d/10-mail.conf"
"/usr/local/etc/dovecot/conf.d/sudo::/usr/local/etc/dovecot/conf.d/10-mail.conf"
"sudo::/usr/local/etc/dovecot/conf.d/10-mail.conf"
"/sudo:address@hidden:/usr/local/etc/dovecot/conf.d/90-plugin.conf"
"/sudo::/usr/local/etc/dovecot/conf.d/90-plugin.conf"
"/sudo:/usr/local/etc/dovecot/conf.d/90-plugin.conf" "/sudo:90-plugin.conf"
"/usr/local/etc/dovecot/conf.d/90-plugin.conf"
"/usr/local/etc/dovecot/conf.d/10-mail.conf" "/usr/local/etc/dovecot/"
"~/.emacs.d/el-get/nognus/lisp/nnir.el"
"~/.emacs.d/el-get/nognus/lisp/nnimap.el" "~/Documents/C++/2012-09/notes.org"
"~/Documents/C++/2012-09" "~/.emacs.d/el-get/org-mode/lisp/org.el"
"~/.emacs.d/el-get/dwamacs/settings/settings.el"))
session-file-opened-menu-filter((["Move File Names Of All Buffers To Top"
session-file-opened-recompute] "---"))
(easy-menu-filter-return (session-file-opened-menu-filter menu)
"Open...Recently Visited")
(lambda (menu) (easy-menu-filter-return (session-file-opened-menu-filter
menu) "Open...Recently Visited"))((["Move File Names Of All Buffers To Top"
session-file-opened-recompute] "---"))
--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 '((["scpc" nil "sudo" nil nil] ("first-password-request" t)))
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 '(("ftp" (tramp-parse-netrc "~/.netrc"))
("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"))
("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 "sudo" "90-plugin.conf") 20604 34971
306566)
tramp-current-host "sudo"
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\\.swisscom\\.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 1
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 "///edd9aff33ecaafd89be06fddf8c61f91#$"
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\\.swisscom\\.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-sh) (quote
force)))
(lambda nil
(remove-hook (quote find-file-hooks) (quote
tramp-set-auto-save)))
(lambda nil (unload-feature (quote tramp-cache) (quote
force)))
(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 sudo*"
)
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.
txt8NuJ12EHIn.txt
Description: *tramp/scpc sudo*
- tramp (2.2.6-pre); Bad interaction with session.el,
Dave Abrahams <=