From 56c356308d187b80cc173b9bb55bc03be54894ab Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 6 Aug 2001 12:40:52 +0000 Subject: [PATCH] (animate-birthday-present): Re-insert. --- lisp/play/animate.el | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) diff --git a/lisp/play/animate.el b/lisp/play/animate.el index e7ac1a231ea..24d8d73ce06 100644 --- a/lisp/play/animate.el +++ b/lisp/play/animate.el @@ -130,4 +130,39 @@ 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 + -- 2.39.2