lisp/net/eww.el (eww-bookmarks-directory): New variable.

* lisp/net/eww.el (eww-bookmarks-directory): New variable.
(eww-write-bookmarks): Use it.
(eww-read-bookmarks): Ditto.

2 files changed, 14 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ec506b63b0..adca3166187 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2014-08-05  Eric Brown  <brown@fastmail.fm>  (tiny change)
+
+        * net/eww.el (eww-bookmarks-directory): New variable.
+        (eww-write-bookmarks): Use it.
+        (eww-read-bookmarks): Ditto.
+
 2014-08-05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
         * net/shr.el (shr-copy-url): Also copy the image URL.
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 02fc575c261..f99148162e4 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -57,6 +57,12 @@
   :group 'eww
   :type 'string)
 
+(defcustom eww-bookmarks-directory user-emacs-directory
+  "Directory where bookmark files will be stored."
+  :version "24.5"
+  :group 'eww
+  :type 'string)
+
 (defcustom eww-use-external-browser-for-content-type
   "\\`\\(video/\\|audio/\\|application/ogg\\)"
   "Always use external browser for specified content-type."
@@ -1118,12 +1124,12 @@ Differences in #targets are ignored."
         (message "Bookmarked %s (%s)" eww-current-url eww-current-title))))
 
 (defun eww-write-bookmarks ()
-  (with-temp-file (expand-file-name "eww-bookmarks" user-emacs-directory)
+  (with-temp-file (expand-file-name "eww-bookmarks" eww-bookmarks-directory)
     (insert ";; Auto-generated file; don't edit\n")
     (pp eww-bookmarks (current-buffer))))
 
 (defun eww-read-bookmarks ()
-  (let ((file (expand-file-name "eww-bookmarks" user-emacs-directory)))
+  (let ((file (expand-file-name "eww-bookmarks" eww-bookmarks-directory)))
     (setq eww-bookmarks
           (unless (zerop (or (nth 7 (file-attributes file)) 0))
             (with-temp-buffer