From 5fd5ed4afe8df6b1c7c1f6801a7528486fee2fe8 Mon Sep 17 00:00:00 2001 From: "Jose A. Ortega Ruiz" Date: Sat, 31 Jul 2010 23:39:21 +0200 Subject: [PATCH] FUEL: fix for listener's misbehaviour in the presence of output. --- misc/fuel/fuel-listener.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/misc/fuel/fuel-listener.el b/misc/fuel/fuel-listener.el index e4dbc3fc9e..9105beac31 100644 --- a/misc/fuel/fuel-listener.el +++ b/misc/fuel/fuel-listener.el @@ -243,7 +243,7 @@ the vocabulary name." "Major mode for interacting with an inferior Factor listener process. \\{fuel-listener-mode-map}" (set (make-local-variable 'comint-prompt-regexp) fuel-con--prompt-regex) - (set (make-local-variable 'comint-use-prompt-regexp) t) + (set (make-local-variable 'comint-use-prompt-regexp) nil) (set (make-local-variable 'comint-prompt-read-only) fuel-listener-prompt-read-only-p) (fuel-listener--setup-completion) @@ -261,7 +261,8 @@ the vocabulary name." (define-key fuel-listener-mode-map "\C-cv" 'fuel-edit-vocabulary) (define-key fuel-listener-mode-map "\C-c\C-v" 'fuel-edit-vocabulary) (define-key fuel-listener-mode-map "\C-ck" 'fuel-run-file) -(define-key fuel-listener-mode-map (kbd "TAB") 'fuel-completion--complete-symbol) +(define-key fuel-listener-mode-map (kbd "TAB") + 'fuel-completion--complete-symbol) (provide 'fuel-listener)