summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>1998-02-20 01:44:10 +0000
committerKenichi Handa <handa@m17n.org>1998-02-20 01:44:10 +0000
commit1f77639917127d495795d56384e47b205448facf (patch)
tree6b829c053c06c0252f78319c46a2d4b1e137f201 /lisp
parenta2b4abc18b389ad042612e652126b8019e1b43a2 (diff)
downloademacs-1f77639917127d495795d56384e47b205448facf.tar.gz
emacs-1f77639917127d495795d56384e47b205448facf.tar.bz2
emacs-1f77639917127d495795d56384e47b205448facf.zip
(select-safe-coding-system): Kill the
warning buffer before returning.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/international/mule-cmds.el1
1 files changed, 1 insertions, 0 deletions
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)