Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-netware.el @ 40:7e54bd776075 r19-15b103

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b103
author cvs
date Mon, 13 Aug 2007 08:54:25 +0200
parents 8fc7fe29b841
children 8b8b7f3559a2
comparison
equal deleted inserted replaced
39:06f275776fba 40:7e54bd776075
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-netware.el 4 ;; File: efs-netware.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.1 $ 6 ;; Version: $Revision: 1.5 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: efs support for the Novell Netware FTP server 8 ;; Description: efs support for the Novell Netware FTP server
9 ;; Author: Sandy Rutherford <sandy@math.ubc.ca> 9 ;; Author: Sandy Rutherford <sandy@math.ubc.ca>
10 ;; Created: Fri Oct 15 00:30:50 1993 by sandy on gauss.math.ubc.ca 10 ;; Created: Fri Oct 15 00:30:50 1993 by sandy on gauss.math.ubc.ca
11 ;; Modified: Tue Nov 22 00:11:46 1994 by sandy on gandalf 11 ;; Modified: Tue Nov 22 00:11:46 1994 by sandy on gandalf
22 (require 'efs) 22 (require 'efs)
23 23
24 (defconst efs-netware-version 24 (defconst efs-netware-version
25 (concat (substring "$efs release: 1.15 $" 14 -2) 25 (concat (substring "$efs release: 1.15 $" 14 -2)
26 "/" 26 "/"
27 (substring "$Revision: 1.1 $" 11 -2))) 27 (substring "$Revision: 1.5 $" 11 -2)))
28 28
29 ;;; Basic efs support 29 ;;; Basic efs support
30 30
31 (defconst efs-netware-date-regexp 31 (defconst efs-netware-date-regexp
32 (concat 32 (concat