Mercurial > emacs
changeset 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 | f4d3e190e759 |
files | lisp/play/animate.el |
diffstat | 1 files changed, 0 insertions(+), 34 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/play/animate.el Mon Jul 23 09:46:39 2001 +0000 +++ b/lisp/play/animate.el Mon Jul 23 09:51:21 2001 +0000 @@ -129,39 +129,5 @@ ;; 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