From 1a384e5e01db6792b4a52c196c25d1945a246b9d Mon Sep 17 00:00:00 2001 From: "Jose A. Ortega Ruiz" Date: Wed, 7 Jan 2009 04:08:36 +0100 Subject: [PATCH] FUEL: Tidbits. --- extra/fuel/fuel.factor | 3 ++- misc/fuel/fuel-help.el | 6 +++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/extra/fuel/fuel.factor b/extra/fuel/fuel.factor index add0941807..60420b3c39 100644 --- a/extra/fuel/fuel.factor +++ b/extra/fuel/fuel.factor @@ -331,8 +331,9 @@ SYMBOL: vocab-list [ vocab-authors [ \ $authors prefix , ] when* ] [ vocab-tags [ \ $tags prefix , ] when* ] [ summary [ { $heading "Summary" } swap 2array , ] when* ] - [ name>> fuel-vocab-describe-words , ] + [ drop \ $nl , ] [ vocab-help [ article content>> % ] when* ] + [ name>> fuel-vocab-describe-words , ] [ name>> fuel-vocab-children-help % ] } cleave ] { } make 3array ; diff --git a/misc/fuel/fuel-help.el b/misc/fuel/fuel-help.el index d9e983d737..705d1469a2 100644 --- a/misc/fuel/fuel-help.el +++ b/misc/fuel/fuel-help.el @@ -129,7 +129,7 @@ (let ((cmd `(:fuel* (,def ,(if see 'fuel-word-see 'fuel-word-help)) "fuel" t))) (message "Looking up '%s' ..." def) - (let* ((ret (fuel-eval--send/wait cmd 2000)) + (let* ((ret (fuel-eval--send/wait cmd)) (res (fuel-eval--retort-result ret))) (if (not res) (message "No help for '%s'" def) @@ -138,7 +138,7 @@ (defun fuel-help--get-article (name label) (message "Retrieving article ...") (let* ((cmd `(:fuel* ((,name fuel-get-article)) "fuel" t)) - (ret (fuel-eval--send/wait cmd 2000)) + (ret (fuel-eval--send/wait cmd)) (res (fuel-eval--retort-result ret))) (if (not res) (message "Article '%s' not found" label) @@ -148,7 +148,7 @@ (defun fuel-help--get-vocab (name) (message "Retrieving help vocabulary for vocabulary '%s' ..." name) (let* ((cmd `(:fuel* ((,name fuel-vocab-help)) "fuel" (,name))) - (ret (fuel-eval--send/wait cmd 2000)) + (ret (fuel-eval--send/wait cmd)) (res (fuel-eval--retort-result ret))) (if (not res) (message "No help available for vocabulary '%s'" name)