summaryrefslogblamecommitdiffstats
path: root/emacs.d/lisp/self-compile-mode.elc
blob: 5f3be8d0d0b11ac55856a6ae09b25ecb0d1fd198 (plain) (tree)






























                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         
;ELC
;;; Compiled by alexander@sulfrian.net on Wed Mar 14 02:00:11 2012
;;; from file /home/alex/.dotfiles/emacs.d/lisp/self-compile-mode.el
;;; in Emacs version 23.3.5
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(provide 'self-compile-mode)
#@28 compile itself if ~/.emacs
(defalias 'autocompile #[nil "\301\302!\210\205\f\303\304 !\207" [self-compile-mode require bytecomp byte-compile-file buffer-file-name] 2 (#$ . 562) nil])
#@103 Non-nil if Self-Compile mode is enabled.
Use the command `self-compile-mode' to change this variable.
(defvar self-compile-mode nil (#$ . 754))
(make-variable-buffer-local 'self-compile-mode)
#@239 Toggle Self Compile mode.
With no argument, this command toggles the mode.
Non-null prefix argument turns on the mode.
Null prefix argument turns off the mode.

When Self Compile mode is enabled, the file gets
byte compiled after saving.
(defalias 'self-compile-mode #[(&optional arg) "\303 	\304=\203\n?\202(	\203\305	!\306V\202(\n\204\"\307\202(\310\311\302\"\210\312\313\314\n\2033\315\2024\316\"\210\317\320!\203U\303 \203H\303 \232\203U\310\321\n\203R\322\202S\323\"\210)\324 \210\n\207" [#1=#:last-message arg self-compile-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil run-hooks self-compile-mode-hook self-compile-mode-on-hook self-compile-mode-off-hook called-interactively-p any "Self-Compile mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 953) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n#\210\305\306\307\"\207" [self-compile-mode-map add-minor-mode self-compile-mode " Compile" boundp add-hook after-save-hook autocompile] 5)