Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 13:27:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(butterfly): New command.

Browse source
This commit is contained in:
Juri Linkov 2008-12-28 23:48:21 +00:00
parent fa862320ce
commit e8d24e5b09
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/misc.el
View file

@ -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