branch: externals/tempel
commit 52d8556c05025f9ebdc5dd27804b2bb734b2615b
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Improve annotation function
---
tempel.el | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/tempel.el b/tempel.el
index aa03aab2cd..336dafa84e 100644
--- a/tempel.el
+++ b/tempel.el
@@ -117,13 +117,12 @@ may be named with `tempel--name' or carry an evaluatable
Lisp expression
(defun tempel--print-element (elt)
"Return string representation of template ELT."
(pcase elt
- ('nil nil)
- (`(q . ,_) nil)
((pred stringp) elt)
+ ((or 'nil `(q . ,_)) nil)
(`(s ,name) (symbol-name name))
(`(,(or 'p 'P) ,_ ,name . ,noinsert)
(and (not (car noinsert)) (symbol-name name)))
- ((or 'n 'n>) " ")
+ ((or 'n 'n> '> '& '% 'o) " ")
(_ "_")))
(defun tempel--annotate (templates width ellipsis sep name)
