From 007f0260412566a6458fc8e52a29121ca7aa8f0a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 31 Aug 1995 15:05:39 +0000 Subject: [PATCH] (ange-ftp-vms-sans-version): Accept extra args. --- lisp/ange-ftp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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.") ;; (cons '(vms . ange-ftp-dired-vms-ls-trim) ;; ange-ftp-dired-ls-trim-alist))) -(defun ange-ftp-vms-sans-version (name) +(defun ange-ftp-vms-sans-version (name &rest args) (save-match-data (if (string-match ";[0-9]+$" name) (substring name 0 (match-beginning 0)) -- 2.39.2