Parent Directory | Revision Log | Patch
revision 1.14.4.6 by eliz, Thu May 16 16:03:59 2002 UTC | revision 1.14.4.7 by rms, Mon Jun 17 13:31:25 2002 UTC | |
---|---|---|
# | Line 3017 logged in as user USER and cd'd to direc | Line 3017 logged in as user USER and cd'd to direc |
3017 | (rest (substring name (match-end 0))) | (rest (substring name (match-end 0))) |
3018 | (dir (ange-ftp-expand-dir host user tilda))) | (dir (ange-ftp-expand-dir host user tilda))) |
3019 | (if dir | (if dir |
3020 | (setq name (concat dir rest)) | (setq name (if (string-equal dir "/") |
3021 | rest (concat dir rest))) | |
3022 | (error "User \"%s\" is not known" | (error "User \"%s\" is not known" |
3023 | (substring tilda 1))))) | (substring tilda 1))))) |
3024 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |