# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 887939050 0
# Node ID 588dae3ae7cc38f88867de711bee44230d8e0979
# Parent  7c906916c8ae9d9998dd8a2161f489433e05c1ed
(select-safe-coding-system): Kill the
warning buffer before returning.

diff -r 7c906916c8ae -r 588dae3ae7cc lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Fri Feb 20 01:44:10 1998 +0000
+++ b/lisp/international/mule-cmds.el	Fri Feb 20 01:44:10 1998 +0000
@@ -328,6 +328,7 @@
 		      (format "Select coding system (default %s): "
 			      (car safe-coding-systems))
 		      safe-names nil t nil nil (car (car safe-names)))))
+	  (kill-buffer "*Warning*")
 	  (intern name))))))
 
 (setq select-safe-coding-system-function 'select-safe-coding-system)