[elpa] externals/tempel 52d8556c05 57/82: Improve annotation function

[ELPA Syncer]

branch: externals/tempel
commit 52d8556c05025f9ebdc5dd27804b2bb734b2615b
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>

    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)