Function: ange-ftp-process-sentinel

ange-ftp-process-sentinel is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-process-sentinel PROC STR)

Documentation

When FTP process changes state, nuke all file-entries in cache.

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
(defun ange-ftp-process-sentinel (proc _str)
  "When FTP process changes state, nuke all file-entries in cache."
  (let ((name (process-name proc)))
    (when (string-match "\\*ftp \\([^@]+\\)@\\([^*]+\\)\\*" name)
      (let ((user (match-string 1 name))
	    (host (match-string 2 name)))
	(ange-ftp-wipe-file-entries host user))))
  (setq ange-ftp-ls-cache-file nil))