null-print

何も表示しない関数を作った。(置換しておくと便利かもしれない。)

(define (null-print x . y))
;;(replase-string "print" "null-print")のようにして使う。

.emacsに追加した。

(add-hook 'scheme-mode-hook 
	  '(lambda ()
	     (define-key scheme-mode-map "\C-c\C-n" (lambda () (interactive) (query-replace "print" "null-print")))
	     (define-key scheme-mode-map "\C-c\C-p" (lambda () (interactive) (query-replace "null-print" "print")))))

replase-stringで指定した範囲だけ変えられたらもっと楽なんだけど…