1 |
;;; tramp.el --- Transparent Remote Access, Multiple Protocol -*- coding: iso-8859-1; -*- |
;;; tramp.el --- Transparent Remote Access, Multiple Protocol -*- coding: iso-8859-1; -*- |
2 |
|
|
3 |
;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. |
;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Kai.Grossjohann@CS.Uni-Dortmund.DE |
;; Author: Kai.Grossjohann@CS.Uni-Dortmund.DE |
6 |
;; Keywords: comm, processes |
;; Keywords: comm, processes |
3298 |
(cond |
(cond |
3299 |
; FILE resp DIRECTORY |
; FILE resp DIRECTORY |
3300 |
((member operation |
((member operation |
3301 |
(list 'delete-directory 'delete-file 'diff-latest-backup-file |
(list 'access-file 'byte-compiler-base-file-name 'delete-directory |
3302 |
'directory-file-name 'directory-files 'dired-compress-file |
'delete-file 'diff-latest-backup-file 'directory-file-name |
3303 |
'dired-uncache 'file-accessible-directory-p 'file-attributes |
'directory-files 'directory-files-and-attributes |
3304 |
'file-directory-p |
'dired-compress-file 'dired-uncache |
3305 |
'file-executable-p 'file-exists-p 'file-local-copy |
'file-accessible-directory-p 'file-attributes |
3306 |
'file-modes 'file-name-as-directory 'file-name-directory |
'file-directory-p 'file-executable-p 'file-exists-p |
3307 |
'file-name-nondirectory 'file-name-sans-versions |
'file-local-copy 'file-modes 'file-name-as-directory |
3308 |
'file-ownership-preserved-p 'file-readable-p 'file-regular-p |
'file-name-directory 'file-name-nondirectory |
3309 |
'file-symlink-p 'file-truename 'file-writable-p |
'file-name-sans-versions 'file-ownership-preserved-p |
3310 |
'find-backup-file-name 'get-file-buffer 'insert-directory |
'file-readable-p 'file-regular-p 'file-symlink-p |
3311 |
'insert-file-contents 'load 'make-directory 'set-file-modes |
'file-truename 'file-writable-p 'find-backup-file-name |
3312 |
'unhandled-file-name-directory 'vc-registered |
'find-file-noselect 'get-file-buffer 'insert-directory |
3313 |
|
'insert-file-contents 'load 'make-directory |
3314 |
|
'make-directory-internal 'set-file-modes |
3315 |
|
'substitute-in-file-name 'unhandled-file-name-directory |
3316 |
|
'vc-registered |
3317 |
; XEmacs only |
; XEmacs only |
3318 |
'abbreviate-file-name 'create-file-buffer |
'abbreviate-file-name 'create-file-buffer |
3319 |
|
'dired-file-modtime 'dired-make-compressed-filename |
3320 |
|
'dired-recursive-delete-directory 'dired-set-file-modtime |
3321 |
|
'dired-shell-unhandle-file-name 'dired-uucode-file |
3322 |
'insert-file-contents-literally 'recover-file |
'insert-file-contents-literally 'recover-file |
3323 |
'dired-make-compressed-filename |
'vm-imap-check-mail 'vm-pop-check-mail 'vm-spool-check-mail)) |
|
'dired-shell-unhandle-file-name |
|
|
'dired-uucode-file 'dired-file-modtime |
|
|
'dired-set-file-modtime 'dired-recursive-delete-directory |
|
|
'vm-spool-check-mail 'vm-imap-check-mail 'vm-pop-check-mail |
|
|
; uncocumented calls in GNU Emacs |
|
|
'byte-compiler-base-file-name 'find-file-noselect |
|
|
'substitute-in-file-name 'make-directory-internal |
|
|
'access-file)) |
|
3324 |
(nth 0 args)) |
(nth 0 args)) |
3325 |
; FILE DIRECTORY resp FILE1 FILE2 |
; FILE DIRECTORY resp FILE1 FILE2 |
3326 |
((member operation |
((member operation |
3329 |
'file-newer-than-file-p 'make-symbolic-link 'rename-file |
'file-newer-than-file-p 'make-symbolic-link 'rename-file |
3330 |
; XEmacs only |
; XEmacs only |
3331 |
'dired-make-relative-symlink |
'dired-make-relative-symlink |
3332 |
'vm-spool-move-mail 'vm-imap-move-mail 'vm-pop-move-mail)) |
'vm-imap-move-mail 'vm-pop-move-mail 'vm-spool-move-mail)) |
3333 |
(save-match-data |
(save-match-data |
3334 |
(if (string-match tramp-file-name-regexp (nth 0 args)) |
(if (string-match tramp-file-name-regexp (nth 0 args)) |
3335 |
(nth 0 args) (nth 1 args)))) |
(nth 0 args) (nth 1 args)))) |
3347 |
((member operation |
((member operation |
3348 |
(list 'dired-call-process 'shell-command |
(list 'dired-call-process 'shell-command |
3349 |
; XEmacs only |
; XEmacs only |
3350 |
'dired-shell-call-process 'dired-print-file)) |
'dired-print-file 'dired-shell-call-process)) |
3351 |
default-directory) |
default-directory) |
3352 |
; unknown file primitive |
; unknown file primitive |
3353 |
(t (error "unknown file I/O primitive: %s" operation)))) |
(t (error "unknown file I/O primitive: %s" operation)))) |