;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:09:38 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/misc.el
;;; in Emacs version 24.0.50.1
;;; 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.

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


#@248 Copy characters from previous nonblank line, starting just above point.
Copy ARG characters, but not past the end of that line.
If no argument given, copy the entire rest of the line.
The characters copied are inserted in the buffer before point.
(defalias 'copy-from-above-command #[(&optional arg) "i\304\305\212\306 \210\307u\210\310\304x\210\311\n!\210\203\312!\202 d\niW\203Dh\313U\203A\314	i\nZ^\315\"	\211i\nZ^Z\202D\307u\210`\316 	`\\^{P)c+\207" [string n cc arg nil "" beginning-of-line -1 "	\n" move-to-column prefix-numeric-value 9 make-string 32 line-end-position] 5 (#$ . 539) "P"])
#@211 Kill up to, but not including ARGth occurrence of CHAR.
Case is ignored if `case-fold-search' is non-nil in the current buffer.
Goes backward if ARG is negative; error if CHAR not found.
Ignores CHAR at point.
(defalias 'zap-up-to-char #[(arg char) "\303Y\203\n\304\202\305\306`	u\210\307\216\310\311\n!\312\211$\210)`\")\207" [arg direction char 0 1 -1 kill-region ((byte-code "[u\207" [direction] 1)) search-forward char-to-string nil] 7 (#$ . 1159) "p\ncZap up to char: "])
#@42 Set mark at the beginning of the buffer.
(defalias 'mark-beginning-of-buffer #[nil "\300e!\207" [push-mark] 2 (#$ . 1649) nil])
#@36 Set mark at the end of the buffer.
(defalias 'mark-end-of-buffer #[nil "\300d!\207" [push-mark] 2 (#$ . 1783) nil])
#@65 Uppercasify ARG chars starting from point.  Point doesn't move.
(defalias 'upcase-char #[(arg) "\212\301`u\210`\")\207" [arg upcase-region] 3 (#$ . 1905) "p"])
#@98 Move forward until encountering the beginning of a word.
With argument, do this that many times.
(defalias 'forward-to-word #[(arg) "\301\302V\203\303\202\f\304\305\306$\206\302V\203d\202eb\207" [arg re-search-forward 0 "\\W\\b" "\\b\\W" nil t] 5 (#$ . 2072) "p"])
#@93 Move backward until encountering the end of a word.
With argument, do this that many times.
(defalias 'backward-to-word #[(arg) "\301[!\207" [arg forward-to-word] 2 (#$ . 2355) "p"])
#@530 Use butterflies to flip the desired bit on the drive platter.
Open hands and let the delicate wings flap once.  The disturbance
ripples outward, changing the flow of the eddy currents in the
upper atmosphere.  These cause momentary pockets of higher-pressure
air to form, which act as lenses that deflect incoming cosmic rays,
focusing them to strike the drive platter and flip the desired bit.
You can type `M-x butterfly C-M-c' to run it.  This is a permuted
variation of `C-x M-c M-butterfly' from url `http://xkcd.com/378/'.
(defalias 'butterfly #[nil "\301\302!\2032\303\304\305!!\210\306 \210\307\310!\210\311\312\313 \314\245\315 \314\245\316Z#\210\307\317\320 !\321!\245\322_!\210\323\324!\207\323\325!\210\326\327!\207" [most-positive-fixnum yes-or-no-p "Do you really want to unleash the powers of the butterfly? " switch-to-buffer get-buffer-create "*butterfly*" erase-buffer sit-for 0 animate-string "Amazing physics going on..." window-height 2 window-width 12 abs random float 5 message "Successfully flipped one bit!" "Well, then go to xkcd.com!" browse-url "http://xkcd.com/378/"] 5 (#$ . 2546) nil])
(provide 'misc)
