;ELC ;;; Compiled by leavens@LEAVENS-PC on Tue Jun 02 20:31:13 2009 ;;; from file c:/cygwin/home/leavens/emacs/mode-customizations.el ;;; in Emacs version 22.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`mode-customizations.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\"\210\303\304\305\"\210\303\306\307\"\210\303\310\311\"\207" [add-to-list auto-mode-alist ("pico\\." . text-mode) add-hook text-mode-hook #[nil "\300\301M\210\302\303\300\"\207" [open-from-exceptions #[nil "\300\301!\210\302 \207" [find-file-other-window "~/.procmail/from_exceptions" end-of-buffer] 2 "Open my from_exceptions file." nil] local-set-key [f12]] 3] rmail-show-message-hook rmime-format rmail-edit-mode-hook rmime-cancel] 3) #@2  (autoload 'rmime-format "rmime" '(#$ . 1059) nil) #@61 Add the current message's sender to the list given by name. (defalias 'add-to-email-list #[(name) "\212eb\210\302\303!\210`\304\210\305`\"\210)\306 !\210eb\210\307\310!\210\311 \210\312 )\207" [address-start name re-search-forward "^From: " nil copy-region-as-kill find-file-other-window open-line 1 yank save-buffer] 3 (#$ . 1116)]) #@54 Have RMAIL read an email folder, and then delete it. (defalias 'read-and-delete-email-file #[(file-name) "\301!\205 \302!\210\303!\207" [file-name file-exists-p rmail-get-new-mail delete-file] 2 (#$ . 1459)]) (byte-code "\300\301\302\"\210\300\301\303\"\210\304\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\210\300\315\316\"\207" [add-hook rmail-mode-hook #[nil "\300\301M\210\302\303M\210\304\305M\210\306\307M\207" [add-to-whitelist #[nil "\300\301!\207" [add-to-email-list "~/.procmail/whitelist"] 2 "Add the sender to my whitelist of accepted senders of email." nil] add-to-blacklist #[nil "\300\301!\207" [add-to-email-list "~/.procmail/blacklist"] 2 "Add the sender to my blacklist of rejected senders of email." nil] other-email-inboxes #[nil "\300\301!\210\300\302!\210\300\303!\207" [read-and-delete-email-file "~/Mail/nonauth" "~/Mail/no-password" "~/Mail/bounces"] 2 "Read and delete the no-password, nonauth, and bounces files." nil] bounces #[nil "\300\301!\207" [read-and-delete-email-file "~/Mail/bounces"] 2 "Read and delete the bounces file." nil]] 2] #[nil "\300\301M\207" [reply-to-grad-student #[nil "\300\301!\210\302 \210\303 \210\304\305!\210\306 \210\307y\210\304\310!\210\311\312!\210\313\301!\210\314\315!\210\316\301!\207" [rmail-reply 0 mail-cc beginning-of-line kill-line 1 end-of-buffer -2 3 insert-file "~/etc/correspondence/grad-student-support.email" mail-send-and-exit switch-to-buffer "RMAIL" rmail-delete-forward] 2 "Reply with my standard blurb about graduate student support." nil]] 2] add-to-list auto-mode-alist ("\\.mail$" . mail-mode) mail-mode-hook #[nil "\303\304!\210\305\300!\210\306\307\310\311M\210\312\313!\210\314\211\207" [indent-tabs-mode mail-yank-prefix fill-column load "mime-compose" make-local-variable nil "> " mark-mail-for-response "\245\n \n> !" auto-fill-mode 1 72] 2] mail-setup-hook #[nil "\303 \210\304c\210c\210\305y\210\306\307\310\"\210\311 \210\312c\210 c\210`\313 \210\314v\210\n`|\210)\311 \207" [user-login-name user-full-name eol mail-cc ", " -1 replace-string "CC: , " "CC: " mail-text "\n\n " beginning-of-line 1] 3 nil nil] text-mode-hook #[nil "\301 \210\302\303M\210\304\305\302#\207" [text-mode-map auto-fill-mode text-comment #[nil "\300c\210\301u\207" ["[[[ -GTL]]]" -8] 1 nil nil] define-key ";"] 4] outline-mode-hook #[nil "\303\302!\210\303\304!\210\301B\305\301!\204\306\301\307\"\210\310\311\312\313M\207" [current-load-list slide-fill-column indent-tabs-mode make-local-variable fill-column default-boundp set-default "right hand side of slides" 42 nil slide #[nil "\301\302\"\210\303c\210\303c\210\301\302\"\210\303c\210\304y\207" [slide-fill-column insert-char 45 "\n" -2] 3 nil nil]] 3]] 3) #@26 Mode hook for latex mode (defalias 'my-latex-mode #[nil "\300\301M\210\302\303M\210\304\305M\210\306\307M\210\310\311M\210\312\313M\210\314\315M\210\316\317M\210\320\321M\210\322\323M\210\324\325M\210\326\327M\210\330\331M\210\332\333M\210\334\335M\207" [begin #[nil "`\301 \210\302\303`{\"\210\304c\210\305\210\306c\210\307\303!\210\305\210\310c\210\311y)\207" [eol beginning-of-line set-register 4 "\\begin{" nil "}\n\n\\end{" insert-register "}" -1] 4 "Start of a LaTeX command." nil] itemize "itemize\370begin \\item " enumerate "enumerate\370begin \\item " verbatim "verbatim\370begin " frame #[nil "\300c\210\301c\210\302c\210\303y\210\304\210\305u\207" ["\\begin{frame}\n" "\\frametitle{}\n" "\\end{frame}\n" -2 nil -1] 1 nil nil] note "\\note{}C-b" bf "\\textbf{}" em "\\emph{\\/}3" it "\\textit{\\/}3" rm "\\textrm{}" sc "\\textsc{}" sf "\\textsf{}" sl "\\textsl{}" tt "\\texttt{}" lil #[nil "\300c\210\301u\207" ["\\lstinline!!" -1] 1 nil nil]] 2 (#$ . 4187)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [add-hook latex-mode-hook #[nil "\300 \207" [my-latex-mode] 1] LaTeX-mode-hook #[nil "\300 \207" [my-latex-mode] 1]] 3) (defalias 'my-tex-mode #[nil "\301\300!\210\302\303\304M\210\305\306M\210\307\310\305\"\207" [indent-tabs-mode make-local-variable nil proof "\\PROOF \\QED" math "$$" local-set-key "\244"] 3]) (byte-code "\301\302\303\"\210\301\304\305\"\210\301\306\307\"\210\310\311\312\"\210\301\313\314\"\210\301\315\316\"\210\310\311\317\"\210\301\320\321\"\210\322B\323\322!\204=\324\322\325\326!\206;\327\"\210\310\311\330\"\210\310\311\331\"\207" [current-load-list add-hook tex-mode-hook #[nil "\301 \210\302\230?\205 \303\304!\207" [mode-name my-tex-mode "LaTeX" run-hooks latex-mode-hook] 2] TeX-mode-hook #[nil "\301 \210\302\230?\205 \303\304!\207" [mode-name my-tex-mode "LaTeX" run-hooks LaTeX-mode-hook] 2] PDFLaTeX-mode-hook #[nil "\300\301!\207" [run-hooks LaTeX-mode-hook] 2] add-to-list auto-mode-alist ("\\.nw$" . latex-mode) texinfo-mode-hook #[nil "\300\301M\210\302\303M\210\304\305M\210\306\307M\210\310\311M\210\312\313M\210\314\315M\210\316\317M\210\320\315M\210\321\313M\210\322\323M\207" [begin "-1\300xb@gb @end gb" itemize "itemize\370begin  @bullet@item " enumerate "enumerate\370begin @item " bf "@strong{}" em "@emph{}" it "@i{}" rm "@r{}" sc "@sc{}" sf sl tt "@code{}"] 2] bibtex-mode-hook (lambda nil (fset 'bibtex-no-opt-no-quotes "\"") (define-key bibtex-mode-map "o" 'bibtex-no-opt-no-quotes) (define-key bibtex-mode-map "\"" 'self-insert-command) (fset 'bibtex-authors [18 123 6 escape 119 19 97 117 116 104 111 114 13 19 123 13 25 8 8 18 64 13 19 107 101 121 13 19 123 13 25 8 8 18 123 13 escape 102]) (define-key bibtex-mode-map "a" 'bibtex-authors)) ("\\.shtml" . html-mode) html-mode-hook #[nil "\300\301!\210\302\303M\207" [auto-fill-mode 0 tt "6"] 2] clu-home default-boundp set-default getenv "CLUHOME" "/usr/unsup/CLU" ("\\.clu$" . clu-mode) ("\\.spc$" . clu-mode)] 4) #@10 CLU mode (autoload 'clu-mode "clu" '(#$ . 7198) t nil) (byte-code "\302P\303\304\305\"\210\303\304\306\"\210\303\307\310\"\210\303\307\311\"\210\303\307\312\"\210\303\307\313\"\210\303\307\314\"\210\303\307\315\"\210\303\307\316\"\210\303\307\317\"\210\303\307\320\"\210\303\307\321\"\210\303\307\322\"\210\303\307\323\"\210\303\307\324\"\210\303\307\325\"\210\303\307\326\"\210\303\307\327\"\210\303\307\330\"\210\331\332\333\"\210\334\335\336\337#\210\334\335\340\"\210\331\341\342\343\344$\210\303\307\345\"\210\334\346\347\"\210\334\350\351\"\210\334\350\352\"\210\303\307\353\"\210\303\307\354\"\210\331\355\356\343\344$\210\334\357\360\"\210\361\362\344\"\210\303\307\363\"\210\303\307\364\"\210\334\365\366\"\210\334\365\367\"\210\334\365\370\"\210\334\365\371\"\210\303\307\372\"\207" [clu-home clu-doc-file-name "/emacs/CLU-DOC" add-to-list completion-ignored-extensions ".class" ".sym" auto-mode-alist ("\\.refines-java$" . java-mode) ("\\.java-refined$" . java-mode) ("\\.spec$" . java-mode) ("\\.spec-refined$" . java-mode) ("\\.refines-spec$" . java-mode) ("\\.jml$" . java-mode) ("\\.jml-refined$" . java-mode) ("\\.refines-jml$" . java-mode) ("\\.java-refined-generic$" . java-mode) ("\\.java-generic$" . java-mode) ("\\.spec-refined-generic$" . java-mode) ("\\.spec-generic$" . java-mode) ("\\.jml-refined-generic$" . java-mode) ("\\.jml-generic$" . java-mode) ("\\.java.gen$" . java-mode) ("\\.mj$" . java-mode) ("\\.m4$" . java-mode) autoload camelCase-mode "~/emacs/camelCase/camelCase-mode" add-hook java-mode-hook (lambda nil (local-set-key "\342ackspace" 'camelCase-backward-kill-word)) append #[nil "\302\300!\210\303\304\305M\210 \205\306 \210\307\310!\207" [indent-tabs-mode window-system make-local-variable nil main #[nil "\300c\210\301 \210\302c\210\301 \210\303c\210\304y\210\305c\210\304y\210\301 \210\306\210\307u\207" ["public static void main(String [] argv) {" c-indent-command "\n}" "\n" -1 "System.out.println(\"\");\n" nil -3] 1 nil nil] font-lock-mode load "andersl-java-font-lock"] 2] antlr-mode "antlr-mode" nil t ("\\.g\\'" . antlr-mode) speedbar-load-hook #[nil "\300\301!\207" [speedbar-add-supported-extension ".g"] 2] antlr-mode-hook #[nil "\302\300!\210\303 \205\f\304 \207" [indent-tabs-mode window-system make-local-variable nil font-lock-mode] 2] #[nil "\300\301\302 \"\205 \303\304!\207" [string-match "expanded.*\\.g" buffer-name toggle-read-only 1] 3] ("\\.st$" . smalltalk-mode) ("\\.cls$" . smalltalk-mode) smalltalk-mode "st" smalltalk-mode-hook #[nil "\301\300!\210\302\211\207" [indent-tabs-mode make-local-variable nil] 2] load "haskell-site-file" ("\\.has$" . haskell-mode) ("\\.lit$" . literate-haskell-mode) haskell-mode-hook turn-on-haskell-decl-scan turn-on-haskell-doc-mode turn-on-haskell-indent #[nil "\205\f\302\301!\210\303\304 \207" [window-system indent-tabs-mode make-local-variable nil turn-on-font-lock] 2] ("\\.lsl$" . lsl-mode)] 5) #@37 Major mode for editing Lsl scripts. (autoload 'lsl-mode "lsl-mode" '(#$ . 10124) t) (byte-code "\301\302\303\"\210\304\301\207" [explicit-lprolog-file-name add-hook lsl-mode-hook #[nil "\205\301 \210\302\303\304\"\210\302\305\306\"\210\302\307\310\"\207" [window-system turn-on-font-lock set-face-foreground lsl-keyword-face "SkyBlue" lsl-operator-face "Red" lsl-comment-face "GoldenRod"] 3] "teyjus"] 3) #@33 Run an inferior Teyjus process. (autoload 'teyjus "teyjus" '(#$ . 10539) t) #@45 Syntax Highlighting, etc. for Lambda Prolog (autoload 'teyjus-edit-mode "teyjus" '(#$ . 10621) t) (byte-code "\300\301\302\"\210\300\301\303\"\210\304\305\306\"\210\300\301\307\"\210\300\301\310\"\207" [add-to-list auto-mode-alist ("\\.mod$" . teyjus-edit-mode) ("\\.sig$" . teyjus-edit-mode) add-hook teyjus-edit-mode-hook (lambda nil (font-lock-mode)) ("\\.oz\\'" . oz-mode) ("\\.ozg\\'" . oz-gump-mode)] 3) #@2  (autoload 'run-oz "oz" '(#$ . 11036) t) #@2  (autoload 'oz-mode "oz" '(#$ . 11082) t) #@2  (autoload 'oz-gump-mode "oz" '(#$ . 11129) t) #@2  (autoload 'oz-new-buffer "oz" '(#$ . 11181) t) (byte-code "\300\301\302\"\210\303\304\305\"\210\306\307\310\"\210\306\307\311\"\210\306\307\312\"\207" [add-hook oz-mode-hook (lambda nil (make-local-variable 'indent-tabs-mode) (setq indent-tabs-mode nil)) load "scala-mode-auto" t add-to-list auto-mode-alist ("\\.ss$" . scheme-mode) ("\\.def$" . scheme-mode) ("\\.tst$" . scheme-mode)] 3) #@32 Run Scheme in an emacs buffer. (autoload 'run-scheme "cmuscheme" '(#$ . 11577) t) #@45 Mode for Scheme programming and interaction (autoload 'scheme-mode "cmuscheme" '(#$ . 11665) t) (byte-code "\302\303\304\305\306\"\207" [scheme-mit-dialect scheme-program-name nil "sh -c scheme342" add-hook scheme-mode-hook #[nil "\304\305\306#\210\304\307\310#\210\311\312\313\314#\210\311\315\313\316#\210\311\317\313\320#\210\311\321\313\320#\210\311\322\313\320#\210\311\323\313\314#\210 \203G\324 \210\n\325V\203G\326\327 ABB\330 \210\331\332M\210\333\334M\207" [scheme-mode-map window-system emacs-major-version font-lock-keywords define-key "\n" newline " " newline-and-indent put cases scheme-indent-function 2 forall 1 has-type 0 has-type-trusted test-type module font-lock-mode 19 t ("\\((\\(->\\|cases\\|isa\\|forall\\|def\\(rep\\|type\\|ine-datatype\\)\\|provide\\|module\\|require\\|file\\|lib\\|test-type\\|has-type\\(\\|-trusted\\)\\)\\>\\)" (1 font-lock-keyword-face)) font-lock-fontify-buffer untyped #[nil "\301\211\207" [scheme-program-name "sh -c scheme342untyped"] 2 nil nil] typed #[nil "\301\211\207" [scheme-program-name "sh -c scheme342typed"] 2 nil nil]] 4]] 3) #@31 Portable Scheme Debugger mode (autoload 'psd-mode "psd" '(#$ . 12768) t nil)