Tramp Trips

[Tak Ota <Takaaki.Ota@am.sony.com>]

I thought the tramp takes care of ange-ftp path name.  Why does it
complain about the name "/ota@xenon:~/"?

I am using the CVS head updated on Aug. 6th.

-Tak

Debugger entered--Lisp error: (error "Not a tramp file name: /ota@xenon:~/")
  signal(error ("Not a tramp file name: /ota@xenon:~/"))
  error("Not a tramp file name: %s" "/ota@xenon:~/")
  (if (string-match (nth 0 tramp-file-name-structure) name) nil (error "Not a tramp file name: %s" name))
  (unless (string-match (nth 0 tramp-file-name-structure) name) (error "Not a tramp file name: %s" name))
  (progn (unless (string-match ... name) (error "Not a tramp file name: %s" name)) (setq method (or ... tramp-default-method)) (if (member method tramp-multi-methods) (tramp-dissect-multi-file-name name) (make-tramp-file-name :multi-method nil :method method :user ... :host ... :path ...)))
  (unwind-protect (progn (unless ... ...) (setq method ...) (if ... ... ...)) (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 (unless (string-match ... name) (error "Not a tramp file name: %s" name)) (setq method (or ... tramp-default-method)) (if (member method tramp-multi-methods) (tramp-dissect-multi-file-name name) (make-tramp-file-name :multi-method nil :method method :user ... :host ... :path ...)))
  (let (method) (save-match-data (unless ... ...) (setq method ...) (if ... ... ...)))
  tramp-dissect-file-name("/ota@xenon:~/")
  (let* ((v ...) (multi-method ...) (method ...) (user ...) (host ...) (path ...)) (unless (file-name-absolute-p path) (setq path ...)) (save-excursion (when ... ...) (tramp-make-tramp-file-name multi-method method user host ...)))
  (if (not (tramp-tramp-file-p name)) (tramp-run-real-handler (quote expand-file-name) (list name nil)) (let* (... ... ... ... ... ...) (unless ... ...) (save-excursion ... ...)))
  tramp-handle-expand-file-name("/ota@xenon:~/" nil)
  apply(tramp-handle-expand-file-name ("/ota@xenon:~/" nil))
  (progn (apply (cdr fn) args))
  (unwind-protect (progn (apply ... args)) (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 (apply (cdr fn) args))
  (if fn (save-match-data (apply ... args)) (tramp-run-real-handler operation args))
  (let ((fn ...)) (if fn (save-match-data ...) (tramp-run-real-handler operation args)))
  tramp-file-name-handler(expand-file-name "/ota@xenon:~/" nil)
  expand-file-name("/ota@xenon:~/")
  ffap()
  call-interactively(ffap)
  byte-code("ÀÁ!ˆp‡" [call-interactively ffap] 2)
  ffap-other-window()
* call-interactively(ffap-other-window)