From d17b1ee5e40d59bef5cdea1ed96352d32c508203 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Wed, 29 Sep 1999 02:50:32 +0000
Subject: [PATCH] (find-coding-system): New inline function.  <cf.
 [tm-ja:5238]>

---
 ChangeLog  |    5 +++++
 pces-om.el |    5 +++++
 2 files changed, 10 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 53997a3..f72af30 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-09-24  Mikio Nakajima  <minakaji@osaka.email.ne.jp>
+
+	* pces-om.el (find-coding-system): New inline function.
+	<cf. [tm-ja:5238]>
+
 1999-09-23  MORIOKA Tomohiko  <tomo@m17n.org>
 
 	* mcs-20.el (mime-charset-coding-system-alist): Use coding-system
diff --git a/pces-om.el b/pces-om.el
index 72c8a99..fdbb648 100644
--- a/pces-om.el
+++ b/pces-om.el
@@ -110,6 +110,11 @@
 ;;; @ coding system
 ;;;
 
+(defun-maybe find-coding-system (obj)
+  "Return OBJ if it is a coding-system."
+  (if (coding-system-p obj)
+      obj))
+
 (defun encode-coding-region (start end coding-system)
   "Encode the text between START and END to CODING-SYSTEM.
 \[EMACS 20 emulating function]"
-- 
1.7.10.4