From cd9b67cb840e9a4a17d95dcea12924448de69e9b Mon Sep 17 00:00:00 2001 From: plugd Date: Tue, 10 Aug 2021 09:50:10 +0200 Subject: [PATCH] Fixed gopher type predicate function. --- ISSUES.org | 10 +++++++--- elpher.el | 2 +- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/ISSUES.org b/ISSUES.org index b1556a0..69df28e 100644 --- a/ISSUES.org +++ b/ISSUES.org @@ -130,9 +130,6 @@ this can happen: - [X] shift history out of node tree and into separate stack - [ ] make history stack variables buffer-local - [ ] have elpher-with-clean-buffer select appropriate buffer - -** OPEN Replace support for user-specified starting pages -This used to be available, but was removed during a refactor. ** OPEN Make installing existing certificates easier :LOGBOOK: @@ -304,3 +301,10 @@ call is just incredibly slow for some bizarre reason. Happily, (url-portspec) is functionally equivalent and is orders of magnitude faster. With this replacement, loading the above page takes ~2s and there aren't any other hotspots. + + +** CLOSED Replace support for user-specified starting pages +:LOGBOOK: +- State "CLOSED" from "OPEN" [2021-08-09 Mon 17:46] +:END: +This used to be available, but was removed during a refactor. diff --git a/elpher.el b/elpher.el index c6627df..68a3c2a 100644 --- a/elpher.el +++ b/elpher.el @@ -424,7 +424,7 @@ address refers to, via the table `elpher-type-map'." (defun elpher-address-gopher-p (address) "Return non-nill if ADDRESS object is a gopher address." - (eq 'gopher (elpher-address-type address))) + (pcase (elpher-address-type address) (`(gopher ,_) t))) (defun elpher-address-protocol (address) "Retrieve the transport protocol for ADDRESS." -- 2.20.1