Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
(setq default-frame-alist '((top . 2) (left . 300) (width . 80) (height . 60) (cursor-color . "yellow") (cursor-type . box) (foreground-color . "khaki") (background-color . "black") (font . "-*-Lucida Console-normal-r-normal-*-18-*"))) (setq initial-frame-alist '((top . 2) (left . 20))) (set-message-beep 'hand) (set-face-foreground 'region "#000000") (set-face-background 'region "#a0a0a0") (set-foreground-color "khaki") ;; for scroll bar (set-background-color "black") (set-cursor-color "yellow") (set-face-foreground 'default "khaki") (set-face-background 'default "black") (set-face-foreground 'modeline "black") (set-face-background 'modeline "burlywood") (font-lock-mode) ;; need this before fixing the colors below (set-face-foreground 'font-lock-comment-face "green1") (set-face-background 'font-lock-comment-face "black") (set-face-foreground 'font-lock-function-name-face "lime green") (set-face-foreground 'font-lock-variable-name-face "green yellow") (set-face-foreground 'font-lock-constant-face "red") (set-face-foreground 'font-lock-builtin-face "magenta") (set-face-foreground 'font-lock-type-face "azure4") (set-face-foreground 'font-lock-keyword-face "goldenrod") (set-face-foreground 'font-lock-string-face "DodgerBlue1") ;;; Color the heck out of things (global-font-lock-mode 1) (setq font-lock-auto-fontify t) (setq font-lock-support-mode 'lazy-lock-mode) (setq font-lock-maximum-decoration 3) ; was t not 3 ;;; Printing under NT (setq printer-name "//Firewall-pc1/hplj5-116") ;;;--------------------------------------------------------------------- ;;; Some cygwin customizations ;;;--------------------------------------------------------------------- ;; Cygwin doesn't provide the correct email and user full name values (setq user-mail-address "cclifton@cs.iastate.edu") (setq user-full-name "Curtis Clifton") ;; This assumes that Cygwin is installed in C:\cygwin (the ;; default) and that C:\cygwin\bin is not already in your ;; Windows Path (it generally should not be). ;; (setq exec-path (cons "C:/cygwin/bin" exec-path)) (setenv "PATH" (concat "C:\\cygwin\\bin;" (getenv "PATH"))) ;; ;; NT-emacs assumes a Windows command shell, which you change ;; here. ;; (setq process-coding-system-alist '(("bash" . undecided-unix))) (setq w32-quote-process-args ?\") (setq shell-file-name "bash") (setenv "SHELL" shell-file-name) (setq explicit-shell-file-name shell-file-name) ;; ;; This removes unsightly ^M characters that would otherwise ;; appear in the output of java applications. ;; (add-hook 'comint-output-filter-functions 'comint-strip-ctrl-m) ;;;************************************************ ;;; Begin ComS 342 customizations ;;;************************************************ ;;;; -*- emacs-lisp -*- Sample .emacs file for use in Com S 342 on HP-UX ;;;; $Id: sample-.emacs,v 1.14 1998/08/20 21:06:06 leavens Exp leavens $ ;;; This sets up emacs to run scheme, makes C-h the same as DEL, ;;; and makes help be on the key M-? (i.e., ESC ?). ;;; After intsalling this you can type ;;; ESC ? t ;;; for the emacs on-line tutorial. However, when reading the tutorial, ;;; remember to replace C-h by M-? everywhere. ;;; INSTRUCTIONS: copy this into your ~/.emacs file. ;;; However, if you are an emacs user already, ;;; you may want to integrate this into your existing .emacs file. ;;; Look especially at the optional customizations following how to run scheme. ;;; See the course staff if you have questions. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; The customization below is, we think, the best way to run Scheme locally. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Files mentioned below are found in "~/emacs" and "/usr/unsup/emacs". ;;; (setq load-path (cons "~/emacs" (cons "/usr/unsup/emacs" load-path))) ;;; Scheme program mode ;;; Tell emacs that files that end in .ss are Chez Scheme files. ;;; There already is a mapping for the suffix .scm. ;;; (add-to-list 'auto-mode-alist '("\\.ss$" . scheme-mode)) (add-to-list 'auto-mode-alist '("\\.def$" . scheme-mode)) (add-to-list 'auto-mode-alist '("\\.tst$" . scheme-mode)) (add-to-list 'auto-mode-alist '("\*scheme\*" . scheme-mode)) ;;; use cmuscheme instead of the standard scheme mode. ;;; (autoload 'run-scheme "cmuscheme" "Run Scheme in an emacs buffer." t) (autoload 'scheme-mode "cmuscheme" "Mode for Scheme programming and interaction" t) ;;; define special behavior that I want for scheme program files ;;; (setq scheme-mit-dialect nil) ;;; the following uses "/home/course/cs342/public/bin/scm342" ;;; as the scheme interpreter ;;; (setq scheme-program-name "/home/course/cs342/public/bin/scm342") ;;; Customize scheme mode ;;; (add-hook 'scheme-mode-hook (function (lambda () (define-key scheme-mode-map "\n" 'newline) (define-key scheme-mode-map "\r" 'newline-and-indent) (put 'variant-case 'scheme-indent-function 1) (if window-system (progn ;; Modify the font-locked keywords to include some used in EOPL ;; (The following is for GNU emacs 19.31) (if (= emacs-major-version 19) (setq scheme-font-lock-keywords '( ("\\(trustme!\\|(\\(variant-case\\|def\\(rep\\|type\\|ine-record\\(\\|-\\(type\\|polytype\\)\\)\\)\\|public\\|has-type\\(\\|-trusted\\)\\)\\>\\)" . 1) ("(\\(define\\(\\(\\|-\\(generic\\(\\|-procedure\\)\\|method\\)\\)\\|\\(-syntax\\)\\(-class\\)\\)\\)\\>[ ]*(?\\(\\sw+\\)?" (1 font-lock-keyword-face) (8 (cond ((match-beginning 3) font-lock-function-name-face) ((match-beginning 6) font-lock-variable-name-face) (t font-lock-type-face)) nil t)) ("(\\(and\\|begin\\|c\\(a\\(ll\\(-with-\\(current-continuation\\|input-file\\|output-file\\)\\|/cc\\)\\|se\\)\\|ond\\)\\|d\\(elay\\|o\\)\\|else\\|for-each\\|if\\|l\\(ambda\\|et\\(-syntax\\|\\*?\\|rec\\(\\|-syntax\\)\\)\\)\\|map\\|or\\|syntax\\(\\|-rules\\)\\)\\>" . 1) ("\\<<\\sw+>\\>" . font-lock-type-face) ("\\<:\\sw+\\>" . font-lock-reference-face)))) ;; turn on fancy coloring of scheme programs (optional) (font-lock-mode) ;; Modify the font-locked keywords to include some used in EOPL ;; (The following is for GNU emacs 20) (if (> emacs-major-version 19) (progn (setq font-lock-keywords (cons 't (cons '("\\(trustme!\\|(\\(variant-case\\|def\\(rep\\|type\\|ine-record\\(\\|-\\(type\\|polytype\\)\\)\\)\\|public\\|has-type\\(\\|-trusted\\)\\)\\>\\)" (1 font-lock-keyword-face)) (cdr font-lock-keywords)))) (font-lock-fontify-buffer))) )) (fset 'mine (lambda () (interactive) (setq scheme-program-name "mytypedscm"))) (fset 'oldtyped (lambda () (interactive) (setq scheme-program-name "oldtypedscm"))) (fset 'untyped (lambda () (interactive) (setq scheme-program-name "scm342untyped"))) (fset 'typed (lambda () (interactive) (setq scheme-program-name "scm342typed"))) ))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; The optional customizations below are generally helpful, ;;; but delete it or comment it out if you don't want it. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; The following disable key sequences that can cause ;;; big or unnoticed mistakes (put 'zap-to-char 'disabled t) ; M-z (put 'rmail-edit-current-message 'disabled 't) (global-unset-key "\C-x\C-u") ; C-x C-u (upcase-region) vs. C-x u (undo) (global-unset-key "\C-x\C-l") ; downcase of region can be disaster (global-unset-key "\C-xf") ; can use set-fill-column explicitly (global-unset-key "\C-z") ; can still suspend with C-x C-z ;;; I don't use emacs to change directories, just to get to files ;(setq find-file-run-dired nil) ; never run dired ;;; it's safer to not allow local variable lists to take effect automatically (setq enable-local-variables 'query) ;;; Setting new commands and key bindings (make it do what I want) ;;; Make backspace (BS) work as most people expect (thanks to Bob Glickstein) ;;; ; make BS delete characters backwards, just like DEL (global-set-key "\C-h" 'backward-delete-char-untabify) ; put help on M-? (i.e., ESC ?) (global-set-key "\M-?" 'help-command) ;;; key bindings that are useful especially for flow control (ISN, telnet), ;;; which sometimes eats all the C-s and C-q chars, ;;; and which I can live with all the time anyway. ;;; ;(global-set-key "\C-\\" 'isearch-forward) ;(global-set-key "\C-^" 'quoted-insert) ;(global-set-key "\M-s" 'isearch-forward-regexp) ;(define-key isearch-mode-map "\C-\\" 'isearch-repeat-forward) ;(define-key isearch-mode-map "\C-^" 'isearch-quote-char) ; turn off C-s and C-q on the following terminal types ; (see ~leavens/emacs/term/*.el) ;(enable-flow-control-on "vt100" "vt102") ;;; Other customizations ;;; Make files always end in a newline ;;; (setq require-final-newline 't) (add-to-list 'auto-mode-alist '("\\.def$" . scheme-mode)) ;;;************************************************ ;;; End ComS 342 customizations ;;;************************************************ ;;;--------------------------------------------------------------------- ;;; Ruby customizations ;;;--------------------------------------------------------------------- (autoload 'ruby-mode "ruby-mode.el" "Ruby editing mode." t) (setq auto-mode-alist (cons '("\\.rb$" . ruby-mode) auto-mode-alist)) (setq interpreter-mode-alist (cons '("ruby" . ruby-mode) interpreter-mode-alist)) (setq interpreter-mode-alist (cons '("expect" . tcl-mode) interpreter-mode-alist)) (setq default-major-mode 'text-mode) ;;;--------------------------------------------------------------------- ;;; Some macros and key bindings ;;;--------------------------------------------------------------------- (defun ccc-set-key (key function) "binds key to function using global-set-key and (not yet functional) adds an entry to an a-list that gives the key bindings for my customizations" (global-set-key key function) (add-to-list 'ccc-key-alist (cons key function))) ; !FIXME!finish a-list and map a key to display the a-list (defvar ccc-key-alist '() "an alist of my custom key bindings") ;; Key bindings (ccc-set-key [f1] 'compile) (ccc-set-key [f2] 'ccc-garys-emacs) (ccc-set-key [f3] 'dabbrev-expand) (ccc-set-key [f4] 'ccc-javadoc) (ccc-set-key [f5] '"\C-q\C-i") ; useful for tabs inside source (ccc-set-key [f7] 'ccc-string-newline) (ccc-set-key [f8] 'ccc-prejml) (ccc-set-key [f11] 'bury-buffer) (ccc-set-key [f12] nil) (ccc-set-key "\M-L" '"(type-check-and-eval-loop)") (ccc-set-key "\M-\C-l" 'goto-line) (ccc-set-key "\M-l" 'ccc-line) (ccc-set-key "\M-\C-f" 'ccc-fixme) (ccc-set-key "\C-x\C-c" 'ccc-save-buffers-kill-emacs) (defun ccc-save-buffers-kill-emacs (&optional arg) "Prompts whether the user wishes to exit emacs and, if so, gives the user the opportunity to save all file-visiting buffers." (interactive "*P") (if (yes-or-no-p "Really save your work and exit emacs? ") (save-buffers-kill-emacs))) (defun ccc-garys-emacs() "Load Gary's .emacs file, useful for pair programming" (interactive) (if (yes-or-no-p "Really switch to Gary's configuration? ") (load "c:\\cygwin\\home\\leavens\\.emacs") nil)) ;; Template definitions (require 'tempo) (defvar ccc-tags '() "an association list for my tempo templates") ;; ---------- (defun ccc-line (&optional arg) "Inserts a horizontal line" (interactive "*P") (tempo-template-ccc-line) nil) (tempo-define-template "ccc-line" '( "-------------------------------------------------------------" ) 'line "Inserts a horizontal line" 'ccc-tags) ;; ---------- (defun ccc-fixme (&optional arg) "Inserts a comment indicating code to be fixed" (interactive "*P") (push-mark (point)) (tempo-template-ccc-fixme) (exchange-point-and-mark) nil) (tempo-define-template "ccc-fixme" '( (indent-for-comment) " !FIXME!" (p "FIXME comment: ") ) 'fixme "Inserts a comment indicating code to be fixed" 'ccc-tags) ;; ---------- (defun ccc-braces (&optional arg) "Inserts a matching set of braces, properly indented, with point positioned inside the braces" (interactive "*P") (tempo-template-ccc-braces) nil) (tempo-define-template "ccc-braces" '( '> " {" 'n " " '> (push-mark (point)) 'n "}" '> 'n (exchange-point-and-mark) ) 'braces "Inserts a matching set of braces, properly indented, with point positioned inside the braces" 'ccc-tags) ;; ---------- (defun ccc-block-comment (&optional arg) "Inserts a block comment, properly indented, in the correct format for the major mode" (interactive "*P") (tempo-template-ccc-block-comment) nil) (tempo-define-template "ccc-block-comment" '( (beginning-of-line) '% comment-start (ccc-line) '> 'n comment-start (p "Block description:") '> 'n comment-start (ccc-line) '> 'n ) 'block-comment "Inserts a block comment, properly indented." 'ccc-tags) ;; ---------- (defun ccc-java-main (&optional arg) "Inserts a declaration for the standard Java main() entry point." (interactive "*P") (tempo-template-ccc-java-main) nil) (tempo-define-template "ccc-java-main" '( (end-of-line) '& "/**" '> 'n "* Command line entry point." '> 'n "*" '> 'n "* @param args " (p "args description:") " */" '> 'n "public static void main( String[] args )" (ccc-braces) ) 'java-main "Inserts a declaration for the standard Java main() entry point." 'ccc-tags) ;; ---------- (defun ccc-javadoc () "Inserts a declaration for an empty javadoc comment." (interactive) (tempo-template-ccc-javadoc) nil) (tempo-define-template "ccc-javadoc" '( (beginning-of-line) '% "/**" '> 'n "* " (p "Description: ")'> (push-mark (point)) 'n "*/" '> 'n (exchange-point-and-mark) ) 'javadoc "Inserts a declaration for an empty javadoc comment." 'ccc-tags) ;; ---------- (defun ccc-prejml (&optional arg) "Inserts a declaration for javadoc comment lines containing a JML annotation." (interactive "*P") (tempo-template-ccc-prejml) nil) (tempo-define-template "ccc-prejml" '( (end-of-line) '& "*" '> 'n "* <pre><jml>" '> 'n "*" '> (push-mark (point)) 'n "* </jml></pre>" '> 'n "*" '> (exchange-point-and-mark) ) 'prejml "Inserts a declaration for javadoc comment lines containing a JML annotation." 'ccc-tags) ;; ---------- (defun ccc-string-newline () "Inserts a string followed by a NEWLINE constant in a Java program. Useful for writing JUnit test cases" (interactive) (tempo-template-ccc-string-newline) nil) (tempo-define-template "ccc-string-newline" '( (end-of-line) '& "\"" (p "String: ") "\" + NEWLINE +" '> ) 'string-newline "Inserts a string followed by a NEWLINE constant in a Java program. Useful for writing JUnit test cases" 'ccc-tags) ;;;--------------------------------------------------------------------- ;;; Java mode foo ;;;--------------------------------------------------------------------- (add-to-list 'load-path (expand-file-name "~/emacs/jde/lisp")) (add-to-list 'load-path (expand-file-name "~/emacs/semantic")) (add-to-list 'load-path (expand-file-name "~/emacs/speedbar")) (add-to-list 'load-path (expand-file-name "~/emacs/elib")) (add-to-list 'load-path (expand-file-name "~/emacs/eieio")) (c-set-offset 'arglist-intro '+) (require 'overlay-fix) ;;(setq semantic-load-turn-everything-on t) (require 'semantic-load) (require 'eldoc) ;works around a bug when using ;non-compiled JDE (require 'jde) ;;; Increase the limit on number of Lisp variable bindings & ;;; unwind-protects. Allows semantic to parse more complex Java files (setq max-specpdl-size 1000) ;;; Allowing prompting for blanks in templates (setq tempo-interactive t) ;;; When opening .jml files use java mode (add-to-list 'auto-mode-alist '("\\.jml" . java-mode)) ;;; When opening .mj files use java mode (add-to-list 'auto-mode-alist '("\\.mj" . java-mode)) ;;; turn on pc-selection mode (pc-selection-mode) ;;; Load antlr-mode (autoload 'antlr-mode "antlr-mode" nil t) (setq auto-mode-alist (cons '("\\.g\\'" . antlr-mode) auto-mode-alist)) (add-hook 'speedbar-load-hook ; would be too late in antlr-mode.el (lambda () (speedbar-add-supported-extension ".g"))) ;;; Make expanded...g files default to read-only (add-hook 'antlr-mode-hook (function (lambda () (if (string-match "expanded.*\\.g" (buffer-name)) (toggle-read-only 1) nil)))) ;;; Some html mode stuff (add-to-list 'auto-mode-alist '("\\.shtml" . html-mode)) ;;; Load prolog mode ;;;(setq load-path (cons "Path" load-path)) ;(autoload 'run-prolog "prolog" "Start a Prolog sub-process." t) ;(autoload 'prolog-mode "prolog" "Major mode for editing Prolog programs." t) ;(setq prolog-system 'Terzo) ;(setq prolog-system-version ; '((sicstus (3 . 7)) ; (swi (0 . 0)) ; (mercury (0 . 0)) ; (eclipse (3 . 7)))) ;;;; I use Perl and want to keep .pl for that... ;;;;(setq auto-mode-alist (cons '("\\.pl$" . prolog-mode) auto-mode-alist)) ;(setq auto-mode-alist (cons '("\\.mod$" . prolog-mode) auto-mode-alist)) ;;; Use makefile-mode for Make.Defs and others (add-to-list 'auto-mode-alist '("Make.*" . makefile-mode)) ;;;--------------------------------------------------------------------- ;;; Fix line endings, and configure menu item to do conversions ;;;--------------------------------------------------------------------- (require 'eol-conversion) (require 'auto-translate) ;; dos to unix (defun d2u () (interactive) (if (y-or-n-p "Convert DOS to Unix format?") (set-buffer-eol-conversion 'unix) (message "format unchanged") )) ;; unix to dos (defun u2d () (interactive) (if (y-or-n-p "Convert Unix to DOS format?") (set-buffer-eol-conversion 'dos) (message "format unchanged") )) ;;;------------------------------------------------------------- ;;; Use the desktop package to save session information ;;;------------------------------------------------------------- ;; (desktop-load-default) ;; (desktop-read) ;; (setq desktop-globals-to-save ;save the registers ;; (cons 'register-alist desktop-globals-to-save)) ;;;--------------------------------------------------------------------- ;;; Below here reserved for auto-configuration from emacs menus ;;;--------------------------------------------------------------------- (custom-set-variables '(jde-help-docsets (quote (("javadoc" "C:\\cygwin\\home\\cclifton\\MultiJava\\javadocs" nil) ("javadoc" "C:\\cygwin\\home\\cclifton\\antlr-2.7.1\\javadocs\\" nil) ("javadoc" "C:\\cygwin\\usr\\local\\jdk1.3.1\\docs\\api\\" nil)))) '(compilation-scroll-output t) '(jde-gen-cflow-while (quote ("(if (jde-parse-comment-or-quoted-p)" "'(l \"while\")" "'(l '> \"while (\" (p \"while-clause: \" clause) \") \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n" "\"} // end of while \"'>'n'>)" ")"))) '(compile-auto-highlight t) '(jde-gen-cflow-if (quote ("(if (jde-parse-comment-or-quoted-p)" "'(l \"if\")" "'(l '> \"if (\" (p \"if-clause: \" clause) \") \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n" "\"} // end of if \"'>)" ")"))) '(jde-gen-get-set-var-template (quote ("(end-of-line) '&" "(P \"Variable type: \" type) \" \"" "(P \"Variable name: \" name) \";\" '>'n '>'n" "\"/**\" '>'n" "\"* Get the value of \" (s name) \".\" '>'n" "\"* @return value of \" (s name) \".\" '>'n" "\"*/\" '>'n" "'>'\"public \" (s type)" "(jde-gen-init-cap (jde-gen-lookup-named 'name))" "\"() \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\" '>'n" "\"return \" (s name) \";\" '>'n \"}\"" "'>'n '>'n" "\"/**\" '>'n" "\"* Set the value of \" (s name) \".\" '>'n" "\"* @param v Value to assign to \" (s name) \".\" '>'n" "\"*/\" '>'n" "'>'\"public void set\" (jde-gen-init-cap (jde-gen-lookup-named 'name))" "\"(\" (s type) \" v) \" " "(if jde-gen-k&r " "()" "'>'n)" "\"{\" '>'n" "'>'\"this.\" (s name) \" = v;\" '>'n \"}\" '>'n'>"))) '(jde-imenu-sort (quote asc)) '(speedbar-use-images nil) '(jde-bug-jdk-directory "c:\\cygwin\\usr\\local\\jdk1.3\\") '(speedbar-sort-tags t) '(jde-run-read-app-args t) '(jde-db-source-directories (quote ("c:\\cygwin\\home\\cclifton\\MultiJava\\" "c:\\cygwin\\usr\\local\\jdk1.3.1\\src\\"))) '(jde-gen-class-buffer-template (quote ("(funcall jde-gen-boilerplate-function)" "(jde-gen-get-package-statement)" "\"/**\" '>'n" "\" * \"" "(file-name-nondirectory buffer-file-name) '>'n" "\" *\" '>'n" "\" * @author \" (user-full-name) '>'n" "\" * @version $Revision: 1.3 $\" '>'n" "\" */\" '>'n'" "'>'n" "\"public class \"" "(file-name-sans-extension (file-name-nondirectory buffer-file-name))" "\" \" (jde-gen-get-extend-class)" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "'n" "\"//---------------------------------------------------------------------\" '> 'n" "\"// CONSTRUCTORS \" '> 'n" "\"//---------------------------------------------------------------------\" '> 'n" "\"public \"" "(file-name-sans-extension (file-name-nondirectory buffer-file-name))" "\"() \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n" "'>'p'n" "\"}\">" "'>'n" "(jde-gen-get-interface-implementation)" "'>'n" "\"//---------------------------------------------------------------------\" '> 'n" "\"// DERIVED ATTRIBUTES\" '> 'n" "\"//---------------------------------------------------------------------\" '> 'n" "'n" "\"//---------------------------------------------------------------------\" '> 'n" "\"// INTERFACE CHECKING\" '> 'n" "\"//---------------------------------------------------------------------\" '> 'n" "'n" "\"//---------------------------------------------------------------------\" '> 'n" "\"// TYPECHECKING\" '> 'n" "\"//---------------------------------------------------------------------\" '> 'n" "'n" "\"//---------------------------------------------------------------------\" '> 'n" "\"// CODE GENERATION\" '> 'n" "\"//---------------------------------------------------------------------\" '> 'n" "'n" "\"//---------------------------------------------------------------------\" '> 'n" "\"// PRIVILEGED DATA\" '> 'n" "\"//---------------------------------------------------------------------\" '> 'n" "'n" "\"}\">" "\"// \"" "(file-name-sans-extension (file-name-nondirectory buffer-file-name))" "'>'n"))) '(speedbar-frame-parameters (quote ((minibuffer) (width . 40) (border-width . 0) (menu-bar-lines . 0) (unsplittable . t) (left . 930)))) '(jde-gen-cflow-for-i (quote ("(if (jde-parse-comment-or-quoted-p)" "'(l \"fori\")" "'(l '> \"for (int \" (p \"variable: \" var) \" = 0; \"" "(s var)" "\" < \"(p \"upper bound: \" ub)\"; \" (s var) \"++) \"" "(if jde-gen-k&r " "()" "'>'n)" "\"{\"'>'n'>'r'n" "\"} // end of for\" '> 'n)" ")"))) '(speedbar-tag-hierarchy-method (quote (speedbar-trim-words-tag-hierarchy speedbar-prefix-group-tag-hierarchy speedbar-sort-tag-hierarchy))) '(speedbar-mode-hook nil) '(jde-key-bindings (quote (("[? ? ?
]" . jde-run-menu-run-applet) ("[? ? ?]" . jde-build) ("[? ? ?]" . jde-compile) ("[? ? ?]" . jde-debug) ("[? ? ?]" . jde-find) ("[? ? ?i]" . jde-wiz-implement-interface) ("[? ? ?j]" . jde-javadoc-generate-javadoc-template) ("[? ? ?]" . bsh) ("[? ? ?]" . jde-gen-println) ("[? ? ?]" . jde-browse-jdk-doc) ("[? ? ?]" . jde-save-project) ("[? ? ?]" . jde-wiz-update-class-list) ("[? ? ?]" . jde-run) ("[? ? ?]" . speedbar-frame-mode) ("[? ? ?]" . jde-db-menu-debug-applet) ("[? ? ?]" . jde-help-symbol) ("[? ? ?]" . jde-show-class-source) ("[? ? ?]" . jde-import-find-and-import) ("[? ? ?]" . jde-run-etrace-prev) ("[? ? ?]" . jde-run-etrace-next) ("[(control c) (control v) (control ?.)]" . jde-complete-at-point-menu) ("[(control c) (control v) ?.]" . jde-complete-at-point) ("[(control c) (control v) (control b)]" . ccc-braces) ("[(control c) (control v) ?b]" . ccc-block-comment) ("[(control c) (control v) (control m)]" . ccc-java-main)))) '(jde-imenu-include-signature nil) '(jde-enable-abbrev-mode t) '(jde-gen-println (quote ("(end-of-line) '&" "\"System.out.println(\" (P \"Print out: \") \");\" '>"))) '(tempo-interactive t) '(jde-gen-buffer-boilerplate (quote ("/* * Copyright (C) 2000-2001 Iowa State University * * This file is part of mjc, the MultiJava Compiler, and the JML Project. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * * $Id: $ */ "))) '(jde-imenu-enable t) '(jde-mode-abbreviations (quote (("ab" . "abstract") ("bo" . "boolean") ("br" . "break") ("by" . "byte") ("byv" . "byvalue") ("cas" . "cast") ("ca" . "catch") ("ch" . "char") ("cl" . "class") ("co" . "const") ("con" . "continue") ("de" . "default") ("dou" . "double") ("el" . "else") ("ex" . "extends") ("fa" . "false") ("fi" . "final") ("fin" . "finally") ("fl" . "float") ("fo" . "for") ("fu" . "future") ("ge" . "generic") ("go" . "goto") ("impl" . "implements") ("impo" . "import") ("ins" . "instanceof") ("in" . "int") ("inte" . "interface") ("lo" . "long") ("na" . "native") ("ne" . "new") ("nu" . "null") ("pa" . "package") ("pri" . "private") ("pro" . "protected") ("pu" . "public") ("re" . "return") ("sh" . "short") ("st" . "static") ("su" . "super") ("sw" . "switch") ("sy" . "synchronized") ("th" . "this") ("thr" . "throw") ("thro" . "throws") ("tra" . "transient") ("tr" . "true") ("vo" . "void") ("vol" . "volatile") ("wh" . "while"))))) (custom-set-faces '(jde-java-font-lock-modifier-face ((t (:foreground "MediumPurple2")))) '(font-lock-constant-face ((t (:foreground "cyan")))) '(font-lock-type-face ((t (:foreground "azure3")))) '(jde-java-font-lock-package-face ((((class color) (background dark)) (:foreground "dodgerblue")))) '(font-lock-builtin-face ((t (:foreground "red")))))