-(defun shadow-parse-fullpath (fullpath)
- "Parse PATH into \(site user path) list,
-or leave it alone if it already is one. Returns nil if the argument is not a
-full ange-ftp pathname."
- (if (listp fullpath)
- fullpath
- (ange-ftp-ftp-name fullpath)))
-
-(defun shadow-parse-path (path)
- "Parse any PATH into \(site user path) list.
-Argument can be a simple path, full ange-ftp path, or already a hup list."
- (or (shadow-parse-fullpath path)
+(defun shadow-parse-fullname (fullname)
+ "Parse FULLNAME into \(site user path) list.
+Leave it alone if it already is one. Returns nil if the argument is
+not a full ange-ftp pathname."
+ (if (listp fullname)
+ fullname
+ (ange-ftp-ftp-name fullname)))
+
+(defun shadow-parse-name (name)
+ "Parse any NAME into \(site user name) list.
+Argument can be a simple name, full ange-ftp name, or already a hup list."
+ (or (shadow-parse-fullname name)