Tramp Trips

[Tak Ota]

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

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

-Tak

Debugger entered--Lisp error: (error "Not a tramp file name: 
/address@hidden:~/")
  signal(error ("Not a tramp file name: /address@hidden:~/"))
  error("Not a tramp file name: %s" "/address@hidden:~/")
  (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("/address@hidden:~/")
  (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("/address@hidden:~/" nil)
  apply(tramp-handle-expand-file-name ("/address@hidden:~/" 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 "/address@hidden:~/" nil)
  expand-file-name("/address@hidden:~/")
  ffap()
  call-interactively(ffap)
  byte-code("ÀÁ!ˆp‡" [call-interactively ffap] 2)
  ffap-other-window()
* call-interactively(ffap-other-window)