[Emacs-diffs] emacs/lisp misc.el

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     08/12/28 23:48:22

Modified files:
        lisp           : misc.el 

Log message:
        (butterfly): New command.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/misc.el?cvsroot=emacs&r1=1.22&r2=1.23

Patches:
Index: misc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/misc.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- misc.el     6 May 2008 07:57:44 -0000       1.22
+++ misc.el     28 Dec 2008 23:48:21 -0000      1.23
@@ -106,6 +106,20 @@
   (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