branch: externals/ampc
commit ae4b876b8eb3bc27a7039472862c881c838b23d7
Author: Christopher Schmidt <christop...@ch.ristopher.com>
Commit: Christopher Schmidt <christop...@ch.ristopher.com>
Alias unspecified tags to "[Not Specified]".
---
ampc.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ampc.el b/ampc.el
index 90bfe6d788..7fa4611fef 100644
--- a/ampc.el
+++ b/ampc.el
@@ -1090,9 +1090,9 @@ This hook is called as the first thing when ampc is
started."
(ampc-set-dirty t)
(ecase (car ampc-type)
(tag
- (let* ((data (ampc-extract (cdr ampc-type) data-buffer))
+ (let* ((data (or (ampc-extract (cdr ampc-type) data-buffer)
+ "[Not Specified]"))
(member (and (cdr tree) (avl-tree-member (cdr tree) data))))
- (assert data)
(cond (member (setf tree member))
((cdr tree)
(setf member `(,data . nil))
