Function: ange-ftp-vms-file-name-as-directory

ange-ftp-vms-file-name-as-directory is a byte-compiled function defined in ange-ftp.el.gz.

Signature

(ange-ftp-vms-file-name-as-directory NAME)

Source Code

;; Defined in /usr/src/emacs/lisp/net/ange-ftp.el.gz
(defun ange-ftp-vms-file-name-as-directory (name)
  (save-match-data
    (if (string-match "\\.\\(DIR\\|dir\\)\\(;[0-9]+\\)?\\'" name)
	(setq name (substring name 0 (match-beginning 0))))
    (ange-ftp-real-file-name-as-directory name)))