tramp (2.0.36); tramp (2.0.36) fails to login using scp method

[Joseph Vaughan]

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.

Another useful thing to do is to put (setq tramp-debug-buffer t) 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--

Tramp fails to connect to remote server, or at least seems to hang after 
initial connection.  Seems to be receiving a prompt that says "please type yes 
or no".  This prompt does not appear using ssh directly, nor if I invoke a 
shell in eemacs and use ssh from there (ssh-agent is working properly, in other 
words).

contents of debug, messages and backtrace included below.


Emacs  : GNU Emacs 20.7.2 (i386-debian-linux-gnu, X toolkit)
 of Thu Apr  4 2002 on cyberhq modified by Debian
Package: tramp (2.0.36)

current state:
==============
(setq
 tramp-ls-command nil
 tramp-test-groks-nt nil
 tramp-file-exists-command nil
 tramp-current-multi-method nil
 tramp-current-method nil
 tramp-current-user nil
 tramp-current-host nil
 tramp-auto-save-directory nil
 tramp-default-method "scp"
 tramp-rsh-end-of-line "\n"
 tramp-default-password-end-of-line "\n"
 tramp-remote-path '("/bin" "/usr/bin" "/usr/sbin" "/usr/local/bin"
                     "/usr/ccs/bin" "/local/bin" "/local/freeware/bin"
                     "/local/gnu/bin" "/usr/freeware/bin" "/usr/pkg/bin"
                     "/usr/contrib/bin")
 tramp-login-prompt-regexp ".*ogin: *"
 tramp-password-prompt-regexp "^.*\\([pP]assword\\|passphrase.*\\):? *"
 tramp-wrong-passwd-regexp "^.*\\(Connection \\(closed\\|refused\\)\\|Host key 
verification failed\\.\\|Login \\(Incorrect\\|incorrect\\)\\|Name or service 
not known\\|Permission denied\\.\\|Sorry, try again\\.\\).*\\|^.*\\(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/n)\\)\\s-*"
 tramp-temp-name-prefix "tramp."
 tramp-file-name-structure '("^/\\(\\([a-zA-Z_0-9-]+\\):\\)?\\(\\([^:@/         
]*\\)@\\)?\\([a-zA-Z0-9_.#-]*\\):\\(.*$\\)" 2 4 5 6)
 tramp-file-name-regexp "\\`/[^/:]+:"
 tramp-multi-file-name-structure 
'("^/\\(\\([a-zA-Z_0-9-]+\\)\\)?\\(\\(:%s\\)+\\)?:\\(.*$\\)" 2 3 -1)
 tramp-multi-file-name-hop-structure '("\\([a-zA-Z_0-9-]+\\):\\([^:@/   
]*\\)@\\([a-zA-Z0-9_.#-]*\\)" 1 2 3)
 tramp-multi-methods '("multi" "multiu")
 tramp-multi-connection-function-alist '(("telnet" tramp-multi-connect-telnet
                                          "telnet %h%n")
                                         ("rsh" tramp-multi-connect-rlogin
                                          "rsh %h -l %u%n")
                                         ("remsh" tramp-multi-connect-rlogin
                                          "remsh %h -l %u%n")
                                         ("ssh" tramp-multi-connect-rlogin
                                          "ssh %h -l %u%n")
                                         ("su" tramp-multi-connect-su
                                          "su - %u%n")
                                         ("sudo" tramp-multi-connect-su
                                          "sudo -u %u -s -p Password:%n")
                                         )
 tramp-methods '(("smb") ("ftp")
                 ("rcp" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "rsh") (tramp-copy-program "rcp")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args nil)
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("scp" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program "scp")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("scp1" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program "scp")
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-1" "-e" "none"))
                  (tramp-copy-args ("-1")) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("scp2" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program "scp")
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-2" "-e" "none"))
                  (tramp-copy-args ("-2")) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("scp1_old"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh1") (tramp-copy-program "scp1")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("scp2_old"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh2") (tramp-copy-program "scp2")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("rsync"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program "rsync")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-e" "none"))
                  (tramp-copy-args ("-e" "ssh"))
                  (tramp-copy-keep-date-arg "-t")
                  (tramp-password-end-of-line nil))
                 ("remcp"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "remsh") (tramp-copy-program "rcp")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args nil)
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("rsh" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "rsh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args nil)
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("ssh" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("ssh1" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-1" "-e" "none"))
                  (tramp-copy-args ("-1")) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("ssh2" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-2" "-e" "none"))
                  (tramp-copy-args ("-2")) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("ssh1_old"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh1") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("ssh2_old"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh2") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-e" "none"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("remsh"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "remsh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args nil)
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("telnet"
                  (tramp-connection-function tramp-open-connection-telnet)
                  (tramp-login-program "telnet") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args nil)
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("su" (tramp-connection-function tramp-open-connection-su)
                  (tramp-login-program "su") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-" "%u"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("sudo" (tramp-connection-function tramp-open-connection-su)
                  (tramp-login-program "sudo") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-u" "%u" "-s" "-p" "Password:"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("multi"
                  (tramp-connection-function tramp-open-connection-multi)
                  (tramp-login-program nil) (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args nil)
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("scpx" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program "scp")
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-e" "none" "-t" "-t" "/bin/sh"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 ("sshx" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "ssh") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh")
                  (tramp-login-args ("-e" "none" "-t" "-t" "/bin/sh"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("krlogin"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "krlogin") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-x"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line nil))
                 ("plink"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "plink") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-ssh"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line "xy"))
                 ("plink1"
                  (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "plink") (tramp-copy-program nil)
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-1" "-ssh"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg nil)
                  (tramp-password-end-of-line "xy"))
                 ("pscp" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "plink") (tramp-copy-program "pscp")
                  (tramp-remote-sh "/bin/sh") (tramp-login-args ("-ssh"))
                  (tramp-copy-args nil) (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line "xy"))
                 ("fcp" (tramp-connection-function tramp-open-connection-rsh)
                  (tramp-login-program "fsh") (tramp-copy-program "fcp")
                  (tramp-remote-sh "/bin/sh -i")
                  (tramp-login-args ("sh" "-i")) (tramp-copy-args nil)
                  (tramp-copy-keep-date-arg "-p")
                  (tramp-password-end-of-line nil))
                 )
 tramp-end-of-output "///7a4983635b7f0bcc0acf445a9cd7af12"
 tramp-coding-commands '(("mimencode -b" "mimencode -u -b"
                          base64-encode-region base64-decode-region)
                         ("mmencode -b" "mmencode -u -b" base64-encode-region
                          base64-decode-region)
                         ("recode data..base64" "recode base64..data"
                          base64-encode-region base64-decode-region)
                         ("uuencode xxx" "uudecode -o -" tramp-uuencode-region
                          uudecode-decode-region)
                         ("uuencode xxx" "uudecode -p" tramp-uuencode-region
                          uudecode-decode-region)
                         ("uuencode xxx" "tramp_uudecode"
                          tramp-uuencode-region uudecode-decode-region)
                         ("tramp_encode_with_module"
                          "tramp_decode_with_module" base64-encode-region
                          base64-decode-region)
                         ("tramp_encode" "tramp_decode" base64-encode-region
                          base64-decode-region)
                         )
 tramp-actions-before-shell '((tramp-password-prompt-regexp
                               tramp-action-password)
                              (tramp-login-prompt-regexp tramp-action-login)
                              (shell-prompt-pattern tramp-action-succeed)
                              (tramp-shell-prompt-pattern tramp-action-succeed)
                              (tramp-wrong-passwd-regexp
                               tramp-action-permission-denied)
                              (tramp-yesno-prompt-regexp tramp-action-yesno)
                              (tramp-yn-prompt-regexp tramp-action-yn)
                              (tramp-terminal-prompt-regexp
                               tramp-action-terminal)
                              )
 tramp-multi-actions '((tramp-password-prompt-regexp
                        tramp-multi-action-password)
                       (tramp-login-prompt-regexp tramp-multi-action-login)
                       (shell-prompt-pattern tramp-multi-action-succeed)
                       (tramp-shell-prompt-pattern tramp-multi-action-succeed)
                       (tramp-wrong-passwd-regexp
                        tramp-multi-action-permission-denied)
                       )
 tramp-terminal-type "dumb"
 tramp-shell-prompt-pattern "^[^$\n]*[$]*"
 tramp-chunksize nil
 shell-prompt-pattern "^[^$\n]*[$] *"
 backup-by-copying nil
 backup-by-copying-when-linked nil
 backup-by-copying-when-mismatch nil
 nil nil
 file-name-handler-alist '(("^/[^/]*$" . tramp-completion-file-name-handler)
                           ("\\`/[^/:]+:" . tramp-file-name-handler)
                           ("\\`/:" . file-name-non-special))
 )



***********************
contents of tramp/scp admin.cdh.ucla.edu buffer



Please type 'yes' or 'no': 

************************
contents of debug buffer

# Opening connection at admin.cdh.ucla.edu using nil...
# Waiting for prompts from remote shell
# Waiting 60s for prompt from remote shell
# Looking for regexp "^.*\([pP]assword\|passphrase.*\):? *" from remote shell
# Looking for regexp ".*ogin: *" from remote shell
# Looking for regexp "^[^$
]*[$] *" from remote shell
# Looking for regexp "^[^$
]*[$]*" from remote shell
# Found remote shell prompt.
# Initializing remote shell
# Sending command to remote shell: unset correct
$ unset correct

# Sending command to remote shell: unset autocorrect
$ unset autocorrect
Please type 'yes' or 'no': $ exec env 'ENV=' 'PS1=$ ' /bin/sh
# Waiting 30s for remote `/bin/sh' to come up...

Please type 'yes' or 'no': 
Please type 'yes' or 'no': # Setting up remote shell environment
$ stty -inlcr -echo kill '^U'

Please type 'yes' or 'no': $ TERM=dumb; export TERM

Please type 'yes' or 'no': # Determining coding system
$ echo foo ; echo bar

Please type 'yes' or 'no': # Waiting 30s for `HISTFILE=$HOME/.tramp_history; 
HISTSIZE=1'
$ HISTFILE=$HOME/.tramp_history; HISTSIZE=1

Please type 'yes' or 'no': # Waiting 30s for `set +o vi +o emacs'
$ set +o vi +o emacs

Please type 'yes' or 'no': # Waiting 30s for `unset MAIL MAILCHECK MAILPATH'
$ unset MAIL MAILCHECK MAILPATH 1>/dev/null 2>/dev/null

Please type 'yes' or 'no': # Waiting 30s for `unset CDPATH'
$ unset CDPATH

Please type 'yes' or 'no': # Setting shell prompt
$ PS1='
///7a4983635b7f0bcc0acf445a9cd7af12
'; PS2=''; PS3=''


*************************
contents of backtrace

Signaling: (quit)
  accept-process-output(#<process *tramp/scp admin.cdh.ucla.edu*> 1)
  (while (not found) (accept-process-output proc 1) (goto-char (point-max)) 
(forward-line -1) (setq found (looking-at end-of-output)))
  (cond (timeout (while ... ...)) (t (while ... ... ... ... ...)))
  (progn (cond (timeout ...) (t ...)))
  (unwind-protect (progn (cond ... ...)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (cond (timeout ...) (t ...)))
  (let ((proc ...) (found nil) (start-time ...) (end-of-output ...)) 
(save-match-data (cond ... ...)) (when found (goto-char ...) (forward-line -2) 
(delete-region ... ...)) (when tramp-debug-buffer (append-to-buffer ... ... 
...) (when ... ...)) (goto-char (point-min)) found)
  tramp-wait-for-output()
  tramp-open-connection-setup-interactive-shell(#<process *tramp/scp 
admin.cdh.ucla.edu*> nil nil nil "admin.cdh.ucla.edu")
  (let* ((default-directory ...) (coding-system-for-read ...) (p ...) (found 
nil)) (process-kill-without-query p) (set-buffer buf) (tramp-process-actions p 
multi-method method user host tramp-actions-before-shell) (tramp-message 7 
"Initializing remote shell") (tramp-open-connection-setup-interactive-shell p 
multi-method method user host) (tramp-post-connection multi-method method user 
host))
  (let ((process-environment ...) (bufnam ...) (buf ...) (login-program ...) 
(login-args ...)) (when (string-match "\\([^#]*\\)#\\(.*\\)" host) (setq 
login-args ...) (setq host ...)) (setenv "TERM" tramp-terminal-type) (let* (... 
... ... ...) (process-kill-without-query p) (set-buffer buf) 
(tramp-process-actions p multi-method method user host 
tramp-actions-before-shell) (tramp-message 7 "Initializing remote shell") 
(tramp-open-connection-setup-interactive-shell p multi-method method user host) 
(tramp-post-connection multi-method method user host)))
  (progn (when multi-method (error "Cannot multi-connect using rsh connection 
method")) (tramp-pre-connection multi-method method user host) (if (and user 
...) (tramp-message 7 "Opening connection for address@hidden using %s..." user 
host method) (tramp-message 7 "Opening connection at %s using %s..." host 
method)) (let (... ... ... ... ...) (when ... ... ...) (setenv "TERM" 
tramp-terminal-type) (let* ... ... ... ... ... ... ...)))
  (unwind-protect (progn (when multi-method ...) (tramp-pre-connection 
multi-method method user host) (if ... ... ...) (let ... ... ... ...)) 
(set-match-data save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ... ... ... ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (when multi-method (error "Cannot multi-connect using rsh 
connection method")) (tramp-pre-connection multi-method method user host) (if 
(and user ...) (tramp-message 7 "Opening connection for address@hidden using 
%s..." user host method) (tramp-message 7 "Opening connection at %s using 
%s..." host method)) (let (... ... ... ... ...) (when ... ... ...) (setenv 
"TERM" tramp-terminal-type) (let* ... ... ... ... ... ... ...)))
  tramp-open-connection-rsh(nil nil nil "admin.cdh.ucla.edu")
  funcall(tramp-open-connection-rsh nil nil nil "admin.cdh.ucla.edu")
  (if (and p (processp p) (memq ... ...)) nil (when (and p ...) (delete-process 
p)) (funcall (tramp-get-connection-function multi-method ... user host) 
multi-method method user host))
  (unless (and p (processp p) (memq ... ...)) (when (and p ...) (delete-process 
p)) (funcall (tramp-get-connection-function multi-method ... user host) 
multi-method method user host))
  (let ((p ...) last-cmd-time) (save-excursion (set-buffer ...) (when ... ... 
... ...)) (unless (and p ... ...) (when ... ...) (funcall ... multi-method 
method user host)))
  tramp-maybe-open-connection(nil nil nil "admin.cdh.ucla.edu")
  (or neveropen (tramp-maybe-open-connection multi-method method user host))
  tramp-send-command(nil nil nil "admin.cdh.ucla.edu" "cd ~; pwd" t)
  (let ((uname ...) (fname ...)) (set-buffer (tramp-get-buffer multi-method 
method user host)) (erase-buffer) (tramp-send-command multi-method method user 
host (format "cd %s; pwd" uname) t) (tramp-wait-for-output) (goto-char 
(point-min)) (setq uname (buffer-substring ... ...)) (setq localname (concat 
uname fname)) (erase-buffer))
  (progn (let (... ...) (set-buffer ...) (erase-buffer) (tramp-send-command 
multi-method method user host ... t) (tramp-wait-for-output) (goto-char ...) 
(setq uname ...) (setq localname ...) (erase-buffer)))
  (if (string-match "\\`\\(~[^/]*\\)\\(.*\\)\\'" localname) (progn (let ... ... 
... ... ... ... ... ... ...)))
  (when (string-match "\\`\\(~[^/]*\\)\\(.*\\)\\'" localname) (let (... ...) 
(set-buffer ...) (erase-buffer) (tramp-send-command multi-method method user 
host ... t) (tramp-wait-for-output) (goto-char ...) (setq uname ...) (setq 
localname ...) (erase-buffer)))
  (save-excursion (when (string-match "\\`\\(~[^/]*\\)\\(.*\\)\\'" localname) 
(let ... ... ... ... ... ... ... ... ...)) (let (...) 
(tramp-make-tramp-file-name multi-method ... user host ...)))
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) 
(localname ...)) (unless (file-name-absolute-p localname) (setq localname ...)) 
(save-excursion (when ... ...) (let ... ...)))
  (with-parsed-tramp-file-name name nil (unless (file-name-absolute-p 
localname) (setq localname ...)) (save-excursion (when ... ...) (let ... ...)))
  (if (not (tramp-tramp-file-p name)) (tramp-run-real-handler (quote 
expand-file-name) (list name nil)) (with-parsed-tramp-file-name name nil 
(unless ... ...) (save-excursion ... ...)))
  
tramp-handle-expand-file-name("/admin.cdh.ucla.edu:http-root/isecs/english/program.php"
 nil)
  apply(tramp-handle-expand-file-name 
("/admin.cdh.ucla.edu:http-root/isecs/english/program.php" nil))
  (if fn (apply (cdr fn) args) (tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (apply ... args) (tramp-run-real-handler operation 
args)))
  (progn (let (...) (if fn ... ...)))
  (unwind-protect (progn (let ... ...)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (let (...) (if fn ... ...)))
  tramp-sh-file-name-handler(expand-file-name 
"/admin.cdh.ucla.edu:http-root/isecs/english/program.php" nil)
  apply(tramp-sh-file-name-handler expand-file-name 
("/admin.cdh.ucla.edu:http-root/isecs/english/program.php" nil))
  (cond (foreign (apply foreign operation args)) (t (tramp-run-real-handler 
operation args)))
  (let* ((filename ...) (foreign ...)) (cond (foreign ...) (t ...)))
  (progn (let* (... ...) (cond ... ...)))
  (unwind-protect (progn (let* ... ...)) (set-match-data 
save-match-data-internal))
  (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
  (save-match-data (let* (... ...) (cond ... ...)))
  tramp-file-name-handler(expand-file-name 
"/admin.cdh.ucla.edu:http-root/isecs/english/program.php" nil)
  expand-file-name("/admin.cdh.ucla.edu:http-root/isecs/english/program.php")
  find-file-noselect("/admin.cdh.ucla.edu:http-root/isecs/english/program.php" 
nil nil 1)
  find-file("/admin.cdh.ucla.edu:http-root/isecs/english/program.php" 1)
  call-interactively(find-file)