(find-coding-system): Moved to pces-e20.el.

(set-process-input-coding-system): Likewise.
- Don't require `poem-20'.

diff --git a/poem-e20.el b/poem-e20.el
index 82adc25..57a6378 100644 (file)
--- a/poem-e20.el
+++ b/poem-e20.el
@@ -50,22 +50,9 @@ in the region between START and END."
   (delq 'ascii (find-charset-string (buffer-substring start end))))
 
 
-;;; @ coding system
-;;;
-
-(defsubst-maybe find-coding-system (obj)
-  "Return OBJ if it is a coding-system."
-  (if (coding-system-p obj)
-      obj))
-
-(defalias 'set-process-input-coding-system 'set-process-coding-system)
-
-
 ;;; @ end
 ;;;
 
-(require 'poem-20)
-
 (if (and (fboundp 'set-buffer-multibyte)
         (subrp (symbol-function 'set-buffer-multibyte)))
     (require 'poem-e20_3) ; for Emacs 20.3