From 4ba2c5edafc6a6d1e14925e63bc1c9f20d109197 Mon Sep 17 00:00:00 2001
From: Phil Dawes <phil@phildawes.net>
Date: Wed, 14 Oct 2009 19:04:16 +0100
Subject: [PATCH] fuel: help subsections now work again
---
misc/fuel/fuel-markup.el | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/misc/fuel/fuel-markup.el b/misc/fuel/fuel-markup.el
index cc788fe5dc..b9095a39bb 100644
--- a/misc/fuel/fuel-markup.el
+++ b/misc/fuel/fuel-markup.el
@@ -134,6 +134,7 @@
($strong . fuel-markup--strong)
($subheading . fuel-markup--subheading)
($subsection . fuel-markup--subsection)
+ ($subsections . fuel-markup--subsections)
($synopsis . fuel-markup--synopsis)
($syntax . fuel-markup--syntax)
($table . fuel-markup--table)
@@ -224,6 +225,13 @@
(fuel-markup--link (cons '$link (cdr e)))
(fuel-markup--maybe-nl))
+(defun fuel-markup--subsections (e)
+ (dolist (link (cdr e))
+ (fuel-markup--insert-nl-if-nb)
+ (insert " - ")
+ (fuel-markup--link (list '$link link))
+ (fuel-markup--maybe-nl)))
+
(defun fuel-markup--vocab-subsection (e)
(fuel-markup--insert-nl-if-nb)
(insert " - ")