Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 20:07:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(animate-birthday-present): Function removed.

Browse source
This commit is contained in:
Gerd Moellmann 2001-07-23 09:51:21 +00:00
parent 73496807fb
commit d4e116fd48
1 changed files with 0 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
lisp/play/animate.el
View file

@ -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