[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#19663: 24.4: eww.el delete entry from history list
From: |
Boruch Baum |
Subject: |
bug#19663: 24.4: eww.el delete entry from history list |
Date: |
Fri, 23 Jan 2015 10:57:24 -0500 |
User-agent: |
Mozilla/5.0 (X11; Linux x86_64; rv:31.0) Gecko/20100101 Icedove/31.3.0 |
I found it desirable to be able to delete entries from the history list.
Following is the code that seems to work for me:
(defun eww-history-delete-entry ()
"Delete an entry from the eww history list"
(interactive)
(cond
((equal (buffer-name) "*eww history*")
(setq
current-point (point)
current-line (- (line-number-at-pos (point-max))
(line-number-at-pos)))
(with-current-buffer "*eww*"
(setq eww-history (append
(butlast eww-history current-line)
(last eww-history (1- current-line))))
eww-history-position
(min eww-history-position (1- current-line))
(eww-list-histories)
(goto-char current-point)))
((equal (buffer-name) "*eww*")
(setq
current-entry (- (length eww-history)
eww-history-position)
eww-history (append
(butlast eww-history current-entry)
(last eww-history (1- current-entry))))
(when (eq current-entry 1)
(setq eww-history-position (1- eww-history-position))\
)
(eww-restore-history
(elt eww-history eww-history-position))
(when (get-buffer "*eww history*")
(eww-list-histories)))
(t
(user-error "Current buffer is neither the eww buffer, \
nor the eww history buffer"))))
--
hkp://keys.gnupg.net
CA45 09B5 5351 7C11 A9D1 7286 0036 9E45 1595 8BC0
signature.asc
Description: OpenPGP digital signature
- bug#19663: 24.4: eww.el delete entry from history list,
Boruch Baum <=