/[emacs]/emacs/lisp/play/animate.el
ViewVC logotype

Diff of /emacs/lisp/play/animate.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by ttn, Mon Aug 1 15:30:16 2005 UTC revision 1.15 by rfrancoise, Sat Sep 24 13:43:58 2005 UTC
# Line 156  Strings will be separated from each othe Line 156  Strings will be separated from each othe
156  (defun animate-birthday-present (&optional name)  (defun animate-birthday-present (&optional name)
157    "Display one's birthday present in a new buffer.    "Display one's birthday present in a new buffer.
158  You can specify the one's name by NAME; the default value is \"Sarah\"."  You can specify the one's name by NAME; the default value is \"Sarah\"."
159    (interactive (list (read-string "Name (default \"Sarah\"): "    (interactive (list (read-string "Name (default Sarah): "
160                                    nil nil "Sarah")))                                    nil nil "Sarah")))
161    ;; Make a suitable buffer to display the birthday present in.    ;; Make a suitable buffer to display the birthday present in.
162    (switch-to-buffer (get-buffer-create (format "*%s*" name)))    (switch-to-buffer (get-buffer-create (format "*%s*" name)))

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26