FUEL: Display of parsing words lists in help browser fixed.

db4
Jose A. Ortega Ruiz 2009-01-10 01:15:57 +01:00
parent 5c18951bf5
commit 86604af682
1 changed files with 3 additions and 3 deletions

View File

@ -373,10 +373,10 @@
(let ((heading `($heading ,(match-string-no-properties 0)))
(rows))
(forward-line)
(when (looking-at "Word *Stack effect$")
(push '("Word" "Stack effect") rows)
(when (looking-at "Word *\\(Stack effect\\|Syntax\\)$")
(push (list "Word" (match-string-no-properties 1)) rows)
(forward-line))
(while (looking-at "\\(.+?\\)\\( +\\(( .*\\)\\)?$")
(while (looking-at "\\(.+?\\)\\( +\\(.+\\)\\)?$")
(let ((word `($link ,(match-string-no-properties 1)
,(match-string-no-properties 1)
word))