<br />
<b>Deprecated</b>:  The each() function is deprecated. This message will be suppressed on further calls in <b>/home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php</b> on line <b>456</b><br />
;;; Local customization file for emacs under Windows 95 on my PC
;;; by Gary T. Leavens <leavens@cs.iastate.edu>
;;;
;;; Last update $Date: 1998/10/05 15:44:19 $


;;; Make following types of files use the Unix end of line conventions
(modify-coding-system-alist
 'file
 "\\.\\(scm\\|def\\|ltx\\|tex\\|texinfo\\|hs\\|lhs\\|txt\\|[Ch]\\|lh\\|jml\\|java\\|jml-refined\\|java-refined\\)$"
 'raw-text-unix)


;;; Hugs
(setq haskell-hugs-program-name "e:/unsup/hugs/hugs.exe")

;;; Scheme
;; Make the command M-x chez available in inferior-scheme-mode
(add-hook
 'inferior-scheme-mode-hook
 (function (lambda ()
	     (fset 'chez "(load \"~/src/scheme/chez-compat.scm\")")
	     )))

(setq process-coding-system-alist (cons '("scheme" . raw-text-unix)
					process-coding-system-alist))

(setq scheme-program-name "sh -c d:/bin/scm342")
; (setq scheme-program-name "~/scheme/scm/scm")


;;; The following is important for the Windows file system
;;; which uses ~ at the end of a name to control long file names!
(setq version-control t)

; use the windows "Exclamation" system sound instead of a beep
(set-message-beep 'Exclamation)

;;; from http://www.cs.washington.edu/homes/voelker/ntemacs.html#shell-bash
;;; You can get a version of bash with the Cygnus tools at
;;; http://www.cygnus.com/misc/gnu-win32. To use bash with Emacs, place
;;; the following in your startup file: 

;;; The following is specific to GNU Emacs 20.3
(defun my-shell-setup ()
      "For bash (cygwin 18) under Emacs 20"
      (setq comint-scroll-show-maximum-output 'this)
      (setq comint-completion-addsuffix t)
      ;; (setq comint-process-echoes t)
      (setq comint-eol-on-send t)
      (setq w32-quote-process-args ?\")
      (make-variable-buffer-local 'comint-completion-addsuffix))

(add-hook 'shell-mode-hook 'my-shell-setup)

(setq process-coding-system-alist (cons '("bash" . raw-text-unix)
					(cons '("shell" . raw-text-unix)
					process-coding-system-alist)))


;;; For Dragon Dictate Naturally Speaking Preferred Edition (3.52)
(delete-selection-mode)
(global-set-key [C-kp-home] 'beginning-of-buffer)
(global-set-key [C-kp-end] 'end-of-buffer)
(global-set-key [kp-home] 'beginning-of-line)
(global-set-key [kp-end] 'end-of-line)
(global-set-key [C-kp-left] 'backward-word)
(global-set-key [C-kp-right] 'forward-word)
(global-set-key [C-kp-up] '(lambda () (interactive) (forward-paragraph -1)))
(global-set-key [C-kp-down] 'forward-paragraph)
(global-set-key [kp-delete] 'delete-char)
(global-set-key [C-S-kp-left] (lambda () (interactive) (mark-word -1)))
(global-set-key [C-S-kp-right] 'mark-word)
(global-set-key "\C-z" 'advertised-undo)