The Lambda Lab
/
projects
/
elpher.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed gopher type predicate function.
[elpher.git]
/
elpher.el
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."