Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-plan9.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 8fc7fe29b841
children 9f59509498e1
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-plan9.el 4 ;; File: efs-plan9.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.1 $ 6 ;; Version: $Revision: 1.2 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: efs support for the Plan 9 FTP Server 8 ;; Description: efs support for the Plan 9 FTP Server
9 ;; Author: Sandy Rutherford <sandy@ibm550.sissa.it> 9 ;; Author: Sandy Rutherford <sandy@ibm550.sissa.it>
10 ;; Created: Sat Jan 22 21:26:06 1994 by sandy on ibm550 10 ;; Created: Sat Jan 22 21:26:06 1994 by sandy on ibm550
11 ;; Modified: Sun Nov 27 18:41:05 1994 by sandy on gandalf 11 ;; Modified: Sun Nov 27 18:41:05 1994 by sandy on gandalf
22 (require 'efs) 22 (require 'efs)
23 23
24 (defconst efs-plan9-version 24 (defconst efs-plan9-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.2 $" 11 -2)))
28 28
29 (efs-defun efs-fix-dir-path plan9 (dir-path) 29 (efs-defun efs-fix-dir-path plan9 (dir-path)
30 ;; Convert DIR-PATH from UN*X-ish to Plan 9. Does nothing actually. 30 ;; Convert DIR-PATH from UN*X-ish to Plan 9. Does nothing actually.
31 ;; Avoids appending the "." that we do in unix. 31 ;; Avoids appending the "." that we do in unix.
32 dir-path) 32 dir-path)