aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Moellmann2001-07-23 09:51:21 +0000
committerGerd Moellmann2001-07-23 09:51:21 +0000
commitd4e116fd48ff67d726bd79caae9a78d1b9fc9858 (patch)
treeda36f7d169f48ce8411788548b0d7cb8206fd16d
parent73496807fbd6774d70b3ed6b8a264a7381d2dd6c (diff)
downloademacs-d4e116fd48ff67d726bd79caae9a78d1b9fc9858.tar.gz
emacs-d4e116fd48ff67d726bd79caae9a78d1b9fc9858.zip
(animate-birthday-present): Function removed.
-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."
129 ;; will undo the "animate" calls one by one. 129 ;; will undo the "animate" calls one by one.
130 (undo-boundary))) 130 (undo-boundary)))
131 131
132;;;###autoload
133(defun animate-birthday-present ()
134 "Display Sarah's birthday present."
135 (interactive)
136 ;; Make a suitable buffer to display the birthday present in.
137 (switch-to-buffer (get-buffer-create "Sarah"))
138 (erase-buffer)
139 ;; Display the empty buffer.
140 (sit-for 0)
141 ;; Make sure indentation does not use tabs.
142 ;; They would confuse things.
143 (setq indent-tabs-mode nil)
144
145 (animate-string "Happy Birthday," 6)
146 (animate-string "Sarah" 7)
147
148 (sit-for 1)
149
150 (animate-string "You are my sunshine," 10 30)
151 (sit-for .5)
152 (animate-string "My only sunshine." 11 30)
153 (sit-for .5)
154 (animate-string "I'm awful sad that" 12 30)
155 (sit-for .5)
156 (animate-string "You've moved away." 13 30)
157 (sit-for .5)
158 (animate-string "Let's talk together" 15 30)
159 (sit-for .5)
160 (animate-string "And love more deeply." 16 30)
161 (sit-for .5)
162 (animate-string "Please bring back" 17 30)
163 (animate-string "my sunshine" 18 34)
164 (animate-string "to stay!" 19 34))
165
166;;; animate.el ends here 132;;; animate.el ends here
167 133