;ELC ;;; Compiled by sbp@localhost on Mon Jun 22 11:04:24 2009 ;;; from file /Users/sbp/web/inamidst.com/www/config/emacs ;;; in Emacs version 23.0.95.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 "\306\307!\204 \310\307\311\"\210\312\311\313\311\314\313\315\"\316#\317\320\321\"\210\322\323!\203,\323\324!\210\325\326\313\327\330\331\332\333\311&\210\325\334\313\327\330\331\332\333\311&\210\325\335\313\327\330\331\332&\210\336\337!\210\317\340\341\"\207" [backup-directory-alist backup-by-copying auto-save-default inhibit-startup-message require-final-newline blink-matching-paren file-exists-p "~/.emacs.d/backups" make-directory t (("." . "~/.emacs.d/backups")) nil ask text-mode 79 add-hook text-mode-hook turn-on-auto-fill fboundp menu-bar-mode -1 set-face-attribute isearch :foreground "White" :background "Black" :underline isearch-lazy-highlight-face minibuffer-prompt global-font-lock-mode 0 python-mode-hook (lambda nil (global-font-lock-mode 0)) default-major-mode default-fill-column] 9) #@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 (#$ . 1411) nil]) #@31 Move the current line up one. (defalias 'my-move-line-up #[nil "i\212\301 \210\302\303!\210)\304!)\207" [col next-line transpose-lines -1 move-to-column] 2 (#$ . 1578) nil]) #@33 Move the current line down one. (defalias 'my-move-line-down #[nil "i\212\301 \210\302\303!\210)\301 \210\304!)\207" [col next-line transpose-lines 1 move-to-column] 2 (#$ . 1760) nil]) (byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\207" [global-set-key " " my-kill-whole-line "" my-move-line-up "" my-move-line-down "l" goto-line "" yank "" undo] 3) #@50 Return a possibly pre-truncated buffer filename. (defalias 'my-fixed #[(filename n) "G V\203\302 \303Z[\304OP\207\207" [filename n "..." 3 nil] 4 (#$ . 2194)]) (byte-code "\301\302\303\304\305\306\257\307\207" [default-mode-line-format " GNU Emacs " (:eval (if (buffer-modified-p) "-" "=")) "> " (32 (:eval (my-fixed (abbreviate-file-name (buffer-file-name)) 32))) (:eval (make-string (- (frame-width) (length (format-mode-line "Line %l, Pos %c (%m)")) 48) 32)) " Line %l, Pos %c (%m) " nil] 6) (defalias 'my-save-message #[nil "\300\301\302\303 !\304\305\306 !\307\260!\207" [message "Saved " number-to-string buffer-size " bytes to " abbreviate-file-name buffer-file-name "..."] 6]) (add-hook 'after-save-hook 'my-save-message)