Function: ange-ftp-add-dl-dir

ange-ftp-add-dl-dir is an interactive and byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-add-dl-dir DIR)

Documentation

Interactively add a DIR to ange-ftp-dl-dir-regexp.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
(defun ange-ftp-add-dl-dir (dir)
  "Interactively add a DIR to `ange-ftp-dl-dir-regexp'."
  (interactive
   (list (read-string "Directory: "
		      (let ((name (or (buffer-file-name) default-directory)))
			(and name (ange-ftp-ftp-name name)
			     (file-name-directory name))))))
  (if (not (and ange-ftp-dl-dir-regexp
		(string-match ange-ftp-dl-dir-regexp dir)))
      (setq ange-ftp-dl-dir-regexp
	    (concat "^" (regexp-quote dir)
		    (and ange-ftp-dl-dir-regexp "\\|")
		    ange-ftp-dl-dir-regexp))))