From: yamaoka <yamaoka>
Date: Wed, 29 Sep 1999 02:50:32 +0000 (+0000)
Subject: (find-coding-system): New inline function.  <cf. [tm-ja:5238]>
X-Git-Tag: of-tm-8_7~10
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d17b1ee5e40d59bef5cdea1ed96352d32c508203;p=elisp%2Fapel.git

(find-coding-system): New inline function.  <cf. [tm-ja:5238]>
---

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]"