diff options
| author | Eli Zaretskii <eliz@is.elta.co.il> | 2004-02-21 13:30:42 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@is.elta.co.il> | 2004-02-21 13:30:42 +0000 |
| commit | 8bcfd13b545f05f64ad00cbabfb8bdd1d1dd9b94 (patch) | |
| tree | e1ec4ddd9cb63a68cf4210957b69ef0247540ff9 /lisp | |
| parent | bb0b59bf75988245562281f37ab66089641098f2 (diff) | |
| download | emacs-8bcfd13b545f05f64ad00cbabfb8bdd1d1dd9b94.tar.gz emacs-8bcfd13b545f05f64ad00cbabfb8bdd1d1dd9b94.tar.bz2 emacs-8bcfd13b545f05f64ad00cbabfb8bdd1d1dd9b94.zip | |
(animate-birthday-present): Accept other than `Sarah', too.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/play/animate.el | 12 |
2 files changed, 12 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2d0afcdfe28..ee971eb1c07 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-02-21 Masatake YAMATO <jet@gyve.org> + + * play/animate.el (animate-birthday-present): Accept names other + than `Sarah', too. + 2004-02-21 Juri Linkov <juri@jurta.org> * startup.el: Remove table of command line arguments from the diff --git a/lisp/play/animate.el b/lisp/play/animate.el index 40c4696dc08..23e7939f47a 100644 --- a/lisp/play/animate.el +++ b/lisp/play/animate.el @@ -151,11 +151,13 @@ Strings will be separated from each other by SPACE lines." (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 @@ Strings will be separated from each other by SPACE lines." (setq indent-tabs-mode nil) (animate-string "Happy Birthday," 6) - (animate-string "Sarah" 7) + (animate-string (format "%s" name) 7) (sit-for 1) |