X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=pces-om.el;h=fdbb6489dd2726cd67bf8621074aa2c1f288564a;hb=00d61c72098692fbba3a42e510be515f88d11630;hp=72c8a99e50414ac7d1638918ce5804dba8e4dd14;hpb=048cfece135da53f2462fc9ed4e58366f2f80f33;p=elisp%2Fapel.git

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