[Top][All Lists]
[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:48:22 +0000 |
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
- [Emacs-diffs] emacs/lisp misc.el,
Juri Linkov <=