procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(eww-history-limit): New variable.

Browse source 
* net/eww.el (eww-history-limit): New variable.
(eww-save-history): Use it.
This commit is contained in:
Ivan Shmakov 2014-11-19 18:28:19 +01:00 • committed by Lars Magne Ingebrigtsen
parent a8995cae4c
commit 8d5bfc4900
2 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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'.

9
lisp/net/eww.el
View file

@ -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 ()