# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 894849755 0
# Node ID 369ac7fae774e4371c15f6c4d1f3fc9caaa6da2f
# Parent  bf37812dd6bbfcb3bf1b1be89b02fb6582b1f469
(last-coding-system-specified): New var.
(select-safe-coding-system): Set var if user specifies a coding system.

diff -r bf37812dd6bb -r 369ac7fae774 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Mon May 11 01:17:48 1998 +0000
+++ b/lisp/international/mule-cmds.el	Mon May 11 01:22:35 1998 +0000
@@ -303,6 +303,13 @@
 	      (sort codings (function (lambda (x y) (> (car x) (car y))))))
       )))
 
+(defvar last-coding-system-specified nil
+  "Most recent coding system explicitly specified by the user when asked.
+This variable is set whenever Emacs asks the user which coding system
+to use in order to write a file.  If you set it to nil explicitly,
+then call `write-region', then afterward this variable will be non-nil
+only if the user was explicitly asked and specified a coding system.")
+
 (defun select-safe-coding-system (from to &optional default-coding-system)
   "Ask a user to select a safe coding system from candidates.
 The candidates of coding systems which can safely encode a text
@@ -364,7 +371,7 @@
 			  (format "Select coding system (default %s): "
 				  (car safe-coding-systems))
 			  safe-names nil t nil nil (car (car safe-names)))))
-	      (intern name))
+	      (setq last-coding-system-specified (intern name)))
 	  (kill-buffer "*Warning*"))))))
 
 (setq select-safe-coding-system-function 'select-safe-coding-system)