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