dot.emacs sample fixed was Re: japanese configuration

[Mitsugu SAKAMOTO <mitsugu@argv.org>]

坂本です。

高橋@etlさんのアドバイスにしたがってサンプルのdot.emacsを修正しました。
後、Meadow1.14に向けてのcaret の設定もコメントで入れました。

それと、emacspeakを組み込むときにspeech rateが260に強制的に成っていたの
でこの部分を削除しました。

やっつけ仕事なので、正確化どうかわかりません。
;;; -*- emacs-lisp -*-
;;; sample .emacs for Bilingual Emacspeak for Windows
;;; 2000-2001
;;; written by M. Sakamoto
;;; modified by T. Watanabe

;;; hide menubar and toolbar
(menu-bar-mode -1)
(scroll-bar-mode -1)
(if (= emacs-major-version 21)
  (tool-bar-mode -1))

;; Japanese coding system

(set-language-environment "Japanese")

;;; setting microsoft IME
(mw32-ime-initialize)
(setq default-input-method "MW32-IME")

;;; Auto Fill Mode
(add-hook 'text-mode-hook
	(function (lambda ()
		(auto-fill-mode 1)
		(setq fill-column 72)
)))
		      

;; misc
;(setq make-backup-files t)
;(setq auto-save-default t)
;(setq tab-width 4)
;; mode-line
;(line-number-mode 1)
;(column-number-mode 1)
;(display-time)
;;; If you use emacs21 For later
(setq next-line-add-newlines t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Setting emacspeak
(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/share/emacs/site-lisp/emacspeak/lisp/emacspeak-setup.el")))

(load-emacspeak) ; start emacspeak automatically

;; some usuful commands 
;(dtk-set-rate 260 1) ; set default-speech-rate globally
;(emacspeak-toggle-auditory-icons) ; toggle auditory-icons (need play.exe)

;;; if Use Meadow For Screenreader 
;(set-cursor-type 'hairline-caret)