- "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")))
+ "Return a birthday present in the buffer *Birthday-Present*.
+When optional arg NAME is non-nil or called-interactively, prompt for
+NAME of birthday present receiver and return a birthday present in
+the buffer *Birthday-Present-for-Name*."
+ (interactive (list (read-string "Birthday present for: "
+ nil nil)))