Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-pc.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-pc.el 4 ;; File: efs-pc.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: PC support for efs 8 ;; Description: PC support for efs
9 ;; Author: Sandy Rutherford <sandy@tsmi19.sissa.it> 9 ;; Author: Sandy Rutherford <sandy@tsmi19.sissa.it>
10 ;; Created: Thu Mar 18 13:06:25 1993 10 ;; Created: Thu Mar 18 13:06:25 1993
11 ;; Modified: Sun Nov 27 18:40:46 1994 by sandy on gandalf 11 ;; Modified: Sun Nov 27 18:40:46 1994 by sandy on gandalf
29 (require 'efs) 29 (require 'efs)
30 30
31 (defconst efs-pc-version 31 (defconst efs-pc-version
32 (concat (substring "$efs release: 1.15 $" 14 -2) 32 (concat (substring "$efs release: 1.15 $" 14 -2)
33 "/" 33 "/"
34 (substring "$Revision: 1.1 $" 11 -2))) 34 (substring "$Revision: 1.2 $" 11 -2)))
35 35
36 ;;;----------------------------------------------------------------- 36 ;;;-----------------------------------------------------------------
37 ;;; PC support for efs 37 ;;; PC support for efs
38 ;;;----------------------------------------------------------------- 38 ;;;-----------------------------------------------------------------
39 39
258 (cond ((string-match "^/\\(.:\\)?$" dir-path) 258 (cond ((string-match "^/\\(.:\\)?$" dir-path)
259 (error "Can't list DOS or OS/2 disks")) 259 (error "Can't list DOS or OS/2 disks"))
260 ;; Neither DOS nor OS/2 allows us to end the name of a directory 260 ;; Neither DOS nor OS/2 allows us to end the name of a directory
261 ;; with an "\". 261 ;; with an "\".
262 ;; Adding *.* to the end also allows us to distinguish plain files from 262 ;; Adding *.* to the end also allows us to distinguish plain files from
263 ;; directries. All DOS servers seem to understand this except 263 ;; directories. All DOS servers seem to understand this except
264 ;; Frontier Technologies' super-tcp server. 264 ;; Frontier Technologies' super-tcp server.
265 ((string-match "/$" dir-path) 265 ((string-match "/$" dir-path)
266 (concat (efs-fix-pc-path dir-path) "*.*")) 266 (concat (efs-fix-pc-path dir-path) "*.*"))
267 (t (efs-fix-pc-path dir-path)))) 267 (t (efs-fix-pc-path dir-path))))
268 268