Mercurial > emacs
comparison lisp/play/animate.el @ 38522:6f865b5ea033
(animate-birthday-present): Function removed.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 23 Jul 2001 09:51:21 +0000 |
parents | 1e1aaf2dadee |
children | 7f4573a73075 |
comparison
equal
deleted
inserted
replaced
38521:1e1aaf2dadee | 38522:6f865b5ea033 |
---|---|
127 (sit-for 0) | 127 (sit-for 0) |
128 ;; This is so that the undo command, used afterwards, | 128 ;; This is so that the undo command, used afterwards, |
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 |