From: tomo <tomo>
Date: Tue, 29 Jun 1999 04:14:15 +0000 (+0000)
Subject: (prefer-coding-system): Use `find-coding-system' instead of
X-Git-Tag: r21-2-17-tomo-3~48
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1bd58603eb0700f1e00dfb4ccc4c1795df71d61f;p=chise%2Fxemacs-chise.git-

(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
--- 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))