Hatena::Groupsicp

kdmsnrの日記 - 初心者なので最初から淡々と読むよ このページをアンテナに追加 RSSフィード

2008-01-09

Emacs

19:27 |  Emacs - kdmsnrの日記 - 初心者なので最初から淡々と読むよ を含むブックマーク はてなブックマーク -  Emacs - kdmsnrの日記 - 初心者なので最初から淡々と読むよ  Emacs - kdmsnrの日記 - 初心者なので最初から淡々と読むよ のブックマークコメント

;; gauche
(setq process-coding-system-alist
      (cons '("gosh" utf-8 . utf-8) process-coding-system-alist))
(autoload 'scheme-mode "cmuscheme" "Major mode for Scheme." t)
(autoload 'run-scheme "cmuscheme" "Run an inferior Scheme process." t)
(setq scheme-program-name "gosh -i")
(defun scheme-other-frame ()
  "Run scheme on other frame"
  (interactive)
  (switch-to-buffer-other-frame
   (get-buffer-create "*scheme*"))
  (run-scheme scheme-program-name))
(defun scheme-other-window ()
  "Run scheme on other window"
  (interactive)
  (switch-to-buffer-other-window
   (get-buffer-create "*scheme*"))
  (run-scheme scheme-program-name))
(defun gauche-info ()
  (interactive)
  (switch-to-buffer-other-frame
   (get-buffer-create "*info*"))
  (info
   "/usr/local/info/gauche-refj.info.gz"))
(define-key global-map
  "\C-xS" 'scheme-other-frame)
(define-key global-map
  "\C-cS" 'scheme-other-window)
(define-key global-map
  "\C-cI" 'gauche-info)
 C-c C-c                scheme-compile-definition-and-go
 C-c C-e                scheme-send-definition
 C-c C-k                scheme-compile-file
 C-c C-l                scheme-load-file
 C-c C-r                scheme-send-region
 C-c C-t                scheme-trace-procedure
 C-c C-x                scheme-expand-current-form
 C-c C-z                switch-to-scheme
 C-c ESC                Prefix Command

 C-x C-e                scheme-send-last-sexp

 C-M-q                  indent-sexp
 C-M-x                  scheme-send-definition

 C-c M-c                scheme-compile-definition
 C-c M-e                scheme-send-definition-and-go
 C-c M-r                scheme-send-region-and-go