- 'file `(:title ,(capitalize-string-as-title
- ;; Kludge: Delete ": " off the end.
- (replace-in-string prompt ": $" ""))
- ,@(and dir (list :initial-directory
- dir))
- :file-must-exist ,must-match
- ,@(and initial-contents
- (list :initial-filename
- initial-contents))))))
+ type `(:title ,(capitalize-string-as-title
+ ;; Kludge: Delete ": " off the end.
+ (replace-in-string prompt ": $" ""))
+ ,@(and dir (list :initial-directory
+ dir))
+ :file-must-exist ,must-match
+ ,@(and initial-contents
+ (list :initial-filename
+ initial-contents))))))