mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(url-cookie-write-file): Create parent dir.

Browse Source
This commit is contained in:
Stefan Monnier 2005-12-21 20:08:49 +00:00
parent 208d45772d
commit 32fa584479
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/url/ChangeLog
View File

@ -1,3 +1,9 @@
2005-12-21 Stefan Monnier <monnier@iro.umontreal.ca>
* url-cookie.el (url-cookie-write-file): Create parent dir.
* url.el (url-configuration-directory): Use ~/.emacs.d if possible.
2005-12-07 Klaus Straubinger <KSNetz@Arcor.DE> (tiny change) 2005-12-07 Klaus Straubinger <KSNetz@Arcor.DE> (tiny change)
* url-cookie.el (url-cookie-save-interval): Simplify. * url-cookie.el (url-cookie-save-interval): Simplify.

5
lisp/url/url-cookie.el
View File

@ -148,6 +148,8 @@ telling Microsoft that."
;;;###autoload ;;;###autoload
(defun url-cookie-write-file (&optional fname) (defun url-cookie-write-file (&optional fname)
(setq fname (or fname url-cookie-file)) (setq fname (or fname url-cookie-file))
(unless (file-directory-p (file-name-directory fname))
(ignore-errors (make-directory (file-name-directory fname))))
(cond (cond
((not url-cookies-changed-since-last-save) nil) ((not url-cookies-changed-since-last-save) nil)
((not (file-writable-p fname)) ((not (file-writable-p fname))
@ -155,8 +157,7 @@ telling Microsoft that."
(t (t
(url-cookie-clean-up) (url-cookie-clean-up)
(url-cookie-clean-up t) (url-cookie-clean-up t)
(save-excursion (with-current-buffer (get-buffer-create " *cookies*")
(set-buffer (get-buffer-create " *cookies*"))
(erase-buffer) (erase-buffer)
(fundamental-mode) (fundamental-mode)
(insert ";; Emacs-W3 HTTP cookies file\n" (insert ";; Emacs-W3 HTTP cookies file\n"