changeset 20941:588dae3ae7cc

(select-safe-coding-system): Kill the warning buffer before returning.
author Kenichi Handa <handa@m17n.org>
date Fri, 20 Feb 1998 01:44:10 +0000
parents 7c906916c8ae
children 5e0c74e072de
files lisp/international/mule-cmds.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)