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

View File

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