;ELC ;;; Compiled by sbp@localhost on Mon Sep 3 20:56:08 2007 ;;; from file /Users/sbp/web/inamidst.com/www/config/emacs ;;; in Emacs version 22.1.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 "`emacs' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301\302!\203 \303\202\304\305!\210\301\207" [backup-directory-alist file-directory-p "~/.emacs.d/backup" (("." . "~/.emacs.d/backup")) message "Directory does not exist: ~/.emacs.d/backup"] 2) (defalias 'auto-save-file-name-p #[(filename) "\301\302\303!\"\207" [filename string-match "^autosave..*$" file-name-nondirectory] 4]) (defalias 'make-auto-save-file-name #[nil "\301\302!\303\203\304\305!P\202\301\306\307 P!Q\207" [buffer-file-name expand-file-name "~/.emacs.d/backup" "/" "autosave." file-name-nondirectory "autosave.%" buffer-name] 5]) (byte-code "\301\302\303\"\210\301\304\305\"\210\301\306\307\"\210\301\310\311\"\210\301\312\307\"\210\301\313\314\"\210\301\315\305\"\210\301\316\317\"\210\301\320\305\"\210\321\322!\210\323\324\325\326\"\210\327\330!\203J\331\330\305\332\333\334\335\336\307&\210\327\337!\203\\\331\337\305\332\333\334\335\336\307&\210\340\341!\203f\341\342!\210\340\343!\203p\343\342!\210\344\345\346\"\210\344\347\350\"\210\344\351\352\"\210\344\353\354\"\210\344\355\356\"\210\344\357\360\"\210\344\361\362\"\207" [inhibit-startup-echo-area-message set-default default-fill-column 79 blink-matching-paren nil visible-bell t default-major-mode text-mode inhibit-startup-message require-final-newline ask sentence-end-double-space sentence-end "[.?!][]\"')]*\\($\\| \\| \\)[ \n]*" colon-double-space global-font-lock-mode 0 "sbp" add-hook text-mode-hook turn-on-auto-fill facep isearch set-face-attribute :foreground "White" :background "Black" :underline isearch-lazy-highlight-face fboundp tool-bar-mode -1 menu-bar-mode global-set-key "" buffer-menu "\"" shell-command "" backward-kill-word "d" delete-region "c" copy-region-as-kill "v" yank [f4] call-last-kbd-macro] 9) #@42 Justify a paragraph and move to its end. (defalias 'my-justify-paragraph #[nil "\300\301!\210\302 \207" [fill-paragraph nil forward-paragraph] 2 (#$ . 2318) nil]) (byte-code "\301\302\303\"\210\301\304\305\"\210\306\307\310#\210\306\311\312#\210\301\313\314\"\207" [function-key-map global-set-key "\n" fill-paragraph "j" my-justify-paragraph define-key "[7~" [home] "[8~" [end] "l" goto-line] 4) #@27 Execute an emacs command. (defalias 'my-execute-command #[(command) "\301\302!!\207" [command command-execute intern] 3 (#$ . 2727) (list (completing-read "Command: " obarray))]) (global-set-key "e" 'my-execute-command) (defalias 'my-mx-warning #[nil "\300\301!\207" [message "Use 'C-c e' to execute a command"] 2 nil nil]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [global-set-key "\370" my-mx-warning "a" apropos] 3) #@60 Reduce all whitespace surrounding point to a single space. (defalias 'my-collapse-whitespace #[nil "\300\301\302!\210\303u\210`\304\302!\210\305u\210`\"\210\306\307\310\"\207" [kill-region re-search-backward "[^ \n]" nil re-search-forward -1 insert-char 32 1] 4 (#$ . 3163) nil]) (global-set-key "w" 'my-collapse-whitespace) #@44 Move to the matching paren, or insert arg. (defalias 'my-match-paren #[(arg) "gz\211\302U\203\303\304!\210\305u\202(\306U\203!\307u\210\310\304!\202(\311 \206'\304!)\207" [syntax arg 40 forward-sexp 1 -1 41 nil backward-sexp self-insert-command] 3 (#$ . 3497) "p"]) (define-key emacs-lisp-mode-map "%" 'my-match-paren) #@49 Kill an entire line, including trailing newline (defalias 'my-kill-whole-line #[nil "\300 \210\301\302!\207" [beginning-of-line kill-line 1] 2 (#$ . 3830) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [global-set-key " " my-kill-whole-line "k" kill-line] 3) #@35 Move a line up a single position. (defalias 'my-move-line-up #[nil "\301\302`\"\303V\205 i\304 \210\305\302!\210\306 \210\307 \210\305\302!\210\310!)\207" [my-previous-column count-lines 1 0 my-kill-whole-line previous-line beginning-of-line yank move-to-column] 3 (#$ . 4105) nil]) #@37 Move a line down a single position. (defalias 'my-move-line-down #[nil "\301\302`\"\301\302d\"SW\205$i\303 \210\304\302!\210\305 \210\306 \210\307\302!\210\310!)\207" [my-previous-column count-lines 1 my-kill-whole-line next-line beginning-of-line yank previous-line move-to-column] 4 (#$ . 4397) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [global-set-key "Oa" my-move-line-up "Ob" my-move-line-down] 3) #@44 Move backwards a word based on whitespace. (defalias 'my-backward-word #[nil "gz\300U\203\301\302!\210\202\303u\210\301\304!\207" [32 re-search-backward "[^ ]" nil "[ ]"] 2 (#$ . 4825) nil]) #@43 Move forwards a word based on whitespace. (defalias 'my-forward-word #[nil "gz\300U\203 \301\302!\210\301\303!\210\304u\207" [32 re-search-forward "[^ ]" "[ ]" -1] 2 (#$ . 5028) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [global-set-key "Oc" my-forward-word "Od" my-backward-word] 3) #@32 Insert a single '\' character. (defalias 'my-insert-slash #[nil "\300\301\302\"\207" [insert-char 92 1] 3 (#$ . 5336) nil]) (global-set-key "" 'my-insert-slash) (defalias 'my-ca-warning #[nil "\300\301!\207" [message "Type '\\m' to set mark"] 2 nil nil]) (global-set-key "" 'my-ca-warning) #@40 Return pretty printed buffer filename. (defalias 'my-buffer-filename #[nil "\303 \211\203F\304\305!\304\306!\307P G\310V\203'\311 \"\203' G\312O\202B\311\n\"\203A\311\n\"\310U\203A\313\nG\312OP\202B*\202H\314 )\207" [filename pwd homedir buffer-file-name getenv "HOME" "PWD" "/" 0 string-match nil "~" buffer-name] 5 (#$ . 5634)]) #@50 Return a possibly pre-truncated buffer filename. (defalias 'my-trimmed-buffer-filename #[nil "\301 \211G\302V\203\303\304\305OP\202)\207" [filename my-buffer-filename 32 "..." -29 nil] 5 (#$ . 5988)]) (defalias 'my-mode-line-prefix #[nil "\300\301 \203\n\302\202 \303\304\305 R\207" [" GNU Emacs " buffer-modified-p "-" "=" "> " my-trimmed-buffer-filename] 4]) (defalias 'my-mode-line-suffix #[nil "\302 \203\n\303\202 \304\305R\207" [mode-name pelican-mode "Line %l, Pos %c (" " Pelican" "" ") "] 4]) (defalias 'my-mode-line-offset #[nil "\300\301\302`\"T!G\300i!G\\\303Z\207" [number-to-string count-lines 1 4] 4]) (byte-code "\301\302\207" [default-mode-line-format ((:eval (let ((prefix (my-mode-line-prefix)) (suffix (my-mode-line-suffix))) (concat prefix (make-string (- (frame-width) (+ (length prefix) (length suffix) (my-mode-line-offset))) 32) suffix)))) nil] 1) (defalias 'my-save-message #[nil "\300\301\302\303 !\304\305 \306\260!\207" [message "Saved " number-to-string buffer-size " bytes to " my-buffer-filename "..."] 6]) (byte-code "\300\301\302\"\210\303\304!\203(\305\306!\210\307\310\311\"\210\300\312\313\"\210\300\312\314\"\210\315\316\317\320B\"\210\202,\321\322!\210\323\324!\203>\305\324!\210\325\326\327\"\210\202B\321\330!\210\321\331!\207" [add-hook after-save-hook my-save-message file-directory-p "~/.emacs.d/nxml-mode" load "~/.emacs.d/nxml-mode/rng-auto.el" set-default nxml-syntax-highlight-flag nil nxml-mode-hook turn-on-auto-fill (lambda nil (define-key nxml-mode-map "" 'nxml-complete)) add-to-list auto-mode-alist "\\.\\(html\\|xml\\|rdf\\|xsl\\)\\'" nxml-mode message "Unable to load nxml-mode" file-regular-p "~/.emacs.d/pelican.el" global-set-key "" pelican-mode "Unable to load pelican-mode" "Successfully loaded ~/.emacs..."] 4)