Debugger entered--Lisp error: (quit)
  signal(quit nil)
  (condition-case err (if (and p (processp p) (memq (process-status p) (quote (run open)))) nil (tramp-get-buffer vec) (if (and (boundp (quote non-essential)) (symbol-value (quote non-essential))) (progn (throw (quote non-essential) (quote non-essential)))) (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)))) (if (and tramp-message-show-progress-reporter-message tramp-message-show-message (<= 3 (min tramp-verbose 3))) (progn (condition-case nil (progn (setq pr ... tm ...)) (error nil)))) (unwind-protect (let ((tramp-message-show-progress-reporter-message (and tramp-message-show-progress-reporter-message ...))) (if (and p (processp p)) (progn (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-current-host (system-name)) (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))) (if tm (if (or (subrp ...) (functionp ...)) (progn (with-no-warnings ...)))) (tramp-message vec 3 "%s...done" (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))))))) (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 (save-current-buffer (set-buffer (tramp-get-connection-buffer vec)) (point)))) (if (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)) nil (throw (quote suppress) (quote suppress))) (condition-case nil (if (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)))) (progn (tramp-send-command vec "echo are you awake" t t) (if (and (memq (process-status p) (quote ...)) (tramp-wait-for-output p 10)) nil (tramp-error vec (quote file-error) "Awake did fail")))) (file-error (tramp-cleanup vec) (setq p nil))) (condition-case err (if (and p (processp p) (memq (process-status p) (quote (run open)))) nil (tramp-get-buffer vec) (if (and (boundp (quote non-essential)) (symbol-value (quote non-essential))) (progn (throw (quote non-essential) (quote non-essential)))) (let (pr tm) (tramp-message vec 3 "%s..." (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)))) (if (and tramp-message-show-progress-reporter-message tramp-message-show-message (<= 3 (min tramp-verbose 3))) (progn (condition-case nil (progn ...) (error nil)))) (unwind-protect (let ((tramp-message-show-progress-reporter-message ...)) (if (and p ...) (progn ...)) (setenv "TERM" tramp-terminal-type) (setenv "LC_ALL" "C") (setenv "PROMPT_COMMAND") (setenv "PS1" tramp-initial-end-of-output) (let* (... ... ... ... ...) (tramp-set-connection-property p "vector" vec) (set-process-sentinel p ...) (tramp-compat-set-process-query-on-exit-flag p nil) (setq tramp-current-connection ... tramp-current-host ...) (tramp-message vec 6 "%s" ...) (tramp-barf-if-no-shell-prompt p 60 "Couldn't find local shell prompt %s" tramp-encoding-shell) (while target-alist ... ...) (tramp-open-connection-setup-interactive-shell p vec))) (if tm (if (or ... ...) (progn ...))) (tramp-message vec 3 "%s...done" (if (zerop ...) (format "Opening connection for %s using %s" ... ...) (format "Opening connection for address@hidden using %s" ... ... ...)))))) (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 (save-current-buffer (set-buffer (tramp-get-connection-buffer vec)) (point)))) (if (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)) nil (throw (quote suppress) (quote suppress))) (condition-case nil (if (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)))) (progn (tramp-send-command vec "echo are you awake" t t) (if (and (memq ... ...) (tramp-wait-for-output p 10)) nil (tramp-error vec (quote file-error) "Awake did fail")))) (file-error (tramp-cleanup vec) (setq p nil))) (condition-case err (if (and p (processp p) (memq (process-status p) (quote (run open)))) nil (tramp-get-buffer vec) (if (and (boundp (quote non-essential)) (symbol-value (quote non-essential))) (progn (throw (quote non-essential) (quote non-essential)))) (let (pr tm) (tramp-message vec 3 "%s..." (if (zerop ...) (format "Opening connection for %s using %s" ... ...) (format "Opening connection for address@hidden using %s" ... ... ...))) (if (and tramp-message-show-progress-reporter-message tramp-message-show-message (<= 3 ...)) (progn (condition-case nil ... ...))) (unwind-protect (let (...) (if ... ...) (setenv "TERM" tramp-terminal-type) (setenv "LC_ALL" "C") (setenv "PROMPT_COMMAND") (setenv "PS1" tramp-initial-end-of-output) (let* ... ... ... ... ... ... ... ... ...)) (if tm (if ... ...)) (tramp-message vec 3 "%s...done" (if ... ... ...))))) (quit (tramp-cleanup vec) (signal (car err) (cdr err))))))
  tramp-maybe-open-connection(["ssh" nil "localhost" "" nil])
  (if neveropen nil (tramp-maybe-open-connection vec))
  tramp-send-command(["ssh" nil "localhost" "" nil] "cd ~; pwd")
  (progn (tramp-send-command v (format "cd %s; pwd" (tramp-shell-quote-argument uname))) (save-current-buffer (set-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))) (save-current-buffer (set-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))) (save-current-buffer (set-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))) (save-current-buffer (set-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)))) (if (eq value (quote undef)) (progn (setq value (progn (tramp-send-command v (format "cd %s; pwd" (tramp-shell-quote-argument uname))) (save-current-buffer (set-buffer (tramp-get-buffer v)) (goto-char (point-min)) (buffer-substring (point) (point-at-eol))))) (tramp-set-connection-property v uname value))) value)
  (setq uname (let ((value (tramp-get-connection-property v uname (quote undef)))) (if (eq value (quote undef)) (progn (setq value (progn (tramp-send-command v (format "cd %s; pwd" ...)) (save-current-buffer (set-buffer ...) (goto-char ...) (buffer-substring ... ...)))) (tramp-set-connection-property v uname value))) value))
  (let ((uname (match-string 1 localname)) (fname (match-string 2 localname))) (if (and (string-equal uname "~") (string-match "\\`su\\(do\\)?\\'" method)) (progn (setq uname (concat uname user)))) (setq uname (let ((value (tramp-get-connection-property v uname (quote undef)))) (if (eq value (quote undef)) (progn (setq value (progn (tramp-send-command v ...) (save-current-buffer ... ... ...))) (tramp-set-connection-property v uname value))) value)) (setq localname (concat uname fname)))
  (progn (let ((uname (match-string 1 localname)) (fname (match-string 2 localname))) (if (and (string-equal uname "~") (string-match "\\`su\\(do\\)?\\'" method)) (progn (setq uname (concat uname user)))) (setq uname (let ((value (tramp-get-connection-property v uname (quote undef)))) (if (eq value (quote undef)) (progn (setq value (progn ... ...)) (tramp-set-connection-property v uname value))) value)) (setq localname (concat uname fname))))
  (if (string-match "\\`\\(~[^/]*\\)\\(.*\\)\\'" localname) (progn (let ((uname (match-string 1 localname)) (fname (match-string 2 localname))) (if (and (string-equal uname "~") (string-match "\\`su\\(do\\)?\\'" method)) (progn (setq uname (concat uname user)))) (setq uname (let ((value (tramp-get-connection-property v uname ...))) (if (eq value (quote undef)) (progn (setq value ...) (tramp-set-connection-property v uname value))) value)) (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))) (if (tramp-run-real-handler (quote file-name-absolute-p) (list localname)) nil (setq localname (concat "~/" localname))) (if (string-match "\\`\\(~[^/]*\\)\\(.*\\)\\'" localname) (progn (let ((uname (match-string 1 localname)) (fname (match-string 2 localname))) (if (and (string-equal uname "~") (string-match "\\`su\\(do\\)?\\'" method)) (progn (setq uname (concat uname user)))) (setq uname (let ((value ...)) (if (eq value ...) (progn ... ...)) value)) (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)) (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))) (if (tramp-run-real-handler (quote file-name-absolute-p) (list localname)) nil (setq localname (concat "~/" localname))) (if (string-match "\\`\\(~[^/]*\\)\\(.*\\)\\'" localname) (progn (let ((uname (match-string 1 localname)) (fname (match-string 2 localname))) (if (and (string-equal uname "~") (string-match "\\`su\\(do\\)?\\'" method)) (progn (setq uname ...))) (setq uname (let (...) (if ... ...) value)) (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("/ssh:localhost:" nil)
  apply(tramp-sh-handle-expand-file-name ("/ssh:localhost:" 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))))
  (let ((tramp-locker t)) (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)))))
  (progn (setq tramp-locked t) (let ((tramp-locker t)) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (let ((fn ...)) (if fn (apply ... args) (tramp-run-real-handler operation args)))) (set-match-data save-match-data-internal (quote evaporate))))))
  (unwind-protect (progn (setq tramp-locked t) (let ((tramp-locker t)) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (let (...) (if fn ... ...))) (set-match-data save-match-data-internal (quote evaporate)))))) (setq tramp-locked tl))
  (let ((tl tramp-locked)) (unwind-protect (progn (setq tramp-locked t) (let ((tramp-locker t)) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (let ... ...)) (set-match-data save-match-data-internal (quote evaporate)))))) (setq tramp-locked tl)))
  tramp-sh-file-name-handler(expand-file-name "/ssh:localhost:" nil)
  apply(tramp-sh-file-name-handler expand-file-name ("/ssh:localhost:" 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)))))
  (condition-case err (funcall body) ((debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" (append (list operation) args))) (signal (car err) (cdr err))) (error (cond ((and completion (zerop (length localname)) (memq operation (quote (file-exists-p file-directory-p)))) t) ((and completion (zerop (length localname)) (memq operation (quote (expand-file-name file-name-as-directory)))) filename) (t (signal (car err) (cdr err))))))
  (if debug-on-error (funcall body) (condition-case err (funcall body) ((debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" (append (list operation) args))) (signal (car err) (cdr err))) (error (cond ((and completion (zerop (length localname)) (memq operation (quote ...))) t) ((and completion (zerop (length localname)) (memq operation (quote ...))) filename) (t (signal (car err) (cdr err)))))))
  (let ((body (lambda nil (let ((sf (symbol-function foreign)) result) (when (and (listp sf) (eq ... ...)) (let (...) (load ... ... ...))) (setq result (catch (quote non-essential) (catch ... ...))) (cond ((eq result ...) (tramp-message v 5 "Non-essential received in operation %s" ...) (tramp-run-real-handler operation args)) ((eq result ...) (let ... ... ... ...)) (t result)))))) (if debug-on-error (funcall body) (condition-case err (funcall body) ((debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" (append (list operation) args))) (signal (car err) (cdr err))) (error (cond ((and completion (zerop ...) (memq operation ...)) t) ((and completion (zerop ...) (memq operation ...)) filename) (t (signal (car err) (cdr err))))))))
  (tramp-compat-condition-case-unless-debug err (let ((sf (symbol-function foreign)) result) (when (and (listp sf) (eq (car sf) (quote autoload))) (let ((default-directory (tramp-compat-temporary-file-directory))) (load (cadr sf) (quote noerror) (quote nomessage)))) (setq result (catch (quote non-essential) (catch (quote suppress) (apply foreign operation args)))) (cond ((eq result (quote non-essential)) (tramp-message v 5 "Non-essential received in operation %s" (append (list operation) args)) (tramp-run-real-handler operation args)) ((eq result (quote suppress)) (let (tramp-message-show-message) (tramp-message v 1 "Suppress received in operation %s" (append (list operation) args)) (tramp-cleanup v) (tramp-run-real-handler operation args))) (t result))) ((debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" (append (list operation) args))) (signal (car err) (cdr err))) (error (cond ((and completion (zerop (length localname)) (memq operation (quote (file-exists-p file-directory-p)))) t) ((and completion (zerop (length localname)) (memq operation (quote (expand-file-name file-name-as-directory)))) filename) (t (signal (car err) (cdr err))))))
  (if foreign (tramp-compat-condition-case-unless-debug err (let ((sf (symbol-function foreign)) result) (when (and (listp sf) (eq (car sf) (quote autoload))) (let ((default-directory (tramp-compat-temporary-file-directory))) (load (cadr sf) (quote noerror) (quote nomessage)))) (setq result (catch (quote non-essential) (catch (quote suppress) (apply foreign operation args)))) (cond ((eq result (quote non-essential)) (tramp-message v 5 "Non-essential received in operation %s" (append (list operation) args)) (tramp-run-real-handler operation args)) ((eq result (quote suppress)) (let (tramp-message-show-message) (tramp-message v 1 "Suppress received in operation %s" (append ... args)) (tramp-cleanup v) (tramp-run-real-handler operation args))) (t result))) ((debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" (append (list operation) args))) (signal (car err) (cdr err))) (error (cond ((and completion (zerop (length localname)) (memq operation (quote ...))) t) ((and completion (zerop (length localname)) (memq operation (quote ...))) filename) (t (signal (car err) (cdr err)))))) (tramp-run-real-handler operation args))
  (let* ((v (tramp-dissect-file-name filename)) (method (tramp-file-name-method v)) (user (tramp-file-name-user v)) (host (tramp-file-name-host v)) (localname (tramp-file-name-localname v)) (hop (tramp-file-name-hop v))) (if foreign (tramp-compat-condition-case-unless-debug err (let ((sf (symbol-function foreign)) result) (when (and (listp sf) (eq (car sf) (quote autoload))) (let ((default-directory ...)) (load (cadr sf) (quote noerror) (quote nomessage)))) (setq result (catch (quote non-essential) (catch (quote suppress) (apply foreign operation args)))) (cond ((eq result (quote non-essential)) (tramp-message v 5 "Non-essential received in operation %s" (append ... args)) (tramp-run-real-handler operation args)) ((eq result (quote suppress)) (let (tramp-message-show-message) (tramp-message v 1 "Suppress received in operation %s" ...) (tramp-cleanup v) (tramp-run-real-handler operation args))) (t result))) ((debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" (append (list operation) args))) (signal (car err) (cdr err))) (error (cond ((and completion (zerop ...) (memq operation ...)) t) ((and completion (zerop ...) (memq operation ...)) filename) (t (signal (car err) (cdr err)))))) (tramp-run-real-handler operation args)))
  (with-parsed-tramp-file-name filename nil (if foreign (tramp-compat-condition-case-unless-debug err (let ((sf (symbol-function foreign)) result) (when (and (listp sf) (eq (car sf) (quote autoload))) (let ((default-directory ...)) (load (cadr sf) (quote noerror) (quote nomessage)))) (setq result (catch (quote non-essential) (catch (quote suppress) (apply foreign operation args)))) (cond ((eq result (quote non-essential)) (tramp-message v 5 "Non-essential received in operation %s" (append ... args)) (tramp-run-real-handler operation args)) ((eq result (quote suppress)) (let (tramp-message-show-message) (tramp-message v 1 "Suppress received in operation %s" ...) (tramp-cleanup v) (tramp-run-real-handler operation args))) (t result))) ((debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" (append (list operation) args))) (signal (car err) (cdr err))) (error (cond ((and completion (zerop ...) (memq operation ...)) t) ((and completion (zerop ...) (memq operation ...)) filename) (t (signal (car err) (cdr err)))))) (tramp-run-real-handler operation args)))
  (let* ((filename (tramp-replace-environment-variables (apply (quote tramp-file-name-for-operation) operation args))) (completion (tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler filename))) (with-parsed-tramp-file-name filename nil (if foreign (tramp-compat-condition-case-unless-debug err (let ((sf (symbol-function foreign)) result) (when (and (listp sf) (eq ... ...)) (let (...) (load ... ... ...))) (setq result (catch (quote non-essential) (catch ... ...))) (cond ((eq result ...) (tramp-message v 5 "Non-essential received in operation %s" ...) (tramp-run-real-handler operation args)) ((eq result ...) (let ... ... ... ...)) (t result))) ((debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" (append ... args))) (signal (car err) (cdr err))) (error (cond ((and completion ... ...) t) ((and completion ... ...) filename) (t (signal ... ...))))) (tramp-run-real-handler operation args))))
  (progn (let* ((filename (tramp-replace-environment-variables (apply (quote tramp-file-name-for-operation) operation args))) (completion (tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler filename))) (with-parsed-tramp-file-name filename nil (if foreign (tramp-compat-condition-case-unless-debug err (let ((sf ...) result) (when (and ... ...) (let ... ...)) (setq result (catch ... ...)) (cond (... ... ...) (... ...) (t result))) ((debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" ...)) (signal (car err) (cdr err))) (error (cond (... t) (... filename) (t ...)))) (tramp-run-real-handler operation args)))))
  (unwind-protect (progn (let* ((filename (tramp-replace-environment-variables (apply (quote tramp-file-name-for-operation) operation args))) (completion (tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler filename))) (with-parsed-tramp-file-name filename nil (if foreign (tramp-compat-condition-case-unless-debug err (let (... result) (when ... ...) (setq result ...) (cond ... ... ...)) ((debug quit) (let ... ...) (signal ... ...)) (error (cond ... ... ...))) (tramp-run-real-handler operation args))))) (set-match-data save-match-data-internal (quote evaporate)))
  (let ((save-match-data-internal (match-data))) (unwind-protect (progn (let* ((filename (tramp-replace-environment-variables (apply ... operation args))) (completion (tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler filename))) (with-parsed-tramp-file-name filename nil (if foreign (tramp-compat-condition-case-unless-debug err (let ... ... ... ...) (... ... ...) (error ...)) (tramp-run-real-handler operation args))))) (set-match-data save-match-data-internal (quote evaporate))))
  (save-match-data (let* ((filename (tramp-replace-environment-variables (apply (quote tramp-file-name-for-operation) operation args))) (completion (tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler filename))) (with-parsed-tramp-file-name filename nil (if foreign (tramp-compat-condition-case-unless-debug err (let ((sf ...) result) (when (and ... ...) (let ... ...)) (setq result (catch ... ...)) (cond (... ... ...) (... ...) (t result))) ((debug quit) (let (tramp-message-show-message) (tramp-message v 1 "Interrupt received in operation %s" ...)) (signal (car err) (cdr err))) (error (cond (... t) (... filename) (t ...)))) (tramp-run-real-handler operation args)))))
  (if tramp-mode (save-match-data (let* ((filename (tramp-replace-environment-variables (apply (quote tramp-file-name-for-operation) operation args))) (completion (tramp-completion-mode-p)) (foreign (tramp-find-foreign-file-name-handler filename))) (with-parsed-tramp-file-name filename nil (if foreign (tramp-compat-condition-case-unless-debug err (let (... result) (when ... ...) (setq result ...) (cond ... ... ...)) ((debug quit) (let ... ...) (signal ... ...)) (error (cond ... ... ...))) (tramp-run-real-handler operation args))))) (tramp-run-real-handler operation args))
  tramp-file-name-handler(expand-file-name "/ssh:localhost:" nil)
  expand-file-name("/ssh:localhost:" nil)
  apply(expand-file-name ("/ssh:localhost:" 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 ("/ssh:localhost:" 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 "/ssh:localhost:" nil)
  file-exists-p("/ssh:localhost:")
  #[0 "\302\306=\203\307\207\310\300\311\312\313
\f#,\203)\314\315\316\317\320 \"\300\321\311O\301\302%\207\302\242\322=\203M\323\300!G\324\302A\311\312\313
\f#,\322\300G^BB\207\302\325=\203c\326\300G!?\205\316\301\206`\327\300!\207\330\300!\323\300!\211\206o \302\204\211\331\301#\211;\203\203
P\202\204\211\262
\202\314\302\312=\205\314\332\"\301\333>\204\311\311\301\334=\203\244\335\202\245\301\336! address@hidden)
\237\266\203\211\262
\266\203\207" ["/ssh:localhost:" file-exists-p lambda start string regexp metadata (metadata (category . file)) "\\`~[^/\\]*\\'" nil t string-match completion-table-with-context "~" mapcar #[257 "\211\300P\207" ["/"] 3 "\n\n(fn U)"] system-users 1 boundaries file-name-directory "/" lambda zerop file-exists-p file-name-nondirectory file-name-completion file-name-all-completions (nil file-exists-p) file-directory-p #[257 "\211G\211\300V\205

SH\301=\207" [0 47] 4 "\n\n(fn S)"] expand-file-name inhibit-changing-match-data default-directory] 10 "\n\n(fn)"]()
  funcall(#[0 "\302\306=\203\307\207\310\300\311\312\313
\f#,\203)\314\315\316\317\320 \"\300\321\311O\301\302%\207\302\242\322=\203M\323\300!G\324\302A\311\312\313
\f#,\322\300G^BB\207\302\325=\203c\326\300G!?\205\316\301\206`\327\300!\207\330\300!\323\300!\211\206o \302\204\211\331\301#\211;\203\203
P\202\204\211\262
\202\314\302\312=\205\314\332\"\301\333>\204\311\311\301\334=\203\244\335\202\245\301\336! address@hidden)
\237\266\203\211\262
\266\203\207" ["/ssh:localhost:" file-exists-p lambda start string regexp metadata (metadata (category . file)) "\\`~[^/\\]*\\'" nil t string-match completion-table-with-context "~" mapcar #[257 "\211\300P\207" ["/"] 3 "\n\n(fn U)"] system-users 1 boundaries file-name-directory "/" lambda zerop file-exists-p file-name-nondirectory file-name-completion file-name-all-completions (nil file-exists-p) file-directory-p #[257 "\211G\211\300V\205

SH\301=\207" [0 47] 4 "\n\n(fn S)"] expand-file-name inhibit-changing-match-data default-directory] 10 "\n\n(fn)"])
  completion-file-name-table("/ssh:localhost:" file-exists-p lambda)
  test-completion("/ssh:localhost:" completion-file-name-table file-exists-p)
  completion--file-name-table("/ssh:localhost:" file-exists-p lambda)
  complete-with-action(lambda completion--file-name-table "/ssh:localhost:" file-exists-p)
  #[257 "\303\302\300\301$\207" ["/ssh:localhost:" file-exists-p lambda complete-with-action] 6 "\n\n(fn TABLE)"](completion--file-name-table)
  #[0 "address@hidden@address@hidden" [#[257 "\303\302\300\301$\207" ["/ssh:localhost:" file-exists-p lambda complete-with-action] 6 "\n\n(fn TABLE)"] (nil) (nil)] 5 "\n\n(fn)"]()
  funcall(#[0 "address@hidden@address@hidden" [#[257 "\303\302\300\301$\207" ["/ssh:localhost:" file-exists-p lambda complete-with-action] 6 "\n\n(fn TABLE)"] (nil) (nil)] 5 "\n\n(fn)"])
  completion--some(#[257 "\303\302\300\301$\207" ["/ssh:localhost:" file-exists-p lambda complete-with-action] 6 "\n\n(fn TABLE)"] (completion--embedded-envvar-table completion--file-name-table))
  read-file-name-internal("/ssh:localhost:" file-exists-p lambda)
  test-completion("/ssh:localhost:" read-file-name-internal file-exists-p)
  minibuffer-complete-and-exit()
  call-interactively(minibuffer-complete-and-exit nil nil)
  read-from-minibuffer("Find file: " "~/" (keymap (keymap (32)) keymap (10 . minibuffer-complete-and-exit) (13 . minibuffer-complete-and-exit) keymap (menu-bar keymap (minibuf "Minibuf" keymap (tab menu-item "Complete" minibuffer-complete :help "Complete as far as possible") (space menu-item "Complete Word" minibuffer-complete-word :help "Complete at most one word") (63 menu-item "List Completions" minibuffer-completion-help :help "Display all possible completions") "Minibuf")) (27 keymap (118 . switch-to-completions)) (prior . switch-to-completions) (63 . minibuffer-completion-help) (32 . minibuffer-complete-word) (9 . minibuffer-complete) keymap (menu-bar keymap (minibuf "Minibuf" keymap (previous menu-item "Previous History Item" previous-history-element :help "Put previous minibuffer history element in the minibuffer") (next menu-item "Next History Item" next-history-element :help "Put next minibuffer history element in the minibuffer") (isearch-backward menu-item "Isearch History Backward" isearch-backward :help "Incrementally search minibuffer history backward") (isearch-forward menu-item "Isearch History Forward" isearch-forward :help "Incrementally search minibuffer history forward") (return menu-item "Enter" exit-minibuffer :key-sequence "
" :help "Terminate input and exit minibuffer") (quit menu-item "Quit" abort-recursive-edit :help "Abort input and exit minibuffer") "Minibuf")) (10 . exit-minibuffer) (13 . exit-minibuffer) (7 . abort-recursive-edit) (C-tab . file-cache-minibuffer-complete) (9 . self-insert-command) (XF86Back . previous-history-element) (up . previous-history-element) (prior . previous-history-element) (XF86Forward . next-history-element) (down . next-history-element) (next . next-history-element) (27 keymap (114 . previous-matching-history-element) (115 . next-matching-history-element) (112 . previous-history-element) (110 . next-history-element))) nil file-name-history "~/" nil)
  completing-read-default("Find file: " read-file-name-internal file-exists-p confirm-after-completion "~/" file-name-history "~/" nil)
  completing-read("Find file: " read-file-name-internal file-exists-p confirm-after-completion "~/" file-name-history "~/")
  read-file-name-default("Find file: " nil "~/" confirm-after-completion nil nil)
  read-file-name("Find file: " nil "~/" confirm-after-completion)
  find-file-read-args("Find file: " confirm-after-completion)
  byte-code("\300\301\302 \"\207" [find-file-read-args "Find file: " confirm-nonexistent-file-or-buffer] 3)
  call-interactively(find-file nil nil)