diff options
author | Gerd Moellmann <gerd@gnu.org> | 2001-07-23 09:51:21 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2001-07-23 09:51:21 +0000 |
commit | f371fb8d5235cd111bc214e449abd7b79769422a (patch) | |
tree | 395d4fce944262f3e2087fa635832a560cacde4d /lisp/play/animate.el | |
parent | 2eb37a319913eb6d114db2ccb3a2489d6c29a3c0 (diff) | |
download | emacs-f371fb8d5235cd111bc214e449abd7b79769422a.tar.gz |
(animate-birthday-present): Function removed.
Diffstat (limited to 'lisp/play/animate.el')
-rw-r--r-- | lisp/play/animate.el | 34 |
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." ;; 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 |