d5884

  ;; mozc のステータス取得系
  (defvar ini:mozc-status-alist nil
    "`mozc-mode' の状態を表す alist.")

  (defconst ini:mozc-status-default-mode
    (if (memq system-type '(windows-nt cygwin)) 'direct 'hiragana)
    "`mozc-mode' の初期変換モード.")

  (defadvice mozc-mode (after ini:mozc-status-init activate)

d5884

;; windows drive mapper for emacs on cygwin

(add-to-list 'file-name-handler-alist
	     '("\\<[a-zA-Z]:" . w32-map-drive))

(defun w32-map-drive (operation &rest args)
  (let ((fn (get operation 'w32-map-drive)))
    (if fn
	(apply fn args)
      (w32-map-drive-run-real-handler operation args))))

d5884

toolScripts.afterPowerOn = "FALSE"
toolScripts.afterResume = "FALSE"
toolScripts.beforePowerOff = "FALSE"
toolScripts.beforeSuspend = "FALSE"