diff options
| author | Richard M. Stallman | 1995-08-31 15:05:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-08-31 15:05:39 +0000 |
| commit | 007f0260412566a6458fc8e52a29121ca7aa8f0a (patch) | |
| tree | 097a0166323bdf90d5cdc57e12645abdf24a72fb | |
| parent | 05abbc425e545f18690dbdca415a96a524e7d9a6 (diff) | |
| download | emacs-007f0260412566a6458fc8e52a29121ca7aa8f0a.tar.gz emacs-007f0260412566a6458fc8e52a29121ca7aa8f0a.zip | |
(ange-ftp-vms-sans-version): Accept extra args.
| -rw-r--r-- | lisp/ange-ftp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 0af2e987509..87af1adedaa 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el | |||
| @@ -4835,7 +4835,7 @@ Other orders of $ and _ seem to all work just fine.") | |||
| 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)) |