Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-pc.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
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