X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=emu.el;h=d610c53997ed149aed883f7e8f47857a403bfee7;hb=01cb7b2bdb4a99d6e3c3a482d51b879c8aa4d472;hp=8dc992895c48d782ce4771c4de5e3dcc2e654750;hpb=0df64d3b6ef5ae5212fd59ee13dd5f044b378ba6;p=elisp%2Fapel.git

diff --git a/emu.el b/emu.el
index 8dc9928..d610c53 100644
--- a/emu.el
+++ b/emu.el
@@ -81,6 +81,11 @@
 
 (require 'poem)
 (require 'mcharset)
+(require 'invisible)
+
+(defsubst char-list-to-string (char-list)
+  "Convert list of character CHAR-LIST to string."
+  (apply (function string) char-list))
 
 (cond ((featurep 'mule)
        (cond ((featurep 'xemacs) ; for XEmacs with MULE
@@ -126,7 +131,7 @@ TABLE defaults to the current buffer's category table."
        (defun code-convert-string (str ic oc)
 	 "Convert code in STRING from SOURCE code to TARGET code,
 On successful converion, returns the result string,
-else returns nil. [emu-nemacs.el; Mule emulating function]"
+else returns nil."
 	 (if (not (eq ic oc))
 	     (convert-string-kanji-code str ic oc)
 	   str))
@@ -134,7 +139,7 @@ else returns nil. [emu-nemacs.el; Mule emulating function]"
        (defun code-convert-region (beg end ic oc)
 	 "Convert code of the text between BEGIN and END from SOURCE
 to TARGET. On successful conversion returns t,
-else returns nil. [emu-nemacs.el; Mule emulating function]"
+else returns nil."
 	 (if (/= ic oc)
 	     (save-excursion
 	       (save-restriction
@@ -188,8 +193,7 @@ It is obsolete, so don't use it."))
 A buffer may be modified in several ways after reading into the buffer due
 to advanced Emacs features, such as file-name-handlers, format decoding,
 find-file-hooks, etc.
-  This function ensures that none of these modifications will take place.
-\[emu-nemacs.el]"
+  This function ensures that none of these modifications will take place."
   (as-binary-input-file
    ;; Returns list absolute file name and length of data inserted.
    (insert-file-contents-literally filename visit beg end replace)))
@@ -223,6 +227,7 @@ find-file-hooks, etc.
 ;;; @ end
 ;;;
 
-(provide 'emu)
+(require 'product)
+(product-provide (provide 'emu) (require 'apel-ver))
 
 ;;; emu.el ends here