/[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.248 by kai, Tue Oct 22 10:50:36 2002 UTC revision 2.249 by albinus, Tue Oct 22 21:04:48 2002 UTC
# Line 1  Line 1 
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
# Line 3298  ARGS are the arguments OPERATION has bee Line 3298  ARGS are the arguments OPERATION has bee
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
# Line 3330  ARGS are the arguments OPERATION has bee Line 3329  ARGS are the arguments OPERATION has bee
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))))
# Line 3348  ARGS are the arguments OPERATION has bee Line 3347  ARGS are the arguments OPERATION has bee
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))))

Legend:
Removed from v.2.248  
changed lines
  Added in v.2.249

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