# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 809881539 0
# Node ID 046bc1e2acc9395255400d408afb264ce2944d2f
# Parent  55e427250ad3dcdd9ff59960c04e3beb51e14976
(ange-ftp-vms-sans-version): Accept extra args.

diff -r 55e427250ad3 -r 046bc1e2acc9 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Thu Aug 31 02:37:12 1995 +0000
+++ b/lisp/ange-ftp.el	Thu Aug 31 15:05:39 1995 +0000
@@ -4835,7 +4835,7 @@
 ;;	  (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))