From 67144d4a0df0b6264762db70b9d95aa2b45712d7 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Wed, 8 Feb 2012 12:14:51 +0900
Subject: [PATCH] fix python and gauche prefs for inferior process

---
 emacs.el | 39 ++++++++++++++++++++++++++-------------
 1 file changed, 26 insertions(+), 13 deletions(-)

diff --git a/emacs.el b/emacs.el
index f9ad918..380e9d5 100644
--- a/emacs.el
+++ b/emacs.el
@@ -573,20 +573,29 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
   (shell-command (buffer-substring-no-properties (point-at-bol)
                                                  (point))))
 
+(setq python-python-command (executable-find "python3"))
 (defun my-python-run-as-command ()
   ""
   (interactive)
-  (shell-command (concat python-command " " buffer-file-name)))
+  (shell-command (concat python-python-command " " buffer-file-name)))
+(defun my-python-display-python-buffer ()
+  ""
+  (interactive)
+  ;; (or python-buffer
+  ;;     (save-excursion
+  ;;       (run-python)))
+  (set-window-text-height (display-buffer python-buffer
+                                          t)
+                          7))
 
 (add-hook 'python-mode-hook
           (lambda ()
-            (define-key python-mode-map (kbd "C-c C-e") 'my-python-run-as-command)))
+            (define-key python-mode-map (kbd "C-c C-e") 'my-python-run-as-command)
+            (define-key python-mode-map (kbd "C-c C-b") 'my-python-display-python-buffer)))
 
 (add-hook 'inferior-python-mode-hook
           (lambda ()
-            (set-window-text-height (display-buffer (current-buffer)
-                                                    t)
-                                    7)
+            (my-python-display-python-buffer)
             (define-key inferior-python-mode-map (kbd "<up>") 'comint-previous-input)
             (define-key inferior-python-mode-map (kbd "<down>") 'comint-next-input)))
 
@@ -937,21 +946,24 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
   ""
   (interactive)
   (scheme-send-region (point-min) (point-max))
-  (set-window-text-height (display-buffer "*scheme*"
-                                          t)
-                          7)
+  (my-scheme-display-scheme-buffer)
   )
 
+(defun my-scheme-display-scheme-buffer ()
+  ""
+  (interactive)
+  (set-window-text-height (display-buffer scheme-buffer
+                                          t)
+                          7))
+
 (add-hook 'scheme-mode-hook
           (lambda ()
             nil))
 
 (add-hook 'inferior-scheme-mode-hook
           (lambda ()
-            (set-window-text-height (display-buffer "*scheme*")
-                                    7)
+            ;; (my-scheme-display-scheme-buffer)
             ))
-
 ;; http://d.hatena.ne.jp/kobapan/20090305/1236261804
 ;; http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el
 
@@ -966,8 +978,9 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB."
   (autoload 'run-scheme "gauche-mode" "Run an inferior Scheme process." t)
   (add-hook 'gauche-mode-hook
             (lambda ()
-              (define-key gauche-mode-map "\C-c\C-z" 'run-gauche-other-window)
-              (define-key scheme-mode-map "\C-c\C-c" 'scheme-send-buffer)
+              (define-key gauche-mode-map (kbd "C-c C-z") 'run-gauche-other-window)
+              (define-key scheme-mode-map (kbd "C-c C-c") 'scheme-send-buffer)
+              (define-key scheme-mode-map (kbd "C-c C-b") 'my-scheme-display-scheme-buffer)
               )))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;