comparison lisp/format.el @ 99997:af179ae8c25b

(format-write-file): Improve previous doc fix.

99996:12983da03c67

	  (setq format (cdr format)))))))

(defun format-write-file (filename format &optional confirm)
  "Write current buffer into file FILENAME using some FORMAT.
Make buffer visit that file and set the format as the default for future
saves.  If the buffer is already visiting a file, you can specify a directory
name as FILENAME, to write a file of the same old name in that directory.

If optional third arg CONFIRM is non-nil, ask for confirmation before
overwriting an existing file.  Interactively, confirmation is required
unless you supply a prefix argument.

The buffer-local value of `buffer-file-format' is set to FORMAT,
and any original elements (except those with a non-nil `preserve' flag;
see the documentation of `format-alist') are replaced."
  (interactive
   ;; Same interactive spec as write-file, plus format question.
   (let* ((file (if buffer-file-name
		    (read-file-name "Write file: "
				    nil nil nil nil)

99997:af179ae8c25b

	  (setq format (cdr format)))))))

(defun format-write-file (filename format &optional confirm)
  "Write current buffer into file FILENAME using some FORMAT.
Make buffer visit that file and set the format as the default for future
saves (see below).  If the buffer is already visiting a file, you can
specify a directory name as FILENAME, to write a file of the same old name
in that directory.

If optional third arg CONFIRM is non-nil, ask for confirmation before
overwriting an existing file.  Interactively, confirmation is required
unless you supply a prefix argument.

This function sets the buffer-local value of `buffer-file-format'
to FORMAT, then appends any elements from the previous value with
a non-nil `preserve' flag (see the documentation of `format-alist'),
if they are not already present in the new value."
  (interactive
   ;; Same interactive spec as write-file, plus format question.
   (let* ((file (if buffer-file-name
		    (read-file-name "Write file: "
				    nil nil nil nil)