Commit 8d5bfc49 authored by Ivan Shmakov's avatar Ivan Shmakov Committed by Lars Magne Ingebrigtsen
Browse files

(eww-history-limit): New variable.

* net/eww.el (eww-history-limit): New variable.
(eww-save-history): Use it.
parent a8995cae
2014-11-19 Ivan Shmakov <ivan@siamics.net>
* net/eww.el (eww-history-limit): New variable.
(eww-save-history): Use it.
2014-11-19 Lars Magne Ingebrigtsen <larsi@gnus.org>
* net/eww.el (eww-desktop-misc-data): Use `cl-remove-duplicates'.
......
......@@ -95,6 +95,12 @@ The string will be passed through `substitute-command-keys'."
:group 'eww
:type 'string)
(defcustom eww-history-limit 50
"Maximum number of entries to retain in the history."
:version "25.1"
:group 'eww
:type '(choice (const :tag "Unlimited" nil)
integer))
(defcustom eww-use-external-browser-for-content-type
"\\`\\(video/\\|audio/\\|application/ogg\\)"
"Always use external browser for specified content-type."
......@@ -1487,7 +1493,8 @@ Differences in #targets are ignored."
(setq eww-data (list :title ""))
;; Don't let the history grow infinitely. We store quite a lot of
;; data per page.
(when-let (tail (nthcdr 50 eww-history))
(when-let (tail (and eww-history-limit
(nthcdr eww-history-limit eww-history)))
(setcdr tail nil)))
(defun eww-list-histories ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment