From: Gerd Moellmann Date: Mon, 23 Jul 2001 09:51:21 +0000 (+0000) Subject: (animate-birthday-present): Function removed. X-Git-Tag: emacs-pretest-21.0.105~417 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4e116fd48ff67d726bd79caae9a78d1b9fc9858;p=emacs.git (animate-birthday-present): Function removed. --- 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