diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-31 16:40:05 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-31 16:40:05 +0000 |
| commit | d18ec89f1c7043f65913752aae40ec109624f8ef (patch) | |
| tree | ea27a7a77b36e119da0d1c450615e3e76f149501 /lisp/url/url-util.el | |
| parent | 7c1bfeccb0d3c330fee1a3628784da157f5e75c2 (diff) | |
| download | emacs-d18ec89f1c7043f65913752aae40ec109624f8ef.tar.gz emacs-d18ec89f1c7043f65913752aae40ec109624f8ef.tar.bz2 emacs-d18ec89f1c7043f65913752aae40ec109624f8ef.zip | |
* url-parse.el (url): Use defstruct rather than macros. Update all callers.
Diffstat (limited to 'lisp/url/url-util.el')
| -rw-r--r-- | lisp/url/url-util.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el index fa971da5d17..5b5b43a7db7 100644 --- a/lisp/url/url-util.el +++ b/lisp/url/url-util.el @@ -168,7 +168,7 @@ Strips out default port numbers, etc." type (url-type data)) (if (member type '("www" "about" "mailto" "info")) (setq retval url) - (url-set-target data nil) + (setf (url-target data) nil) (setq retval (url-recreate-url data))) retval)) @@ -421,13 +421,13 @@ WIDTH defaults to the current frame width." (string-match "/" fname)) (setq fname (substring fname (match-end 0) nil) modified (1+ modified)) - (url-set-filename urlobj fname) + (setf (url-filename urlobj) fname) (setq url (url-recreate-url urlobj) str-width (length url))) (if (> modified 1) (setq fname (concat "/.../" fname)) (setq fname (concat "/" fname))) - (url-set-filename urlobj fname) + (setf (url-filename urlobj) fname) (setq url (url-recreate-url urlobj))) url)) |