Commits

Anonymous committed 8d752bd

EFS 1.22.

Comments (0)

Files changed (41)

-2003-08-31  Norbert Koch  <viteno@xemacs.org>
+2003-09-29  Mike Sperber  <sperber@informatik.uni-tuebingen.de>
 
-	* Makefile (VERSION): XEmacs package 1.30 released.
+	* EFS 1.22
+
+2003-09-05  Mike Sperber  <sperber@informatik.uni-tuebingen.de>
+
+	* efs-cp-p.el (efs-local-time): Use `efs-decode-month-name'
+	instead of `efs-month-alist.'
+
+	* default-dir.el (default-dir-set-visited-file-name): Accept
+	optional args.
+
+2003-09-05  Mike Sperber  <sperber@informatik.uni-tuebingen.de>
+
+	* EFS 1.21.
 
 2003-08-11  Mike Sperber  <sperber@informatik.uni-tuebingen.de>
 
 include Makefile.efs
 
 VERSION = 1.30
-AUTHOR_VERSION = 1.21
+AUTHOR_VERSION = 1.22
 MAINTAINER = Mike Sperber <sperber@informatik.uni-tuebingen.de>
 PACKAGE = efs
 PKG_TYPE = regular
 ###############################################################################
 #
 # File:         Makefile
-# Release:      $EFS release: 1.21 $
+# Release:      $EFS release: 1.22 $
 # Release:      $dired release: 7.11 $
 # Version:      #Revision: 1.9 $
 # RCS:
-This is EFS 1.21
+This is EFS 1.22
 ================
 
 EFS is a system for transparent file-transfer between remote VMS, CMS,
 ;;
 ;; File:         default-dir.el
 ;; RCS:
-;; Version:      #Revision: 1.5 $
+;; Version:      #Revision: 1.6 $
 ;; Description:  Defines the function default-directory, for fancy handling
 ;;               of the initial contents in the minibuffer when reading
 ;;               file names.
   
 (efs-overwrite-fn "default-dir" 'cd 'default-dir-cd)
 
-(defun default-dir-set-visited-file-name (filename)
+(defun default-dir-set-visited-file-name (filename &rest args)
   "Documented as original"
   (interactive
    (list
     (expand-file-name
      (read-file-name "Set visited file name: " (default-directory)))))
-  (default-dir-real-set-visited-file-name filename))
+  (apply 'default-dir-real-set-visited-file-name filename args))
 
 (efs-overwrite-fn "default-dir" 'set-visited-file-name
 		  'default-dir-set-visited-file-name)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-auto.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.8 $
 ;; RCS:          
 ;; Description:  Simple way of autoloading efs
 (require 'efs-fnh)
 
 (defconst efs-auto-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.8 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-cms-knet.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  CMS support for efs using KNET/VM server
 (require 'efs)
 
 (defconst efs-cms-knet-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-cms.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.9 $
 ;; RCS:          
 ;; Description:  CMS support for efs
 (require 'efs)
 
 (defconst efs-cms-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.9 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-coke.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  Coke Machine support for efs
 (require 'efs)
 
 (defconst efs-coke-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-cp-p.el
-;; Release:      $efs release: 1.21 $
-;; Version:      #Revision: 1.1 $
+;; Release:      $efs release: 1.22 $
+;; Version:      #Revision: 1.2 $
 ;; RCS:          
 ;; Description:  Support for preserving file modtimes with copies. i.e. cp -p
 ;; Author:       Sandy Rutherford <sandy@ibm550.sissa.it>
 ;;;; Internal Variables
 
 (defconst efs-cp-p-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
   (let ((str (current-time-string)))
     (efs-seconds-elapsed
      (string-to-int (substring str -4))
-     (cdr (assoc (substring str 4 7) efs-month-alist))
+     (efs-decode-month-name (substring str 4 7))
      (string-to-int (substring str 8 10))
      (string-to-int (substring str 11 13))
      (string-to-int (substring str 14 16))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-cu.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.13 $
 ;; RCS:          
 ;; Description:  Common utilities needed by efs files.
 ;;;; -------------------------------------------------------------
 
 (defconst efs-cu-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.13 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-defun.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  efs-defun allows for OS-dependent coding of functions
 ;;; Variables
 
 (defconst efs-defun-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 

efs-dired-mule.el

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-dired.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.2 $
 ;; RCS:          
 ;; Description:  Makes efs-dired.el work with MULE.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defconst efs-dired-mule-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.2 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-dired.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.32 $
 ;; RCS:          
 ;; Description:  Extends much of Dired to work under efs.
 (autoload 'dired-shell-call-process "dired-shell")
 
 (defconst efs-dired-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.32 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-dl.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.3 $
 ;; RCS:          
 ;; Description:  Unix descriptive listing support for efs
 (require 'efs)
 
 (defconst efs-dl-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.3 $" 11 -2)))
 

efs-dos-distinct.el

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-dos-distinct.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  Distinct's DOS FTP server support for efs
 (require 'efs)
 
 (defconst efs-dos-distinct-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-dump.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.2 $
 ;; RCS:
 ;; Description:  Install a bare-bones EFS hook into file-name-handler-alist
 (provide 'efs-dump)
 
 (defconst efs-dump-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.2 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-fnh.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.4 $
 ;; RCS:
 ;; Description:  Look for the emacs version, and install into
 (provide 'efs-fnh)
 
 (defconst efs-fnh-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.4 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-guardian.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.10 $
 ;; Description:  Guardian support for efs
 ;; Author:       Sandy Rutherford <sandy@math.ubc.ca>
 ;;; questions and debugging. Thanks.
 
 (defconst efs-guardian-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.9 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-gwp.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  Support for efs to use an interactive gateway.
 ;;; Internal Variables
 
 (defconst efs-gwp-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-hell.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  Hellsoft FTP server support for efs
 (require 'efs)
 
 (defconst efs-hell-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-ka9q.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.2 $
 ;; RCS:          
 ;; Description:  KA9Q support for efs
 (require 'efs)
 
 (defconst efs-ka9q-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.2 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-kerberos.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:
 ;; Description:  Support for Kerberos gateways.
 (require 'efs)
 
 (defconst efs-kerberos-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-mpe.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.8 $
 ;; RCS:          
 ;; Description:  MPE (HP3000) support for efs.
 ;;; Internal Variables
 
 (defconst efs-mpe-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.8 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-ms-unix.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  efs support for the Microsoft PC FTP server in unix mode.
 (require 'efs)
 
 (defconst efs-ms-unix-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-mts.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  MTS support for efs
 (require 'efs)
 
 (defconst efs-mts-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-mvs.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.4 $
 ;; RCS:          
 ;; Description:  MVS support for efs
 (require 'efs)
 
 (defconst efs-mvs-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.4 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-netrc.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.4 $
 ;; RCS:          
 ;; Description:  Parses ~/.netrc file, and does completion in /.
 ;;;; ------------------------------------------------------------
 
 (defconst efs-netrc-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.4 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-netware.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.5 $
 ;; RCS:          
 ;; Description:  efs support for the Novell Netware FTP server
 (require 'efs)
 
 (defconst efs-netware-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.5 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-nos-ve.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.2 $
 ;; RCS:          
 ;; Description:  efs support for NOS/VE
 ;;; providing imformation and testing.
 
 (defconst efs-nos-ve-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.2 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-ovwrt.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.3 $
 ;; RCS:
 ;; Description:  Utilities for overwriting functions with new definitions.
     (error)))
 
 (defconst efs-ovwrt-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.3 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-pc.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  PC support for efs
 (require 'efs)
 
 (defconst efs-pc-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-plan9.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  efs support for the Plan 9 FTP Server
 (require 'efs)
 
 (defconst efs-plan9-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-report.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.10 $
 ;; RCS:          
 ;; Description:  Function to report efs bugs in a usable way.
 ;;; Variables
 
 (defconst efs-report-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.10 $" 11 -2)))
 

efs-ti-explorer.el

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-ti-explorer.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  Explorer support for efs
 (require 'efs)
 
 (defconst efs-ti-explorer-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-ti-twenex.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  Support for a TI lisp machine in Twenex emulation mode.
 (require 'efs)
 
 (defconst efs-ti-twenex-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-tops-20.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Description:  TOPS-20 support for efs
 (provide 'efs-tops-20)
 
 (defconst efs-tops-20-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-vms.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.13 $
 ;; RCS:          
 ;; Description:  VMS support for efs
 (require 'efs)
 
 (defconst efs-vms-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.13 $" 11 -2)))
 
 ;;
 ;; File:         efs-vos.el
 ;; Description:  VOS support for efs
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.1 $
 ;; RCS:          
 ;; Author:       Sandy Rutherford <sandy@ibm550.sissa.it>
 (require 'efs)
 
 (defconst efs-vos-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.1 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs-x19.15.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.2 $
 ;; RCS:          
 ;; Description:  efs support for XEmacs, versions 19.15, and later.
 (require 'efs-ovwrt)
 
 (defconst efs-x19\.15-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.2 $" 11 -2)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; File:         efs.el
-;; Release:      $efs release: 1.21 $
+;; Release:      $efs release: 1.22 $
 ;; Version:      #Revision: 1.91 $
 ;; RCS:          
 ;; Description:  Transparent FTP support for the original GNU Emacs
 ;;;    efs|Andy Norman and Sandy Rutherford
 ;;;    |ange@hplb.hpl.hp.com and sandy@ibm550.sissa.it
 ;;;    |transparent FTP Support for GNU Emacs
-;;;    |$Date$|$efs release: 1.21 $|
+;;;    |$Date$|$efs release: 1.22 $|
 
 ;;; Host and listing type notation:
 ;;;
 ;;;; ------------------------------------------------------------
 
 (defconst efs-version
-  (concat (substring "$efs release: 1.21 $" 14 -2)
+  (concat (substring "$efs release: 1.22 $" 14 -2)
 	  "/"
 	  (substring "#Revision: 1.91 $" 11 -2)))