(prefer-coding-system): Use `find-coding-system' instead of

`coding-system-p'.

diff --git a/lisp/mule/mule-cmds.el b/lisp/mule/mule-cmds.el
index 56984d9..e03f876 100644 (file)
--- a/lisp/mule/mule-cmds.el
+++ b/lisp/mule/mule-cmds.el
@@ -195,7 +195,7 @@ for MS-DOS terminal, because DOS terminals only support a single coding
 system, and Emacs automatically sets the default to that coding system at
 startup."
   (interactive "zPrefer coding system: ")
-  (if (not (and coding-system (coding-system-p coding-system)))
+  (if (not (and coding-system (find-coding-system coding-system)))
       (error "Invalid coding system `%s'" coding-system))
   (let ((coding-category (coding-system-category coding-system))
        (base (coding-system-base coding-system))