Mercurial > emacs
diff lisp/play/animate.el @ 83054:bc4c00966ad3
Merged in changes from CVS HEAD
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-108
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-109
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-110
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-111
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-112
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-94
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Tue, 24 Feb 2004 22:48:10 +0000 |
| parents | d0b60a164264 |
| children | 0e6e83809df8 |
line wrap: on
line diff
--- a/lisp/play/animate.el Tue Feb 24 18:00:36 2004 +0000 +++ b/lisp/play/animate.el Tue Feb 24 22:48:10 2004 +0000 @@ -151,11 +151,13 @@ (setq list-of-strings (cdr list-of-strings))))) ;;;###autoload -(defun animate-birthday-present () - "Display Sarah's birthday present in a new buffer." - (interactive) +(defun animate-birthday-present (&optional name) + "Display one's birthday present in a new buffer. +You can specify the one's name by NAME; the default value is \"Sarah\"." + (interactive (list (read-string "Name (default \"Sarah\"): " + nil nil "Sarah"))) ;; Make a suitable buffer to display the birthday present in. - (switch-to-buffer (get-buffer-create "*Sarah*")) + (switch-to-buffer (get-buffer-create (format "*%s*" name))) (erase-buffer) ;; Display the empty buffer. (sit-for 0) @@ -164,7 +166,7 @@ (setq indent-tabs-mode nil) (animate-string "Happy Birthday," 6) - (animate-string "Sarah" 7) + (animate-string (format "%s" name) 7) (sit-for 1)