comparison lisp/ange-ftp.el @ 3532:09bff9415131

(ange-ftp-real-load): New function. (ange-ftp-load): New function--handles `load'.

3531:0732700eb6c0


;;;; ------------------------------------------------------------
;;;; Internal variables.
;;;; ------------------------------------------------------------

(defconst ange-ftp-version "$Revision: 1.22 $")

(defvar ange-ftp-data-buffer-name " *ftp data*"
  "Buffer name to hold directory listing data received from ftp process.")

(defvar ange-ftp-netrc-modtime nil

	(let* ((tmp1 (ange-ftp-make-tmp-name (car pa1)))
	       (bin1 (ange-ftp-binary-file fn1)))
	  (ange-ftp-copy-file-internal fn1 tmp1 t nil
				       (format "Getting %s" fn1))
	  tmp1))))

;; Calculate default-unhandled-directory for a given ange-ftp buffer.
(defun ange-ftp-unhandled-file-name-directory (filename)
  (file-name-directory ange-ftp-tmp-name-template))



(put 'unhandled-file-name-directory 'ange-ftp
     'ange-ftp-unhandled-file-name-directory)
(put 'file-name-sans-versions 'ange-ftp 'ange-ftp-file-name-sans-versions)
(put 'dired-uncache 'ange-ftp 'ange-ftp-dired-uncache)
(put 'dired-compress-file 'ange-ftp 'ange-ftp-dired-compress-file)

;; Turn off truename processing to save time.
;; Treat each name as its own truename.
(put 'file-truename 'ange-ftp 'identity)

  (let (file-name-handler-alist)
    (apply 'file-name-sans-versions args)))
(defun ange-ftp-real-shell-command (&rest args)
  (let (file-name-handler-alist)
    (apply 'shell-command args)))

;; Here we support using dired on remote hosts.
;; I have turned off the support for using dired on foreign directory formats.
;; That involves too many unclean hooks.
;; It would be cleaner to support such operations by 

3532:09bff9415131


;;;; ------------------------------------------------------------
;;;; Internal variables.
;;;; ------------------------------------------------------------

(defconst ange-ftp-version "$Revision: 1.23 $")

(defvar ange-ftp-data-buffer-name " *ftp data*"
  "Buffer name to hold directory listing data received from ftp process.")

(defvar ange-ftp-netrc-modtime nil

	(let* ((tmp1 (ange-ftp-make-tmp-name (car pa1)))
	       (bin1 (ange-ftp-binary-file fn1)))
	  (ange-ftp-copy-file-internal fn1 tmp1 t nil
				       (format "Getting %s" fn1))
	  tmp1))))

(defun ange-ftp-load (file)
  (if (ange-ftp-ftp-name file)
      (let ((copy (ange-ftp-file-local-copy file)))
	(unwind-protect
	    (load copy)
	  (delete-file copy)))
    (ange-ftp-real-load file)))

;; Calculate default-unhandled-directory for a given ange-ftp buffer.
(defun ange-ftp-unhandled-file-name-directory (filename)
  (file-name-directory ange-ftp-tmp-name-template))



(put 'unhandled-file-name-directory 'ange-ftp
     'ange-ftp-unhandled-file-name-directory)
(put 'file-name-sans-versions 'ange-ftp 'ange-ftp-file-name-sans-versions)
(put 'dired-uncache 'ange-ftp 'ange-ftp-dired-uncache)
(put 'dired-compress-file 'ange-ftp 'ange-ftp-dired-compress-file)
(put 'load 'ange-ftp 'ange-ftp-load)

;; Turn off truename processing to save time.
;; Treat each name as its own truename.
(put 'file-truename 'ange-ftp 'identity)

  (let (file-name-handler-alist)
    (apply 'file-name-sans-versions args)))
(defun ange-ftp-real-shell-command (&rest args)
  (let (file-name-handler-alist)
    (apply 'shell-command args)))
(defun ange-ftp-real-load (&rest args)
  (let (file-name-handler-alist)
    (apply 'load args)))

;; Here we support using dired on remote hosts.
;; I have turned off the support for using dired on foreign directory formats.
;; That involves too many unclean hooks.
;; It would be cleaner to support such operations by