/[emacs]/emacs/lisp/net/ange-ftp.el
ViewVC logotype

Diff of /emacs/lisp/net/ange-ftp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.14.4.6  
changed lines
  Added in v.1.14.4.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26