From 544d5ff994a2a7d4b5c4ad552c481061f74bbb03 Mon Sep 17 00:00:00 2001 From: 10sr <8slashes+git@gmail.com> Date: Mon, 6 Feb 2012 08:36:53 +0900 Subject: [PATCH] fix prefs around gauche --- emacs.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/emacs.el b/emacs.el index 83ca86d..a4f0b52 100644 --- a/emacs.el +++ b/emacs.el @@ -975,6 +975,13 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." (lambda () (define-key scheme-mode-map "\C-c\C-b" 'scheme-send-buffer))) +(add-hook 'inferior-scheme-mode-hook + (lambda () + (set-window-text-height (display-buffer (current-buffer) + t) + 7) + )) + ;; http://d.hatena.ne.jp/kobapan/20090305/1236261804 ;; http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el @@ -982,12 +989,12 @@ return nil if LIB unfound and downloading failed, otherwise the path of LIB." "http://www.katch.ne.jp/~leque/software/repos/gauche-mode/gauche-mode.el" t) (setq auto-mode-alist - (cons '("\.scm$" . gauche-mode) auto-mode-alist)) + (cons '("\.gosh$" . gauche-mode) auto-mode-alist)) (autoload 'gauche-mode "gauche-mode" "Major mode for Scheme." t) (autoload 'run-scheme "gauche-mode" "Run an inferior Scheme process." t) (add-hook 'gauche-mode-hook (lambda () - (define-key scheme-mode-map "\C-c\C-z" 'run-gauche-other-window)))) + (define-key gauche-mode-map "\C-c\C-z" 'run-gauche-other-window)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; recentf-mode