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

diff --git a/ChangeLog b/ChangeLog
index 53997a3..f72af30 100644 (file)
--- 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 (file)
--- 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]"