FUEL: support for the $sequence help syntax

diff --git a/misc/fuel/fuel-markup.el b/misc/fuel/fuel-markup.el
index 60e053d9fd4c197c3a82427c5187c195b01a55cc..df72299c393bf34f8022a9d33780ea70bea26ffb 100644 (file)
--- a/misc/fuel/fuel-markup.el
+++ b/misc/fuel/fuel-markup.el
@@ -128,6 +128,7 @@
     ($low-level-note . fuel-markup--low-level-note)
     ($markup-example . fuel-markup--markup-example)
     ($maybe . fuel-markup--maybe)
+    ($sequence . fuel-markup--sequence)
     ($methods . fuel-markup--methods)
     ($next-link . (lambda (e) (fuel-markup--prefixed-link "Next:" e)))
     ($nl . fuel-markup--newline)
@@ -500,6 +501,13 @@
   (fuel-markup--instance (cons '$instance (cdr e)))
   (insert " or f "))
 
+(defun fuel-markup--sequence (e)
+  (insert "a ")
+  (fuel-markup--link (list '$link 'sequence 'sequence 'word))
+  (insert " of ")
+  (fuel-markup--print (cadr e))
+  (insert "s"))
+
 (defun fuel-markup--or (e)
   (let ((fst (car (cdr e)))
         (mid (butlast (cddr e)))