Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e8d24e5b
Commit
e8d24e5b
authored
Dec 28, 2008
by
Juri Linkov
Browse files
(butterfly): New command.
parent
fa862320
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
0 deletions
+14
-0
lisp/misc.el
lisp/misc.el
+14
-0
No files found.
lisp/misc.el
View file @
e8d24e5b
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment