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-file.el | |
| parent | 7c1bfeccb0d3c330fee1a3628784da157f5e75c2 (diff) | |
| download | emacs-d18ec89f1c7043f65913752aae40ec109624f8ef.tar.gz | |
* url-parse.el (url): Use defstruct rather than macros. Update all callers.
Diffstat (limited to 'lisp/url/url-file.el')
| -rw-r--r-- | lisp/url/url-file.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/url/url-file.el b/lisp/url/url-file.el index 6e771c9cd69..c361016856b 100644 --- a/lisp/url/url-file.el +++ b/lisp/url/url-file.el @@ -127,10 +127,11 @@ to them." ;; straighten it out for us? ;; (if (and (file-directory-p filename) ;; (not (string-match (format "%c$" directory-sep-char) filename))) - ;; (url-set-filename url (format "%s%c" filename directory-sep-char))) + ;; (setf (url-filename url) + ;; (format "%s%c" filename directory-sep-char))) (if (and (file-directory-p filename) (not (string-match "/\\'" filename))) - (url-set-filename url (format "%s/" filename))) + (setf (url-filename url) (format "%s/" filename))) ;; If it is a directory, look for an index file first. |