diff options
| author | Gerd Moellmann | 2001-07-23 09:51:21 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-07-23 09:51:21 +0000 |
| commit | d4e116fd48ff67d726bd79caae9a78d1b9fc9858 (patch) | |
| tree | da36f7d169f48ce8411788548b0d7cb8206fd16d | |
| parent | 73496807fbd6774d70b3ed6b8a264a7381d2dd6c (diff) | |
| download | emacs-d4e116fd48ff67d726bd79caae9a78d1b9fc9858.tar.gz emacs-d4e116fd48ff67d726bd79caae9a78d1b9fc9858.zip | |
(animate-birthday-present): Function removed.
| -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." | |||
| 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 | ||