From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 24 Jul 1998 10:43:29 +0000 (+0000)
Subject: (basic-save-buffer-2): New function.
X-Git-Tag: emacs-20.3~272
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5fe94cca85dc89ae35ebe11e3e6b669ea8ea325;p=emacs.git

(basic-save-buffer-2): New function.
(basic-save-buffer-1): Use basic-save-buffer-2,
after perhaps binding coding-system-for-write.
(save-buffer-coding-system): Make it a permanent local.
---

diff --git a/lisp/files.el b/lisp/files.el
index 703050582c4..fb989b917aa 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2222,6 +2222,9 @@ Calling `write-region' for any purpose other than saving the buffer
 will still use `buffer-file-coding-system'; this variable has no effect
 in such cases.")
 
+(make-variable-buffer-local 'save-buffer-coding-system)
+(put 'save-buffer-coding-system 'permanent-local t)
+
 (defun basic-save-buffer ()
   "Save the current buffer in its visited file, if it has been modified.
 The hooks `write-contents-hooks', `local-write-file-hooks' and
@@ -2311,10 +2314,13 @@ After saving the buffer, this function runs `after-save-hook'."
 ;; but inhibited if one of write-file-hooks returns non-nil.
 ;; It returns a value to store in setmodes.
 (defun basic-save-buffer-1 ()
-  (let ((buffer-file-coding-system
-	 (or save-buffer-coding-system
-	     buffer-file-coding-system))
-	tempsetmodes setmodes)
+  (if save-buffer-coding-system
+      (let ((coding-system-for-write save-buffer-coding-system))
+	(basic-save-buffer-2))
+    (basic-save-buffer-2)))
+
+(defun basic-save-buffer-2 ()
+  (let (tempsetmodes setmodes)
     (if (not (file-writable-p buffer-file-name))
 	(let ((dir (file-name-directory buffer-file-name)))
 	  (if (not (file-directory-p dir))