;; in the unlikely case that you are calling
    ;; file-has-immediate-contents to make the file be empty, use
    ;; contents "" (the empty string).
    (when (null contents)
      (error "file-has-immediate-contents: contents are nil"))

        (with-output-to ">" new-fp (printf "%s\n" contents))

        (with-secret-output-to ">" new-fp (printf "%s\n" contents))