emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] emacs/lisp misc.el


From: Juri Linkov
Subject: [Emacs-diffs] emacs/lisp misc.el
Date: Sun, 28 Dec 2008 23:50:48 +0000

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

Modified files:
        lisp           : misc.el 

Log message:
        (butterfly): Doc fix.  Add `animate-string' and `browse-url'.

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

Patches:
Index: misc.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/misc.el,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -b -r1.23 -r1.24
--- misc.el     28 Dec 2008 23:48:21 -0000      1.23
+++ misc.el     28 Dec 2008 23:50:47 -0000      1.24
@@ -108,17 +108,27 @@
 
 ;;;###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/)."
+  "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/'."
   (interactive)
   (if (yes-or-no-p "Do you really want to unleash the powers of the butterfly? 
")
       (progn
-       (message "Amazing physics going on...")
+       (switch-to-buffer (get-buffer-create "*butterfly*"))
+       (erase-buffer)
+       (sit-for 0)
+       (setq indent-tabs-mode nil)
+       (animate-string "Amazing physics going on..."
+                       (/ (window-height) 2) (- (/ (window-width) 2) 12))
        (sit-for (* 5 (/ (abs (random)) (float most-positive-fixnum))))
        (message "Successfully flipped one bit!"))
-    (message "Well, then go to www.xkcd.com!")))
+    (message "Well, then go to xkcd.com!")
+    (browse-url "http://xkcd.com/378/";)))
 
 (provide 'misc)
 




reply via email to

[Prev in Thread] Current Thread [Next in Thread]