From e73ec04be615e89924b6173325c6e888dcbb2cdd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 12 Jul 1998 03:14:44 +0000 Subject: [PATCH] (find-file-noselect-1): Use kill-local-variable on buffer-file-coding-system, instead of setting it. (save-buffer): Doc fix. (basic-save-buffer): Doc fix. --- lisp/files.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 07c64a2bc27..1bd0ac57219 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -968,7 +968,7 @@ Optional second arg RAWFILE non-nil means the file is read literally." (kill-local-variable 'find-file-literally) ;; Needed in case we are re-visiting the file with a different ;; text representation. - (setq buffer-file-coding-system default-buffer-file-coding-system) + (kill-local-variable 'buffer-file-coding-system) (erase-buffer) (and (default-value 'enable-multibyte-characters) (not rawfile) @@ -2183,7 +2183,9 @@ We don't want excessive versions piling up, so there are variables Defaults are 2 old versions and 2 new. `dired-kept-versions' controls dired's clean-directory (.) command. If `delete-old-versions' is nil, system will query user - before trimming versions. Otherwise it does it silently." + before trimming versions. Otherwise it does it silently. + +See the subroutine `basic-save-buffer' for more information." (interactive "p") (let ((modp (buffer-modified-p)) (large (> (buffer-size) 50000)) @@ -2220,7 +2222,10 @@ in such cases.") (defun basic-save-buffer () "Save the current buffer in its visited file, if it has been modified. -After saving the buffer, run `after-save-hook'." +The hooks `write-contents-hooks', `local-write-file-hooks' and +`write-file-hooks' get a chance to do the job of saving; if they do not, +then the buffer is saved in the visited file file in the usual way. +After saving the buffer, this function runs `after-save-hook'." (interactive) (save-current-buffer ;; In an indirect buffer, save its base buffer instead. -- 2.39.2