steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: Fix for symbol words display in vocab help pages.

db4
Jose A. Ortega Ruiz 2009-01-07 03:03:20 +01:00
parent 3ee5772c88
commit 37760a0852
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
misc/fuel/fuel-markup.el
View File

@ -376,12 +376,12 @@
(when (looking-at "Word *Stack effect$") (when (looking-at "Word *Stack effect$")
(push '("Word" "Stack effect") rows) (push '("Word" "Stack effect") rows)
(forward-line)) (forward-line))
(while (looking-at "\\(.+?\\) +\\(( .*\\)?$") (while (looking-at "\\(.+?\\)\\( +\\(( .*\\)\\)?$")
(let ((word `($link ,(match-string-no-properties 1) (let ((word `($link ,(match-string-no-properties 1)
,(match-string-no-properties 1) ,(match-string-no-properties 1)
word)) word))
(se (and (match-string-no-properties 2) (se (and (match-string-no-properties 3)
`(($snippet ,(match-string-no-properties 2)))))) `(($snippet ,(match-string-no-properties 3))))))
(push `(,word ,@se) rows)) (push `(,word ,@se) rows))
(forward-line)) (forward-line))
(push `(,heading ($table ,@(reverse rows))) elems)) (push `(,heading ($table ,@(reverse rows))) elems))