From 1f77639917127d495795d56384e47b205448facf Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 20 Feb 1998 01:44:10 +0000 Subject: [PATCH] (select-safe-coding-system): Kill the warning buffer before returning. --- lisp/international/mule-cmds.el | 1 + 1 file changed, 1 insertion(+) diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index 41f9bd3da35..2d56523f705 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -328,6 +328,7 @@ Please select one from the following safe coding systems:\n" (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) -- 2.39.5