<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 on my PC
;;; by Gary T. Leavens <leavens@cs.iastate.edu>
;;;
;;; Last update $Date: 2015/01/24 23:04:28 $

;;; My full name (you should change this if you're not me!)
(setq user-full-name "Gary T. Leavens")

;;; The following seems to be necessary to use RCS with cygwin on the PC
(setq user-login-name "leavens")

(load "to-ascii" t)

;;; Emacs diary (appointment book) and calendar, which uses the file ~/diary
;;;
; if you don't want it, then comment it out
;(add-hook 'diary-hook 'appt-make-list)
;(diary)

(defvar PC:CYGWINDIR "full path to the cygwin directory")
(if (getenv "CYGWIN")
    (setq PC:CYGWINDIR (concat "c:/" (getenv "CYGWIN")))
    (setq PC:CYGWINDIR "c:/cygwin64"))

;;; Erlang
(setq erlang-root-dir (concat PC:CYGWINDIR "/usr/local/erlang"))
(setq exec-path (cons (concat PC:CYGWINDIR "/usr/local/erlang/bin") exec-path))

;;; SML
(setq sml-program-name "c:/sml/bin/sml-cm.bat")

;;; Scheme

;; (setq scheme-program-name "sh -c d:/bin/scm342")
;; (setq scheme-program-name "~/scheme/scm/scm")


; 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 and later
(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 Info-directory-list (append
			   (list (concat PC:CYGWINDIR "/usr/info")
				 (concat PC:CYGWINDIR "/usr/local/emacs/info")
				 (concat PC:CYGWINDIR "/usr/local/info"))
			   Info-default-directory-list))

;(require 'aspectj-mode)

;(setq printer-name "//lpd.cs.iastate.edu/hplj9500ps-226")