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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 76de1401c9ad8a4e6d6e85a7fea2afbae2e75c21..b85f3ffbc7028422e3baf7f0b07040f9e9420362 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-11-28  Glenn Morris  <rgm@gnu.org>
+
+       * format.el (format-write-file): Improve previous doc fix.
+
 2008-11-27  Chong Yidong  <cyd@stupidchicken.com>
 
        * simple.el (use-empty-active-region, use-region-p)

diff --git a/lisp/format.el b/lisp/format.el
index 8e114c83b5bfa53c8f66cb9e0ebefcffa6226dfd..77ab5e952b02f8a45cb575ee8552bcd87907bd40 100644 (file)
--- a/lisp/format.el
+++ b/lisp/format.el
@@ -361,16 +361,18 @@ one of the formats defined in `format-alist', or a list of such symbols."
 (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.
+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.
 
-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."
+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