Re: dot.emacs sample fixed

[Mitsugu SAKAMOTO <mitsugu@argv.org>]

坂本です。

っと言うことで、webに有るサンプルを書き換えました。

いっぱいコメントとかも書いたので、パッチでなくて本体です。

#altにメニューバーを割り当てる設定は忘れたので、書いてないです。
;;; -*- emacs-lisp -*-
;;; sample .emacs for Bilingual Emacspeak for Windows
;;; 2000-2001
;;; written by Mitsugu SAKAMOTO <mitsugu@...>

;;; 日本語関係の必須設定
(set-language-environment "Japanese")

;;; マイクロソフトIMEを使う設定
(mw32-ime-initialize)
(setq default-input-method "MW32-IME")

;;; Auto Fill Mode-- 72桁で折り返します
(add-hook 'text-mode-hook
	(function (lambda ()
		(auto-fill-mode 1)
		(setq fill-column 72)
)))
		      
;;; 印刷用の設定
(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))))

;; バックアップを作らない
;(setq make-backup-files nil)
;;auto-saveをしない
;(setq auto-save-default nil)
;;タブ幅を４桁にする
;(setq tab-width 4)

;;; モードラインの設定
;;モードラインに行番号を表示
;(line-number-mode 1)
;;モードラインに桁位置を表示
;(column-number-mode 1)
;;モードラインに時計を表示
;(display-time)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 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")))
(load-emacspeak) ; BEPを起動する

;;;その他のBEP関連の設定
;;発生速度を260WPMにする
;(dtk-set-rate 260 1) ; set default-speech-rate globally
;;;auditory Iconをonにする
;(emacspeak-toggle-auditory-icons)

;;; シェルの設定---Bashを使用する
;(setq explicit-shell-file-name "bash.exe")
;(setq shell-file-name "sh.exe")
;(setq shell-command-option "-c")
;(add-hook 'shell-mode-hook
;	  (lambda ()
;	    (set-buffer-process-coding-system 'undecided-dos 'sjis-unix)))

;;;カーソルを縦棒にする
;;;outSPOKEN等のスクリーンリーダーで使用する。(ただしMeadow 1.14以上が必要。)
;(set-cursor-type 'hairline-caret)

;;; マウスカーソルを消す
;(setq w32-hide-mouse-on-key t) 
;(setq w32-hide-mouse-timeout 1000)