/[tramp]/tramp/lisp/tramp.el
ViewVC logotype

Diff of /tramp/lisp/tramp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.307 by kai, Sat May 31 20:25:39 2003 UTC revision 2.308 by kai, Sun Jun 8 11:29:09 2003 UTC
# Line 3420  ARGS are the arguments OPERATION has bee Line 3420  ARGS are the arguments OPERATION has bee
3420  (defun tramp-find-foreign-file-name-handler (filename)  (defun tramp-find-foreign-file-name-handler (filename)
3421    "Return foreign file name handler if exists."    "Return foreign file name handler if exists."
3422    (when (tramp-tramp-file-p filename)    (when (tramp-tramp-file-p filename)
3423      (let (elt res)      (let (elt
3424        (dolist (elt tramp-foreign-file-name-handler-alist res)            res
3425              (handler-alist tramp-foreign-file-name-handler-alist))
3426          (while handler-alist
3427            (setq elt (car handler-alist)
3428                  handler-alist (cdr handler-alist))
3429          (when (funcall (car elt) filename)          (when (funcall (car elt) filename)
3430              (setq handler-alist nil)
3431            (setq res (cdr elt))))            (setq res (cdr elt))))
3432        res)))        res)))
3433    

Legend:
Removed from v.2.307  
changed lines
  Added in v.2.308

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26