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

FUEL: fix for listener's misbehaviour in the presence of output.

db4
Jose A. Ortega Ruiz 2010-07-31 23:39:21 +02:00
parent a4c37338fa
commit 5fd5ed4afe
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
misc/fuel/fuel-listener.el
View File

@ -243,7 +243,7 @@ the vocabulary name."
"Major mode for interacting with an inferior Factor listener process. "Major mode for interacting with an inferior Factor listener process.
\\{fuel-listener-mode-map}" \\{fuel-listener-mode-map}"
(set (make-local-variable 'comint-prompt-regexp) fuel-con--prompt-regex) (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) (set (make-local-variable 'comint-prompt-read-only)
fuel-listener-prompt-read-only-p) fuel-listener-prompt-read-only-p)
(fuel-listener--setup-completion) (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-cv" 'fuel-edit-vocabulary)
(define-key fuel-listener-mode-map "\C-c\C-v" '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 "\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) (provide 'fuel-listener)