Mercurial > hg > xemacs-beta

comparison lisp/efs/efs-cu.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents 8b8b7f3559a2
children
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
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