Mercurial > hg > xemacs-beta

comparison lisp/prim/files.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 6a378aca36af
children 4be1180a9e89
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
2575 ;; Get the name of the session file to recover from. 2575 ;; Get the name of the session file to recover from.
2576 (let ((file (dired-get-filename)) 2576 (let ((file (dired-get-filename))
2577 files 2577 files
2578 (buffer (get-buffer-create " *recover*"))) 2578 (buffer (get-buffer-create " *recover*")))
2579 ;; #### dired-do-flagged-delete in FSF. 2579 ;; #### dired-do-flagged-delete in FSF.
2580 (dired-do-deletions t) 2580 ;; This version is for ange-ftp
2581 ;;(dired-do-deletions t)
2582 ;T This version is for efs
2583 (dired-expunge-deletions)
2581 (unwind-protect 2584 (unwind-protect
2582 (save-excursion 2585 (save-excursion
2583 ;; Read in the auto-save-list file. 2586 ;; Read in the auto-save-list file.
2584 (set-buffer buffer) 2587 (set-buffer buffer)
2585 (erase-buffer) 2588 (erase-buffer)
2934 count (1- count))) 2937 count (1- count)))
2935 (if (> count 0) 2938 (if (> count 0)
2936 filename 2939 filename
2937 (error "Apparently circular symlink path")))) 2940 (error "Apparently circular symlink path"))))
2938 2941
2942 ;; Suggested by Michael Kifer <kifer@CS.SunySB.EDU>
2943 (defun file-remote-p (file)
2944 "Test whether file resides on the local system.
2945 The special value 'unknown is returned if no remote file access package
2946 has been loaded."
2947 (cond ((fboundp 'efs-ftp-path) (efs-ftp-path name))
2948 ((fboundp 'ange-ftp-ftp-name) (ange-ftp-ftp-name name))
2949 (t 'unknown)))
2950
2939 ;;; files.el ends here 2951 ;;; files.el ends here