summaryrefslogtreecommitdiff
path: root/lisp/play/animate.el
diff options
context:
space:
mode:
authorGerd Moellmann <gerd@gnu.org>2001-07-23 09:51:21 +0000
committerGerd Moellmann <gerd@gnu.org>2001-07-23 09:51:21 +0000
commitf371fb8d5235cd111bc214e449abd7b79769422a (patch)
tree395d4fce944262f3e2087fa635832a560cacde4d /lisp/play/animate.el
parent2eb37a319913eb6d114db2ccb3a2489d6c29a3c0 (diff)
downloademacs-f371fb8d5235cd111bc214e449abd7b79769422a.tar.gz
(animate-birthday-present): Function removed.
Diffstat (limited to 'lisp/play/animate.el')
-rw-r--r--lisp/play/animate.el34
1 files changed, 0 insertions, 34 deletions
diff --git a/lisp/play/animate.el b/lisp/play/animate.el
index 4d4a6e7a648..5ddd90d5a72 100644
--- a/lisp/play/animate.el
+++ b/lisp/play/animate.el
@@ -129,39 +129,5 @@ in the current window."
;; will undo the "animate" calls one by one.
(undo-boundary)))
-;;;###autoload
-(defun animate-birthday-present ()
- "Display Sarah's birthday present."
- (interactive)
- ;; Make a suitable buffer to display the birthday present in.
- (switch-to-buffer (get-buffer-create "Sarah"))
- (erase-buffer)
- ;; Display the empty buffer.
- (sit-for 0)
- ;; Make sure indentation does not use tabs.
- ;; They would confuse things.
- (setq indent-tabs-mode nil)
-
- (animate-string "Happy Birthday," 6)
- (animate-string "Sarah" 7)
-
- (sit-for 1)
-
- (animate-string "You are my sunshine," 10 30)
- (sit-for .5)
- (animate-string "My only sunshine." 11 30)
- (sit-for .5)
- (animate-string "I'm awful sad that" 12 30)
- (sit-for .5)
- (animate-string "You've moved away." 13 30)
- (sit-for .5)
- (animate-string "Let's talk together" 15 30)
- (sit-for .5)
- (animate-string "And love more deeply." 16 30)
- (sit-for .5)
- (animate-string "Please bring back" 17 30)
- (animate-string "my sunshine" 18 34)
- (animate-string "to stay!" 19 34))
-
;;; animate.el ends here