Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-ms-unix.el @ 42:8b8b7f3559a2 r19-15b104

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b104
author cvs
date Mon, 13 Aug 2007 08:54:51 +0200
parents 8fc7fe29b841
children
comparison
equal deleted inserted replaced
41:5d6df4963a99 42:8b8b7f3559a2
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-ms-unix.el 4 ;; File: efs-ms-unix.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.1 $ 6 ;; Version: #Revision: 1.1 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: efs support for the Microsoft PC FTP server in unix mode. 8 ;; Description: efs support for the Microsoft PC FTP server in unix mode.
9 ;; Author: Sandy Rutherford <sandy@tsmi19.sissa.it> 9 ;; Author: Sandy Rutherford <sandy@tsmi19.sissa.it>
10 ;; Created: Thu Aug 19 08:31:15 1993 by sandy on ibm550 10 ;; Created: Thu Aug 19 08:31:15 1993 by sandy on ibm550
11 ;; Modified: Sun Nov 27 18:37:00 1994 by sandy on gandalf 11 ;; Modified: Sun Nov 27 18:37:00 1994 by sandy on gandalf
17 (require 'efs) 17 (require 'efs)
18 18
19 (defconst efs-ms-unix-version 19 (defconst efs-ms-unix-version
20 (concat (substring "$efs release: 1.15 $" 14 -2) 20 (concat (substring "$efs release: 1.15 $" 14 -2)
21 "/" 21 "/"
22 (substring "$Revision: 1.1 $" 11 -2))) 22 (substring "#Revision: 1.1 $" 11 -2)))
23 23
24 (defvar efs-ms-unix-month-and-time-regexp 24 (defvar efs-ms-unix-month-and-time-regexp
25 (concat 25 (concat
26 " \\([0-9]+\\) +" ; file size 26 " \\([0-9]+\\) +" ; file size
27 "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct" 27 "\\(Jan\\|Feb\\|Mar\\|Apr\\|May\\|Jun\\|Jul\\|Aug\\|Sep\\|Oct"