From: Juri Linkov <juri@jurta.org>
Date: Sun, 28 Dec 2008 23:48:21 +0000 (+0000)
Subject: (butterfly): New command.
X-Git-Tag: emacs-pretest-23.0.90~832
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e8d24e5b0960898e4a93ee2918f677b375b68263;p=emacs.git

(butterfly): New command.
---

diff --git a/lisp/misc.el b/lisp/misc.el
index ad7de36e8ef..6dafd2a5e4b 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