Mercurial > emacs
comparison lisp/ange-ftp.el @ 12977:046bc1e2acc9
(ange-ftp-vms-sans-version): Accept extra args.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 31 Aug 1995 15:05:39 +0000 |
| parents | bcaa94db623c |
| children | 35c7fa318961 |
comparison
equal
deleted
inserted
replaced
| 12976:55e427250ad3 | 12977:046bc1e2acc9 |
|---|---|
| 4833 ;;(or (assq 'vms ange-ftp-dired-ls-trim-alist) | 4833 ;;(or (assq 'vms ange-ftp-dired-ls-trim-alist) |
| 4834 ;; (setq ange-ftp-dired-ls-trim-alist | 4834 ;; (setq ange-ftp-dired-ls-trim-alist |
| 4835 ;; (cons '(vms . ange-ftp-dired-vms-ls-trim) | 4835 ;; (cons '(vms . ange-ftp-dired-vms-ls-trim) |
| 4836 ;; ange-ftp-dired-ls-trim-alist))) | 4836 ;; ange-ftp-dired-ls-trim-alist))) |
| 4837 | 4837 |
| 4838 (defun ange-ftp-vms-sans-version (name) | 4838 (defun ange-ftp-vms-sans-version (name &rest args) |
| 4839 (save-match-data | 4839 (save-match-data |
| 4840 (if (string-match ";[0-9]+$" name) | 4840 (if (string-match ";[0-9]+$" name) |
| 4841 (substring name 0 (match-beginning 0)) | 4841 (substring name 0 (match-beginning 0)) |
| 4842 name))) | 4842 name))) |
| 4843 | 4843 |