From: akr <akr>
Date: Wed, 26 Aug 1998 08:15:04 +0000 (+0000)
Subject: * ew-scan-n.el: New file.
X-Git-Tag: doodle-1_9_2~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c2743a69d2922036c9c1663bfd1cc1a1adad1c51;p=elisp%2Fflim.git

* ew-scan-n.el: New file.
---

diff --git a/ChangeLog b/ChangeLog
index 8ed500a..b06c3c0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 1998-08-26  Tanaka Akira      <akr@jaist.ac.jp>
 
+	* ew-scan-n.el: New file.
+
+1998-08-26  Tanaka Akira      <akr@jaist.ac.jp>
+
 	* FLIM-ELS (flim-modules): Add `ew-scan-n'.
 
 	* ew-dec.el: Require 'ew-scan-n.
diff --git a/ew-scan-n.el b/ew-scan-n.el
new file mode 100644
index 0000000..e89fcef
--- /dev/null
+++ b/ew-scan-n.el
@@ -0,0 +1,13 @@
+(require 'ew-data)
+(require 'ew-parse)
+(provide 'ew-scan-n)
+
+(defun ew-scan-none (col str)
+  (let ((res (ew-make-anchor col str)))
+    (ew-add-frag res 0 (length str) 'ew:n-body)
+    (ew-terminate res)
+    res))
+
+(defalias 'ew-scan-unibyte-none 'ew-scan-none)
+(defalias 'ew-scan-multibyte-none 'ew-scan-none)
+