From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Boruch Baum Newsgroups: gmane.emacs.bugs Subject: bug#19663: 24.4: eww.el delete entry from history list Date: Fri, 23 Jan 2015 10:57:24 -0500 Message-ID: <54C26F64.4030007@gmx.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="uQoNi24lFNKfmpJfmehdAtT8uGKMn5spC" X-Trace: ger.gmane.org 1422028696 9359 80.91.229.3 (23 Jan 2015 15:58:16 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 23 Jan 2015 15:58:16 +0000 (UTC) To: 19663@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Jan 23 16:58:15 2015 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1YEgcf-0004PM-LQ for geb-bug-gnu-emacs@m.gmane.org; Fri, 23 Jan 2015 16:58:13 +0100 Original-Received: from localhost ([::1]:60089 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YEgcf-0006Jo-4B for geb-bug-gnu-emacs@m.gmane.org; Fri, 23 Jan 2015 10:58:13 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:33645) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YEgcc-0006Ji-87 for bug-gnu-emacs@gnu.org; Fri, 23 Jan 2015 10:58:11 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YEgcU-0004ne-O4 for bug-gnu-emacs@gnu.org; Fri, 23 Jan 2015 10:58:10 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:35777) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YEgcU-0004na-Ki for bug-gnu-emacs@gnu.org; Fri, 23 Jan 2015 10:58:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1YEgcU-0004OQ-6Y for bug-gnu-emacs@gnu.org; Fri, 23 Jan 2015 10:58:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Boruch Baum Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 23 Jan 2015 15:58:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 19663 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.142202863016821 (code B ref -1); Fri, 23 Jan 2015 15:58:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 23 Jan 2015 15:57:10 +0000 Original-Received: from localhost ([127.0.0.1]:54469 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YEgbd-0004NF-J7 for submit@debbugs.gnu.org; Fri, 23 Jan 2015 10:57:09 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:59940) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1YEgbb-0004N1-HY for submit@debbugs.gnu.org; Fri, 23 Jan 2015 10:57:07 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YEgbV-0004MB-AJ for submit@debbugs.gnu.org; Fri, 23 Jan 2015 10:57:02 -0500 Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:59067) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YEgbV-0004M7-7A for submit@debbugs.gnu.org; Fri, 23 Jan 2015 10:57:01 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:33428) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YEgbU-0006HQ-8q for bug-gnu-emacs@gnu.org; Fri, 23 Jan 2015 10:57:01 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YEgbP-0004LQ-4t for bug-gnu-emacs@gnu.org; Fri, 23 Jan 2015 10:57:00 -0500 Original-Received: from mout.gmx.com ([74.208.4.201]:55613) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YEgbO-0004LH-V1 for bug-gnu-emacs@gnu.org; Fri, 23 Jan 2015 10:56:55 -0500 Original-Received: from [10.66.172.112] ([47.21.4.242]) by mail.gmx.com (mrgmxus001) with ESMTPSA (Nemesis) id 0MbxZo-1XxYtH060k-00JGoQ for ; Fri, 23 Jan 2015 16:56:53 +0100 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:31.0) Gecko/20100101 Icedove/31.3.0 OpenPGP: url=hkp://keys.gnupg.net X-Provags-ID: V03:K0:QPW4drOEUZhbDWv0G19NAOYEQ5IuDENXh3/p7ntjCT0YLeUCRqB BPxHktz9FZZIpjDWgXxCREhFlIW4XqoZbY6bXWI8obcXNHkDewxn8pPfjcu/ZW97NPDXm5K Z6nxJmNB6P/y8D0uA9pTeNojBQ3zQ5yPGuuqr0aPakECfcCzyK5gees/l+zgrk56SAfXXmc pRCPqL8JNlZ7ISamteHnQ== X-UI-Out-Filterresults: notjunk:1; X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x [generic] X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:98633 Archived-At: This is an OpenPGP/MIME signed message (RFC 4880 and 3156) --uQoNi24lFNKfmpJfmehdAtT8uGKMn5spC Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable 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")))) --=20 hkp://keys.gnupg.net CA45 09B5 5351 7C11 A9D1 7286 0036 9E45 1595 8BC0 --uQoNi24lFNKfmpJfmehdAtT8uGKMn5spC Content-Type: application/pgp-signature; name="signature.asc" Content-Description: OpenPGP digital signature Content-Disposition: attachment; filename="signature.asc" -----BEGIN PGP SIGNATURE----- Version: GnuPG v1 iQIcBAEBAgAGBQJUwm9kAAoJEDvrUfDmCx9LDKIQAJO+zpP5enDYjfjgNge2j3dU 1b7530+MgQ7uTQBR4SOLieNvT7lZ+Jm7bXrbXkq6uzUAmCah3q4Ozoz+visIW39f HtfgsLm8PWmxx5l90j/+QPgMlOdqaCs9NIKutUd3/N6Tb7jK99RxCOoC6jTQxcKY /inofWc1l4deqyOZIatHvHpam2kCaV8T9H50ewnQHHzRYzYh18cVzyB8g/zgR+HD tQjauZmEEdoRSW+BiTW2YVaAz5HYiNHtP3HjMRBABd6uW5AJtFqbhSWPPKbLTVr+ lUIk0PCQCwqDHOqd5RdVuA7YOEGR9lVQh2xYDL1VyXmbN+g7tcHCwm6+HyStDxnJ fZ0dMOit3v9WZk5T17wFrKEJdPR6Xjz+ne/plIIasFxr5uMT/7+w5lcxXuFL5h4Y 19fvUi0m2AUPHcZnIgEqePtxLINYZNn7aSLvbAk4XYsQsG6nEd9AOS25wLWSziXc OtJBNbX8ISIXDWL7XcS+G1/eE9gwa4l/jQZ8wiWK/sGEc2QPJWwoZ53bxYXdMKUz bKwe8Rnr+qbuYXYQi7ut4vMxXUsU3Z4/g5mnBKO/iAof7/1VdKo6Md9Ayolim8Mp ZLCr/DP39HTSmhC0GIPvrjixeF1dXsxgbQS3GGCYwng4CVxB3GeNW2Qgo8lQ3tm7 0OliyL/WP7S6kBzJdmhx =IfQ5 -----END PGP SIGNATURE----- --uQoNi24lFNKfmpJfmehdAtT8uGKMn5spC--