From 731361d07a1bb48347e2aa970b54260eb1f9f871 Mon Sep 17 00:00:00 2001 From: "Jose A. Ortega Ruiz" Date: Sat, 6 Dec 2008 07:34:11 +0100 Subject: [PATCH] FUEL: Oops, fix previous patch. --- extra/fuel/fuel.factor | 2 +- misc/fuel/README | 2 +- misc/fuel/fuel-listener.el | 4 ++++ 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/extra/fuel/fuel.factor b/extra/fuel/fuel.factor index 357e7508f4..d8a363ca71 100644 --- a/extra/fuel/fuel.factor +++ b/extra/fuel/fuel.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors arrays classes.tuple compiler.units continuations debugger -eval io io.streams.string kernel listener listener.private +definitions eval io io.files io.streams.string kernel listener listener.private make math namespaces parser prettyprint quotations sequences strings vectors vocabs.loader ; diff --git a/misc/fuel/README b/misc/fuel/README index 817695f626..078490abfd 100644 --- a/misc/fuel/README +++ b/misc/fuel/README @@ -52,7 +52,7 @@ Quick key reference - M-. : edit word at point in Emacs - - C-C-r, C-cC-er : eval region + - C-cr, C-cC-er : eval region - C-M-r, C-cC-ee : eval region, extending it to definition boundaries - C-M-x, C-cC-ex : eval definition around point diff --git a/misc/fuel/fuel-listener.el b/misc/fuel/fuel-listener.el index 958c589220..c741a77a5d 100644 --- a/misc/fuel/fuel-listener.el +++ b/misc/fuel/fuel-listener.el @@ -113,8 +113,12 @@ buffer." \\{fuel-listener-mode-map}" (set (make-local-variable 'comint-prompt-regexp) fuel-listener--prompt-regex) + (set (make-local-variable 'comint-prompt-read-only) t) (fuel-listener--startup)) +;; (define-key fuel-listener-mode-map "\C-w" 'comint-kill-region) +;; (define-key fuel-listener-mode-map "\C-k" 'comint-kill-whole-line) + (provide 'fuel-listener) ;;; fuel-listener.el ends here