The Lambda Lab
/
projects
/
elpher.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
58919c6
)
Fixed bugs introduced by last commit.
author
plugd
<plugd@thelambdalab.xyz>
Tue, 20 Jul 2021 15:20:07 +0000
(17:20 +0200)
committer
plugd
<plugd@thelambdalab.xyz>
Tue, 20 Jul 2021 15:20:07 +0000
(17:20 +0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
e5a9d09
..
a107f07
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-366,7
+366,7
@@
address refers to, via the table `elpher-type-map'."
For gopher addresses this is a combination of the selector type and selector."
(if (symbolp address)
nil
For gopher addresses this is a combination of the selector type and selector."
(if (symbolp address)
nil
- (url-unhex (url-filename address))))
+ (url-unhex
-string
(url-filename address))))
(defun elpher-address-host (address)
"Retrieve host from ADDRESS object."
(defun elpher-address-host (address)
"Retrieve host from ADDRESS object."
@@
-390,7
+390,7
@@
If no address is defined, returns 0. (This is for compatibility with the URL li
(defun elpher-address-gopher-p (address)
"Return non-nill if ADDRESS object is a gopher address."
(and (not (elpher-address-special-p address))
(defun elpher-address-gopher-p (address)
"Return non-nill if ADDRESS object is a gopher address."
(and (not (elpher-address-special-p address))
- (member (elpher-address-protocol address) '("gopher
gophers"))))
+ (member (elpher-address-protocol address) '("gopher
" "
gophers"))))
(defun elpher-gopher-address-selector (address)
"Retrieve gopher selector from ADDRESS object."
(defun elpher-gopher-address-selector (address)
"Retrieve gopher selector from ADDRESS object."