diff options
| author | Juri Linkov <juri@jurta.org> | 2008-12-28 23:48:21 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2008-12-28 23:48:21 +0000 |
| commit | e8d24e5b0960898e4a93ee2918f677b375b68263 (patch) | |
| tree | 811f9caa5fd7b08a9b55ae2c383cf1e3595d2bb2 | |
| parent | fa862320ce8008fbff71b5623ba636dafcad8416 (diff) | |
| download | emacs-e8d24e5b0960898e4a93ee2918f677b375b68263.tar.gz | |
(butterfly): New command.
| -rw-r--r-- | lisp/misc.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/misc.el b/lisp/misc.el index ad7de36..6dafd2a 100644 --- a/lisp/misc.el +++ b/lisp/misc.el @@ -106,6 +106,20 @@ With argument, do this that many times." (interactive "p") (forward-to-word (- arg))) +;;;###autoload +(defun butterfly () + "This function is designed to be used only be the most +proficient hackers on earth. If equipped with a butterfly key, +it should be bound to C-x M-c M-butterfly (for further +information please refer to http://xkcd.com/378/)." + (interactive) + (if (yes-or-no-p "Do you really want to unleash the powers of the butterfly? ") + (progn + (message "Amazing physics going on...") + (sit-for (* 5 (/ (abs (random)) (float most-positive-fixnum)))) + (message "Successfully flipped one bit!")) + (message "Well, then go to www.xkcd.com!"))) + (provide 'misc) ;; arch-tag: 908f7884-c19e-4388-920c-9cfa425e449b |
