Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 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 | 428831a6f4d1 |
| children | b6530c2add6a |
comparison
equal
deleted
inserted
replaced
| 20940:7c906916c8ae | 20941:588dae3ae7cc |
|---|---|
| 326 safe-coding-systems)) | 326 safe-coding-systems)) |
| 327 (name (completing-read | 327 (name (completing-read |
| 328 (format "Select coding system (default %s): " | 328 (format "Select coding system (default %s): " |
| 329 (car safe-coding-systems)) | 329 (car safe-coding-systems)) |
| 330 safe-names nil t nil nil (car (car safe-names))))) | 330 safe-names nil t nil nil (car (car safe-names))))) |
| 331 (kill-buffer "*Warning*") | |
| 331 (intern name)))))) | 332 (intern name)))))) |
| 332 | 333 |
| 333 (setq select-safe-coding-system-function 'select-safe-coding-system) | 334 (setq select-safe-coding-system-function 'select-safe-coding-system) |
| 334 | 335 |
| 335 | 336 |