From 08d55d13a771dba40cbecd1d75e60db98bed9a72 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 28 Nov 2008 03:31:30 +0000 Subject: [PATCH] (format-write-file): Improve previous doc fix. --- lisp/ChangeLog | 4 ++++ lisp/format.el | 12 +++++++----- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 76de1401c9a..b85f3ffbc70 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-11-28 Glenn Morris + + * format.el (format-write-file): Improve previous doc fix. + 2008-11-27 Chong Yidong * simple.el (use-empty-active-region, use-region-p) diff --git a/lisp/format.el b/lisp/format.el index 8e114c83b5b..77ab5e952b0 100644 --- 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 -- 2.39.2