Fixed gopher type predicate function.

diff --git a/ISSUES.org b/ISSUES.org
index b1556a0..69df28e 100644 (file)
--- 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 
 - [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:
    
 ** 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.
 (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 (file)
--- 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."
 
 (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."
 
 (defun elpher-address-protocol (address)
   "Retrieve the transport protocol for ADDRESS."