Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-cu.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 8619ce7e4c50
children
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: efs-cu.el 4 ;; File: efs-cu.el
5 ;; Release: $efs release: 1.15 $ 5 ;; Release: $efs release: 1.15 $
6 ;; Version: $Revision: 1.4 $ 6 ;; Version: #Revision: 1.12 $
7 ;; RCS: 7 ;; RCS:
8 ;; Description: Common utilities needed by efs files. 8 ;; Description: Common utilities needed by efs files.
9 ;; Author: Sandy Rutherford <sandy@ibm550.sissa.it> 9 ;; Author: Sandy Rutherford <sandy@ibm550.sissa.it>
10 ;; Created: Fri Jan 28 19:55:45 1994 by sandy on ibm550 10 ;; Created: Fri Jan 28 19:55:45 1994 by sandy on ibm550
11 ;; Language: Emacs-Lisp 11 ;; Language: Emacs-Lisp
53 ;;;; ------------------------------------------------------------- 53 ;;;; -------------------------------------------------------------
54 54
55 (defconst efs-cu-version 55 (defconst efs-cu-version
56 (concat (substring "$efs release: 1.15 $" 14 -2) 56 (concat (substring "$efs release: 1.15 $" 14 -2)
57 "/" 57 "/"
58 (substring "$Revision: 1.4 $" 11 -2))) 58 (substring "#Revision: 1.12 $" 11 -2)))
59 59
60 (defconst efs-case-insensitive-host-types 60 (defconst efs-case-insensitive-host-types
61 '(vms cms mts ti-twenex ti-explorer dos mvs tops-20 mpe ka9q dos-distinct 61 '(vms cms mts ti-twenex ti-explorer dos mvs tops-20 mpe ka9q dos-distinct
62 os2 hell guardian ms-unix netware cms-knet nos-ve) 62 os2 hell guardian ms-unix netware cms-knet nos-ve)
63 "List of host types for which case is insignificant in file names.") 63 "List of host types for which case is insignificant in file names.")
357 ;; Default to the user's login name. 357 ;; Default to the user's login name.
358 (t 358 (t
359 (user-login-name)))) 359 (user-login-name))))
360 (efs-set-user host user))))) 360 (efs-set-user host user)))))
361 361
362 ;;;###autoload
362 (defun efs-ftp-path (path) 363 (defun efs-ftp-path (path)
363 "Parse PATH according to efs-path-regexp. 364 "Parse PATH according to efs-path-regexp.
364 Returns a list (HOST USER PATH), or nil if PATH does not match the format." 365 Returns a list (HOST USER PATH), or nil if PATH does not match the format."
365 (or (string-equal path efs-ftp-path-arg) 366 (or (string-equal path efs-ftp-path-arg)
366 (setq efs-ftp-path-res 367 (setq efs-ftp-path-res