[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: dot.emacs sample fixed
- To: bep@argv.org
- Subject: Re: dot.emacs sample fixed
- From: Mitsugu SAKAMOTO <mitsugu@argv.org>
- Date: Fri, 30 Mar 2001 22:14:06 +0900 (jst)
- Delivered-To: mailing list bep@argv.org
- Mailing-List: contact bep-help@argv.org; run by ezmlm
- Organization: Accessibility Research Group for the Visually impaired
坂本です。
From: Naoto Takahashi <ntakahas@...>
Subject: Re: dot.emacs sample fixed
Date: Fri, 30 Mar 2001 20:41:31 +0900 (JST)
> それから defvar を関数の中で実行するのはプログラミングスタイルとして勧
> められません。defvar は defun と同様、トップレベルに置くようにして下さ
> い。
直して見ました。こういう風になるのでしょうか？
--- dot.emacs.orig Fri Mar 30 22:06:28 2001
+++ dot.emacs Fri Mar 30 22:08:14 2001
@@ -54,10 +54,10 @@
;;; BEPの組み込み
(defun load-emacspeak ()
(interactive)
- (progn (defvar dtk-speech-rate-step 20)
- (setenv "EMACSPEAK_PLAY_PROGRAM" "play.exe")
- (setenv "DTK_TCL" "speak")
- (load-file "c:/usr/local/share/Meadow/site-lisp/emacspeak/lisp/emacspeak-setup.el")))
+ (setq dtk-speech-rate-step 20)
+ (setenv "EMACSPEAK_PLAY_PROGRAM" "play.exe")
+ (setenv "DTK_TCL" "speak")
+ (load-file "c:/usr/local/share/Meadow/site-lisp/emacspeak/lisp/emacspeak-setup.el"))
(load-emacspeak) ; BEPを起動する
;;;その他のBEP関連の設定