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:
f0b76ab
)
Report error on unsupported selector type.
author
Tim Vaughan
<tgvaughan@gmail.com>
Fri, 16 Aug 2019 14:07:35 +0000
(16:07 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Fri, 16 Aug 2019 14:07:35 +0000
(16:07 +0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
99c6f11
..
ea95aee
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-304,8
+304,12
@@
unless PRESERVE-PARENT is non-nil."
(if getter
(funcall getter)
(let* ((address (elpher-node-address node))
(if getter
(funcall getter)
(let* ((address (elpher-node-address node))
- (type (elpher-address-type address)))
- (funcall (car (alist-get type elpher-type-map))))))
+ (type (elpher-address-type address))
+ (type-record (alist-get type elpher-type-map)))
+ (if (listp type-record)
+ (funcall (car type-record))
+ (elpher-visit-parent-node)
+ (error "Unsupported gopher selector type '%c'" type)))))
(defun elpher-visit-parent-node ()
"Visit the parent of the current node."
(defun elpher-visit-parent-node ()
"Visit the parent of the current node."