/[emacs]/emacs/lisp/url/url-parse.el
ViewVC logotype

Diff of /emacs/lisp/url/url-parse.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by lh, Sun Oct 10 20:39:11 2004 UTC revision 1.8 by lektu, Mon May 16 10:07:31 2005 UTC
# Line 167  Format is: Line 167  Format is:
167                    (setq pass (match-string 2 user)                    (setq pass (match-string 2 user)
168                          user (match-string 1 user)))                          user (match-string 1 user)))
169                (if (string-match ":\\([0-9+]+\\)" host)                (if (string-match ":\\([0-9+]+\\)" host)
170                    (setq port (string-to-int (match-string 1 host))                    (setq port (string-to-number (match-string 1 host))
171                          host (substring host 0 (match-beginning 0))))                          host (substring host 0 (match-beginning 0))))
172                (if (string-match ":$" host)                (if (string-match ":$" host)
173                    (setq host (substring host 0 (match-beginning 0))))                    (setq host (substring host 0 (match-beginning 0))))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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