Re: BEP公開の反響

[Mitsugu SAKAMOTO <mitsugu@argv.org>]

坂本です。
webを頼りにgetしなおしていろいろやってみました。
記述しておいたほうがよさそうなところがいくつかあります。

(1)英語のmsのエンジンは必須の用です。入っていないと日本語すらしゃべりま
せん。
(2)wwwに
---
またProTALKERがなくても、SAPI対
応の日本語エンジンがパソコンに入っていれば、とりあえずそいつが代わりに喋っ
てくれます。
---

dtalkerでやってみましたが、速度の調節などがまったく反映されません。この
記述はまずいかも。初心者が混乱するかも知れません。

それとsampleのdot.emacsですが、font-lockでerrorが出ます。
起動すると

Fontifying *scratch*...
Fontifying *scratch*... (regexps............)

といわれます。
で、最低限必要な設定です。渡辺さんこちらに差し替えていただけますか？
;;; -*- emacs-lisp -*-
;;; sample .emacs for Bilingual Emacspeak for Windows
;;; 2000-2001
;;; written by M. Sakamoto
;;; modified by T. Watanabe

;;; Japanese coding system

(set-language-environment "Japanese")
(setq-default buffer-file-coding-system 'sjis-dos)
(set-terminal-coding-system 'sjis)
(set-keyboard-coding-system 'sjis)
(set-clipboard-coding-system 'sjis-dos)
(set-w32-system-coding-system 'sjis-dos)

;;; 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)
)))
		      
;;; print
(define-process-argument-editing
  "/notepad\\.exe\\'"
  (lambda (x) (general-process-argument-editing-function x nil t)))
(setq print-region-function
      '(lambda (start end &rest dummyargs)
	 (let ((tmpfile
		(unix-to-dos-filename
		 (concat (or (getenv "TMP") (getenv "TEMP")) "/"
			 (make-temp-name "L") ".tmp"))))
	   (if (file-exists-p tmpfile)
	       (signal 'file-error
		       '("temporary file exists!")))
	   (let ((coding-system-for-write 'sjis-dos))
	     (write-region start end tmpfile))
	   (call-process "notepad" nil nil nil "/p" tmpfile)
	   (delete-file tmpfile))))

;; 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)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Setting emacspeak
(defun load-emacspeak ()
  (interactive)
  (progn  (defvar dtk-speech-rate-step 20)
	  (defvar dtk-default-speech-rate 260) ; 180 is appropriate for the sighted
	  (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)